update dashboard for 2024

best-practice-and-impact · Oct 21, 2024 · 044814f · 044814f
1 parent 96970bc
commit 044814f
Show file tree

Hide file tree

Showing 3 changed files with 84 additions and 2,161 deletions.
diff --git a/R/ingest.R b/R/ingest.R
@@ -65,7 +65,7 @@ convert_raw <- function(r) {
 
 #' @return the exported data as a dataframe
 
-ingest <- function(survey = "1376897",
+ingest <- function(survey = "1574027",
                    token = Sys.getenv("CARS_TOKEN"),
                    secret = Sys.getenv("CARS_SECRET"),
                    proxies = Sys.getenv("alt_proxy"),

diff --git a/docs/index.html b/docs/index.html
diff --git a/rmarkdown/index.rmd b/rmarkdown/index.rmd
@@ -9,6 +9,7 @@ output:
 
 library(magrittr)
 
+
 data <- get_tidy_data_api()
 department <- filter_divisons(data)
 n_responses <- length(department)
@@ -19,17 +20,17 @@ department_table <- data.frame(table(remove_low_counts(department)))
 
 ## Welcome
 
-Welcome to the Coding in Analysis and Research Survey (CARS) 2023 dashboard. Here you can see our response rate so far, broken down by department. CARS is our annual survey on the use of code in government analysis. You can see the 2022 results in our [online publication](https://best-practice-and-impact.github.io/CARS/). 
+Welcome to the Coding in Analysis and Research Survey (CARS) 2024 dashboard. Here you can see the response rate so far, broken down by department. CARS is our annual survey on the use of code in government analysis. You can see the 2023 results in our [online publication](https://best-practice-and-impact.github.io/CARS/). 
 
-This year we hope to get over 1,500 responses. So far, we've got `r n_responses` responses. We're aiming for at least 20 from as many departments as possible, which will allow us to create customised reports for those departments. If you're interested in seeing this, please promote the survey in your department.
+This year we hope to get over 1,500 responses. So far, we've got `r n_responses` responses. We're aiming for at least 20 responses from as many departments as possible, which will allow us to create customised reports for those departments. If you're interested in seeing this, please promote the survey in your department.
 
 
 ## Responses by department
 
 ```{r echo=FALSE, warnings=FALSE}
 
 if (nrow(department_table) == 0) {
-  knitr::raw_html("There aren't enough responses yet. Please check later - this page will update once per hour.")
+  knitr::raw_html("There aren't enough responses yet. Please check back later.")
 } else {
   colnames(department_table) <- c("Department", "Number of respondents")