call phenomenon instead of Phenomenon to get the phenomenon of the timeseries

citizenair/NAMESPACE

@@ -31,6 +31,7 @@ importFrom(sensorweb4R,getData)
 importFrom(sensorweb4R,id)
 importFrom(sensorweb4R,label)
 importFrom(sensorweb4R,lastValue)
+importFrom(sensorweb4R,phenomenon)
 importFrom(sensorweb4R,resourceURL)
 importFrom(sensorweb4R,time)
 importFrom(sensorweb4R,timeseries)

citizenair/R/appdata.R

@@ -90,7 +90,7 @@ CitizenAir <- R6::R6Class("CitizenAir",
                             df <- sensorweb4R::getData(x, timespan = timespan)
                             df <- as.data.frame(df)
                             df$date <- as.Date(df$time)
-                            df$phenomena_id <- sensorweb4R::id(sensorweb4R::Phenomenon(x))
+                            df$phenomena_id <- sensorweb4R::id(sensorweb4R::phenomenon(x))
                             df$phenomena <- self$phenomena_label(df$phenomena_id)
                             df$phenomena_label <- sensorweb4R::label(x)
                             result[[i]] <- df[, c("phenomena_id", "phenomena", "phenomena_label", "time", "value")]

citizenair/R/pkg.R

@@ -5,7 +5,7 @@
 #' @importFrom data.table rbindlist melt.data.table setnames as.data.table data.table
 #' @importFrom fasttime fastPOSIXct
 #' @importFrom rmarkdown run
-#' @importFrom sensorweb4R resourceURL id label as.Endpoint fetch timeseries as.Timeseries getData time lastValue firstValue Station
+#' @importFrom sensorweb4R resourceURL id label as.Endpoint fetch timeseries phenomenon as.Timeseries getData time lastValue firstValue Station
 #' @importFrom lubridate as.interval
 #' @importFrom httr GET content
 #' @importFrom sp CRS SpatialPointsDataFrame