debug

citizenair/inst/apps/citizenair/citizenair.Rmd

@@ -67,7 +67,7 @@ plot_timeseries <- function(x, ...){
 ```
 
 
-```{r, eval=FALSE}
+```{r, eval=TRUE}
 popups <- list()
 popups$download <- modalDialog(title = "Download",
                                "We connecteren nu naar de IRCEL webservice om data af te halen en te combineren met uw meetgegevens, eventjes geduld, dit scherm sluit vanzelf wanneer dit afgelopen is.",
@@ -87,7 +87,8 @@ popups$select_station <- modalDialog(
   radioGroupButtons(
         inputId = "uiInput_selectmeasurement", 
         label = "Selecteer welke van uw sensorgegevens u wilt vergelijken met een officieel meetstation", 
-        choices = sort(APPDATA$getCitizenData(type = "phenomena"), decreasing = TRUE), 
+        #choices = sort(APPDATA$getCitizenData(type = "phenomena"), decreasing = TRUE),
+        choices = LETTERS, 
         direction = "horizontal", size = "sm",
         justified = FALSE, individual = FALSE, status = "primary",
         checkIcon = list(yes = icon("ok", lib = "glyphicon"))
@@ -133,9 +134,9 @@ citizenair_userdata <- reactive({
                                                     filter = 'top', options = list(pageLength = 5, autoWidth = TRUE, searching = FALSE)))  
       showModal(popups$cleaned_data)
       
-      output$uiOutput_timeseries <- renderDygraph({
-        plot_timeseries(result$appdata$getCombinedTimeseries(), main = "De tijdreeks van al uw meetgegevens")
-      })
+      #output$uiOutput_timeseries <- renderDygraph({
+      #  plot_timeseries(result$appdata$getCombinedTimeseries(), main = "De tijdreeks van al uw meetgegevens")
+      #})
     }
   }
   result