Fix for out-of-bounds issue

citizenair-shinyproxy/Dockerfile

@@ -9,6 +9,7 @@ RUN R -e "install.packages(c('leaflet', 'sp', 'rgeos'), repos='https://cloud.r-p
 RUN R -e "install.packages(c('dygraphs', 'xts', 'openair', 'ggplot2'), repos='https://cloud.r-project.org/')"
 RUN R -e "devtools::install_github('bnosac/BelgiumMaps.Statbel')"
 RUN R -e "devtools::install_github('52North/sensorweb4R')"
+#RUN git -c http.sslVerify=false clone https://www.datatailor.be/open-source/citizenair
 RUN git -c http.sslVerify=false clone https://www.datatailor.be/vmm/citizenair
 RUN R CMD INSTALL citizenair/citizenair
 

citizenair/inst/apps/citizenair/citizenair.Rmd

@@ -81,14 +81,14 @@ popups$cleaned_data <- modalDialog(
   DT::dataTableOutput("uiOutput_rawdata", width = "100%", height = "auto"),
   size = "l", footer = modalButton("Sluit"), easyClose = TRUE)
 popups$select_station <- modalDialog(
-  title = "Selecteer met welk officieel station u uw meetgegevens wilt vergelijken",
-  tags$div(tags$blockquote("Op de kaart hieronder kunt u meetstations vinden van de Vlaamse Milieu Maatschappij die dezelfde elementen meten als uw metingen. Selecteer het meetstation waarmee u uw eigen gegevens wil vergelijken door te klikken op een meetstation. Wanneer u klaar bent, klik op Go!, waarna we de gegevens van de VMM webservice afhalen en combineren met uw gegevens.")),
+  #title = "Selecteer met welk officieel station u uw meetgegevens wilt vergelijken",
+  tags$div(tags$blockquote("Op de kaart hieronder kunt u meetstations vinden van de overheid die dezelfde elementen meten als uw metingen. Selecteer het meetstation waarmee u uw eigen gegevens wil vergelijken door een type meting te selecteren en dan te klikken op de locatie van een meetstation. Wanneer u klaar bent, klik op Go!, waarna we de gegevens van de VMM webservice afhalen en combineren met uw gegevens.")),
   renderUI(tags$h3("Uw selecteerde te vergelijken met: ", citizenair_vmmstation()$label)),
   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 = c("WAIT A MINUTE"),
+        choices = c("U heeft nog geen excel bestand opgeladen, u dient eerst een bestand op te laden op de eerste pagina"),
         direction = "horizontal", size = "sm",
         justified = FALSE, individual = FALSE, status = "primary",
         checkIcon = list(yes = icon("ok", lib = "glyphicon"))