Add phenomena to main part of read_citizenair

citizenair/R/read-citizendata.R

@@ -12,6 +12,7 @@
 #' \item{file: the full path to the excel file}
 #' \item{time: the timestamp when the data was imported}
 #' \item{content: a list where each list element contains the elements meta and data where meta and data are described below}
+#' \item{phenomena: all measurement phenomena in the data}
 #' }
 #' Content element meta is a list containing
 #' \enumerate{
@@ -51,6 +52,7 @@ read_citizenair <- function(file = system.file(package = "citizenair", "data-raw
     result$content[[sheet]]$meta$phenomena <- read_sheet_units(file, sheet, sheet_details)
     result$content[[sheet]]$data <- read_sheet_measurements(file, sheet, sheet_details)
   }
+  result$phenomena <- unique(sort(unlist(lapply(result$content, FUN=function(x) names(x$meta$phenomena)))))
   class(result) <- "citizenair"
   result
 }

citizenair/man/read_citizenair.Rd

@@ -19,6 +19,7 @@ an object of class \code{citizenair} which is a list with elements
 \item{file: the full path to the excel file}
 \item{time: the timestamp when the data was imported}
 \item{content: a list where each list element contains the elements meta and data where meta and data are described below}
+\item{phenomena: all measurement phenomena in the data}
 }
 Content element meta is a list containing
 \enumerate{