example <- system.file("extdata", "d13C.tsv", package = "gasanalyzer")
# read data and recalculate using default gas-exchange equations:
df <- read_gasexchange(example) |>
recalculate(create_equations("default"))
# view df in ess_dive format:
export_ess_dive(df)
.old_wd <- setwd(tempdir())
# save the data and a data dictionary:
export_ess_dive(df, "ess_dive_test.csv")
# read and show the dictionary:
readLines("ess_dive_test_dd.csv")
setwd(.old_wd)
Run the code above in your browser using DataLab