data-raw/old_midas.R

In cmc-aau/midasdashboard: MiDAS dashboard shiny app

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

metadata <- openxlsx::read.xlsx("data-raw/[2018-12-3] data/MiDAS/metadata_ShinyApp_2018.xlsx", detectDates = TRUE)
MiDAS <- amp_load(
  "data-raw/[2018-12-3] data/MiDAS/otutable.zip",
  metadata
)
MiDAS <- filter_otus(MiDAS, 0.1)
MiDAS$metadata <- fix_metadata(MiDAS$metadata)
MiDAS <- genusfunctions(MiDAS, function_data = mfg_functions)
usethis::use_data(MiDAS, overwrite = TRUE)

#MiDAS_PeriodAvg <- periodAvg(MiDAS$metadata)
#MiDAS_PeriodAvg$Date <- as.character(as.Date(MiDAS_PeriodAvg$Date))
#usethis::use_data(MiDAS_PeriodAvg, overwrite = TRUE)