## ----include = FALSE----------------------------------------------------------
# nolint start: indentation-linter
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
# nolint end

## ----setup--------------------------------------------------------------------
library(daisytools)

## -----------------------------------------------------------------------------
data_dir <- system.file("extdata", package="daisytools")
path <- file.path(data_dir, "hourly/P2D-Daily-Soil_Chemical_110cm.dlf")
dlf <- read_dlf(path)
head(dlf)

## -----------------------------------------------------------------------------
slotNames(dlf)

## -----------------------------------------------------------------------------
dlf@header

## -----------------------------------------------------------------------------
dlf@units

## -----------------------------------------------------------------------------
head(dlf@data)

## -----------------------------------------------------------------------------
head(dlf$year)
dlf$year <- dlf$year + 2
head(dlf[["year"]])
dlf[[1, "year"]] <- dlf[[1, "year"]] + 10
dlf[[1, "year"]]

## -----------------------------------------------------------------------------
data_dir <- system.file("extdata", package="daisytools")
path <- file.path(data_dir, "daily/DailyP/DailyP-Daily-WaterFlux.dlf")
dlf <- read_dlf(path)
head(dlf)

## -----------------------------------------------------------------------------
dlf <- read_dlf(path, convert_depth=FALSE)
head(dlf@data)

## -----------------------------------------------------------------------------
data_dir <- system.file("extdata", package="daisytools")
path <- file.path(data_dir, "daisy-spawn-like")
list.files(path, recursive=TRUE)

## -----------------------------------------------------------------------------
dlfs <- read_dlf(path)

## -----------------------------------------------------------------------------
typeof(dlfs)
dlf_names <- names(dlfs)
dlf_names

## -----------------------------------------------------------------------------
name <- dlf_names[1]
name
head(dlfs[[name]]@data)
unique(dlfs[[name]]$sim)

## -----------------------------------------------------------------------------
data_dir <- system.file("extdata", package="daisytools")
path <- file.path(data_dir, "annual")
list.files(path, pattern=".*dlf", recursive=TRUE)

## -----------------------------------------------------------------------------
dlfs <- read_dlf(path)

## -----------------------------------------------------------------------------
names(dlfs)

## -----------------------------------------------------------------------------
dlfs <- drop_dir_from_names(dlfs)
names(dlfs)
dlfs <- strip_common_prefix_from_names(dlfs)
names(dlfs)

## -----------------------------------------------------------------------------
name <- names(dlfs)[1]
name
dlfs[[name]]@header

## -----------------------------------------------------------------------------
data_dir <- system.file("extdata", package="daisytools")
path <- file.path(data_dir, "annual")
dlfs <- read_dlf(path, pattern=".*2b\\.dlf")
names(dlfs)