Amended text, removed rap scores and coding change figs (#87)

* Amended text, removed rap scores and coding change figs

* Deleted sentence from home page

quarto/main/_quarto.yml

@@ -3,7 +3,7 @@ project:
   output-dir: ../../docs/
 
 website:
-  title: Coding in Analysis and Research Survey 2023
+  title: Draft Coding in Analysis and Research Survey 2023
   navbar:
     background: primary
     left:

quarto/main/index.qmd

@@ -21,7 +21,7 @@ This research was made with senior analysts and leaders in mind. It is intended
 ## How to use this research
 
 
-Responding to CARS is voluntary. The results presented here are from a self-selecting sample of government analysts. We are unable to provide details about response rates by department or profession. Because respondents are self-selecting, the results we present only reflect the views of the analysts who participated.
+Responding to CARS is voluntary. The results presented here are from a self-selecting sample of government analysts. Because respondents are self-selecting, the results we present only reflect the views of the analysts who participated.
 
 We cannot draw wider conclusions about the general population of government analysts from these results because the survey is not based on a random sample.
 

quarto/main/summary.qmd

@@ -79,13 +79,11 @@ CARS::wrap_outputs("code-freq", plot, table)
 
 ### Access to and knowledge of programming languages
 
-### Access to coding tools
-
 Given a list of programming tools, we asked all respondents if the tool was available to use for their work. 
 
 Access to tools does not necessarily refer to official policy. Some analysts may have access to tools others cannot access within the same organisation.
 
-
+### Access to coding tools
 ```{r}
 
 plot <- CARS::plot_stacked(tables$access, n = samples$all, xlab = "Programming tool", colour_scale = "3scale", font_size = 14)
@@ -95,12 +93,13 @@ CARS::wrap_outputs("access", plot, table)
 
 ```
 
-### Knowledge of coding tools
+
 
 Given the same list of programming tools, all respondents were asked if they knew how to program with the tool to a level suitable for their work, answering "Yes", "No" or "Not required for my work". 
 
 Please note that capability in programming languages is self-reported here and was not objectively defined or tested. The statement "not required for my work" was similarly not defined.
 
+### Knowledge of coding tools
 ```{r}
 
 plot <- CARS::plot_stacked(tables$knowledge, n = samples$all, xlab = "Programming tool", colour_scale = "3scale", font_size = 14)
@@ -227,27 +226,6 @@ CARS::wrap_outputs("ability-change", plot, table)
 
 ```
 
-#### Capability change by coding frequency
-
-
-```{r}
-plot <- CARS::plot_likert(tables$capability_change_by_freq, mid = 3,
-                          neutral_mid = TRUE, font_size = 14,
-                          height = 600, width = "100%")
-
-table <- CARS::df_to_table(tables$capability_change_by_freq,
-                           column_headers = c("Coding frequency",
-                                              "Significantly worse",
-                                              "Slightly worse",
-                                              "No change",
-                                              "Slightly better",
-                                              "Significantly better"),
-                           crosstab = TRUE)
-
-CARS::wrap_outputs("capability-change-by-freq", plot, table)
-
-```
-
 
 ## Reproducible analytical pipelines (RAP)
 

quarto/templates/departments.qmd

@@ -7,6 +7,11 @@ output:
 [comment]: <> (This document makes use of custom open and close tags for use with glue::glue() ("{{{" and "}}}", respectively))
 [comment]: <> (This document should only be edited as a template: quarto/templates/departments.qmd)
 
+:::{.callout-note}
+Please note, these are the initial summary statistics for CARS 2023 and further analysis will follow. 
+We advise linking directly to this document when distributing to ensure the most up to date information.
+:::
+
 Below are links to profession-specific reports These contain summary statistics, filtered by department. Only departments with 20 or more respondents are included.
 
 {{{links}}}

quarto/templates/professions.qmd

@@ -7,6 +7,11 @@ output:
 [comment]: <> (This document makes use of custom open and close tags for use with glue::glue() ("{{{" and "}}}", respectively))
 [comment]: <> (This document should only be edited as a template: quarto/templates/professions.qmd)
 
+:::{.callout-note}
+Please note, these are the initial summary statistics for CARS 2023 and further analysis will follow. 
+We advise linking directly to this document when distributing to ensure the most up to date information.
+:::
+
 Below are links to profession-specific reports These contain summary statistics, filtered by profession. Only professions with 20 or more respondents are included.
 
 {{{links}}}

quarto/templates/summary.qmd

@@ -54,12 +54,11 @@ CARS::wrap_outputs("coding-freq", plot, table)
 
 ### Access to and knowledge of programming languages
 
-### Access to coding tools
-
 Given a list of programming tools, we asked all respondents if the tool was available to use for their work. 
 
 Access to tools does not necessarily refer to official policy. Some analysts may have access to tools others cannot access within the same organisation.
 
+### Access to coding tools
 
 ```{r}
 
@@ -70,12 +69,12 @@ CARS::wrap_outputs("access", plot, table)
 
 ```
 
-### Knowledge of coding tools
-
 Given the same list of programming tools, all respondents were asked if they knew how to program with the tool to a level suitable for their work, answering "Yes", "No" or "Not required for my work". 
 
 Please note that capability in programming languages is self-reported here and was not objectively defined or tested. The statement "not required for my work" was similarly not defined.
 
+### Knowledge of coding tools
+
 ```{r}
 
 plot <- CARS::plot_stacked(tables$knowledge, n = samples$all, xlab = "Programming tool", colour_scale = "3scale", font_size = 14)
@@ -340,9 +339,7 @@ In this section we present RAP components and RAP scores.
 
 For each RAP component a percent positive was calculated. Positive responses were recorded where an answer of "regularly" or "all the time" was given. For documentation, a positive response was recorded if both code comments and README files questions received positive responses. For the continuous integration and dependency management components, responses of "yes" were recorded as positive.
 
-RAP scores are then calculated for each respondent as the total of their positive responses. A score of 3 suggests that a respondent is implementing 3 components of RAP at least regularly. 
-
-"Basic components" are the components which make up the [RAP MVP](https://github.com/best-practice-and-impact/rap_mvp_maturity_guidance/blob/master/Reproducible-Analytical-Pipelines-MVP.md). "Advanced components" are components which help improve reproducibility, but are not considered part of the minimum standard.
+"Basic" components are the components which make up the [RAP MVP](https://github.com/best-practice-and-impact/rap_mvp_maturity_guidance/blob/master/Reproducible-Analytical-Pipelines-MVP.md). "Advanced" components are components which help improve reproducibility, but are not considered part of the minimum standard.
 
 ### RAP components
 
@@ -367,27 +364,3 @@ table <- CARS::df_to_table(tables$rap_components,
 CARS::wrap_outputs("rap-comp", plot, table)
 
 ```
-
-### Basic RAP scores
-
-```{r}
-
-bar_colour <- CARS::get_2colour_scale(2)[2][[1]]
-
-plot <- CARS::plot_freqs(tables$basic_rap_scores, n = samples$code_at_work, bar_colour = bar_colour, xlab = "Basic RAP scores", font_size = 14)
-table <- CARS::df_to_table(tables$basic_rap_scores, n = samples$code_at_work, column_headers = c("Basic RAP scores", "Percent"))
-
-CARS::wrap_outputs("basic-rap-scores", plot, table)
-
-```
-
-### Advanced RAP scores
-
-```{r}
-
-plot <- CARS::plot_freqs(tables$advanced_rap_scores, n = samples$code_at_work, xlab = "Advanced RAP scores", font_size = 14)
-table <- CARS::df_to_table(tables$advanced_rap_scores, n = samples$code_at_work, column_headers = c("Advanced RAP scores", "Percent"))
-
-CARS::wrap_outputs("advanced-rap-scores", plot, table)
-
-```