data-raw/egaamarselisborg.R

In cmc-aau/midasdashboard: MiDAS dashboard shiny app

source("data-raw/helper-functions.R")
data("mfg_functions")

#egaamarselisborg CP332 hasteprøver
#data copied from CP-Ongoing 18 may 2018
egaamarselisborg <- amp_subset_samples(
  amp_load(
    otutable = "data-raw/aarhusvand CP332/otutable.zip",
    metadata = openxlsx::read.xlsx("data-raw/aarhusvand CP332/CP332_metadata.xlsx", rows = 1:21, cols = c(1,9,11))),
  normalise = TRUE
)
colnames(egaamarselisborg$metadata) <- c("SampleID", "Plant", "Date")
egaamarselisborg$metadata$Date <- as.Date(egaamarselisborg$metadata$Date, origin = "1899-12-30", format = "%Y-%m-%d")
egaamarselisborg$metadata <- genusfunctions(egaamarselisborg, function_data = mfg_functions)

usethis::use_data(egaamarselisborg, overwrite = TRUE)