Use correct example xls files for download

citizenair/inst/apps/citizenair/page01-introduction.Rmd

@@ -3,10 +3,20 @@
 ### Citizen Air - laadt je eigen metingen op {data-height=400}
 
 ```{r}
+output[["citizenair-example.xls"]] <- downloadHandler(
+  filename = function() "citizenair-example.xls",
+  content = function(file) file.copy(from = system.file(package = "citizenair", "data-raw", "citizenair-example.xls"), file)
+)
+output[["citizenair-blank.xls"]] <- downloadHandler(
+  filename = function() "citizenair-blank.xls",
+  content = function(file) file.copy(from = system.file(package = "citizenair", "data-raw", "citizenair-blank.xls"), file)
+)
+
 tags$blockquote("Deze toepassing laat je toe om de kwaliteit van je eigen luchtmeting in te schatten. 
                 Hiervoor moet je je data plaatsen in het template dat je via",  tags$a(href="https://hoemeetiklucht.eu", "www.hoemeetiklucht.eu"), "kan samenstellen.")
 tags$ul(
-  tags$li("Download een voorbeeld excel file: ", tags$a(href="https://hoemeetiklucht.eu", "hoemeetiklucht.eu")),
+  tags$li("Download een voorbeeld excel file: ", downloadLink("citizenair-example.xls", "citizenair-example.xls")),
+  tags$li("Download een lege excel file waarin je je data kan copy-pasten: ", downloadLink("citizenair-blank.xls", "citizenair-blank.xls")),
   tags$li("Download de handleiding: ", tags$a(href="https://hoemeetiklucht.eu", "hoemeetiklucht.eu"))
 )
 ```