Skip to content

citizenair
citizenair
Commit 392af353 by Jan Wijffels
Options

Select also based on time range

parent 6eb9eab9
Showing with 1 additions and 0 deletions
citizenair/inst/apps/citizenair/page02-exploratory.Rmd
...@@ -130,6 +130,7 @@ observeEvent(input$uiInput_refresh_counter, { ...@@ -130,6 +130,7 @@ observeEvent(input$uiInput_refresh_counter, {
x <- APPDATA$getCombinedTimeseries(type = "rawdata") x <- APPDATA$getCombinedTimeseries(type = "rawdata")
x <- subset(x, type %in% "official" | (type %in% "citizen" & timeseries_id %in% input$uiInput_sheet)) x <- subset(x, type %in% "official" | (type %in% "citizen" & timeseries_id %in% input$uiInput_sheet))
x <- subset(x, phenomena_id %in% input$uiInput_phenomena) x <- subset(x, phenomena_id %in% input$uiInput_phenomena)
x <- x[as.Date(x$time) >= (as.Date(input$uiInput_period[1])) & as.Date(x$time) <= (as.Date(input$uiInput_period[2])), ]
x <- APPDATA$getCombinedTimeseries(x, type = input$uiInput_aggregationlevel, limit = TRUE) x <- APPDATA$getCombinedTimeseries(x, type = input$uiInput_aggregationlevel, limit = TRUE)
output$uiOutput_timeseries <- renderDygraph( output$uiOutput_timeseries <- renderDygraph(
plot_timeseries(x)) plot_timeseries(x))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment