Make dygraph layout ok

citizenair/inst/apps/citizenair/page02-exploratory.Rmd

@@ -18,12 +18,18 @@ actionButton(inputId = "uiInput_refresh", label = "Herbereken")
 
 ### Verken je metingen
 
-Hieronder tonen we een overzicht van jouw meting en de dichtstbijzijnde VMM-meetplaats in
-functie van de tijd. Verken je meting hieronder en kijk eens wat er gebeurt als je uitmiddelt per
-uur, per dag enz. Als je een goed zicht hebt op je data, ga dan naar de volgende stap.
+
 
 ```{r}
-x <- dashinput$appdata$fetch_timeseries("1030")
+fillCol(
+  tags$div("Hieronder tonen we een overzicht van jouw meting en de dichtstbijzijnde VMM-meetplaats in
+functie van de tijd. Verken je meting hieronder en kijk eens wat er gebeurt als je uitmiddelt per
+uur, per dag enz. Als je een goed zicht hebt op je data, ga dan naar de volgende stap."),
+  dygraphOutput("uiOutput_timeseries"),
+  flex = c(NA, 1)
+)
+output$uiOutput_timeseries <- renderDygraph({
+    x <- dashinput$appdata$fetch_timeseries("1030")
 x <- setDT(x)
 ts <- dcast.data.table(data = x, formula = time ~ phenomena_label, fun.aggregate = mean, value.var = "value")
 ts <- setDF(ts)
@@ -31,6 +37,9 @@ g <- xts(ts[, -1], order.by=ts[,1])
 g <- dygraph(g, main = "Tijdreeks van 1030 - Under construction")
 g <- dyRangeSelector(g, height = 20)
 g
+  })
+
+
 ```