fix bug vignette for windows & mac

briskaR/vignettes/demonstrations.Rmd

@@ -255,16 +255,19 @@ ggplot() + theme_minimal() +
 
 ```{r plotExposure_outGM}
 # Create raster
-df_outGM = as.data.frame(raster::extract(x = stack_exposure, y =  sf::as_Spatial(gridPOINT_outGM)))
-colnames(df_outGM) = paste0("Time_", gsub("-", "\\1", stackTimeline))
+df_outGM = as.data.frame(raster::extract(x = stack_exposure,
+                                         y =  sf::as_Spatial(gridPOINT_outGM)))
+#colnames(df_outGM) = paste0("Time_", gsub("-", "\\1", stackTimeline))
+
 sf_outGM = st_as_sf(geometry = st_geometry(gridPOINT_outGM), df_outGM)
 
 # PLOT ------------------------------------------------------------------------
 ggplot() + theme_minimal() +
+  labs(title = paste("Exposure at", colnames(df_outGM)[40])) +
   scale_color_continuous(low = "green", high = "red",
-                         trans = "log") +
+                         trans = "log", name = "log scaled") +
   geom_sf(data = sf_outGM,
-          aes(color = Time_20180828))
+          aes(color = df_outGM[,40]))
 ```
 
 # Individuals