Fix Rmd issue by switching from combined service to clinical service

reports/pharmacy_first_report.Rmd

@@ -34,11 +34,9 @@ if (Sys.getenv("OPENSAFELY_BACKEND") != "") {
 
 # Define dictionaries with tidy names and mappings for measures
 pf_measures_name_dict <- list(
-  # blood_pressure_service = "Blood Pressure Service",
-  # contraception_service = "Contraception Service",
   consultation_service = "Consultation Service",
   pharmacy_first_service = "Pharmacy First Service",
-  combined_service = "Pharmacy First Services",
+  # combined_service = "Pharmacy First Services",
   acute_otitis_media = "Acute Otitis Media",
   herpes_zoster = "Herpes Zoster",
   acute_sinusitis = "Acute Sinusitis",
@@ -49,11 +47,9 @@ pf_measures_name_dict <- list(
 )
 
 pf_measures_name_mapping <- list(
-  # blood_pressure_service = "clinical_service",
-  # contraception_service = "clinical_service",
   consultation_service = "clinical_service",
   pharmacy_first_service = "clinical_service",
-  combined_pf_service = "pharmacy_first_services",
+  # combined_pf_service = "pharmacy_first_services",
   acute_otitis_media = "clinical_condition",
   herpes_zoster = "clinical_condition",
   acute_sinusitis = "clinical_condition",
@@ -162,7 +158,7 @@ plot_measures(
 ```{r, message=FALSE, warning=FALSE, fig.height=8, fig.width=8}
 # Select measures and breakdown
 df_measures_selected <- df_measures %>%
-  filter(measure_desc == "pharmacy_first_services") %>%
+  filter(measure_desc == "clinical_service") %>%
   filter(group_by == "Age band")
 
 # Create visualisation
@@ -184,7 +180,7 @@ plot_measures(
 ```{r, message=FALSE, warning=FALSE, fig.height=8, fig.width=8}
 # Select measures and breakdown
 df_measures_selected <- df_measures %>%
-  filter(measure_desc == "pharmacy_first_services") %>%
+  filter(measure_desc == "clinical_service") %>%
   filter(group_by == "Sex")
 
 # Create visualisation
@@ -206,7 +202,7 @@ plot_measures(
 ```{r, message=FALSE, warning=FALSE, fig.height=8, fig.width=8}
 # Select measures and breakdown
 df_measures_selected <- df_measures %>%
-  filter(measure_desc == "pharmacy_first_services") %>%
+  filter(measure_desc == "clinical_service") %>%
   filter(group_by == "IMD")
 
 # Create visualisation
@@ -228,7 +224,7 @@ plot_measures(
 ```{r, message=FALSE, warning=FALSE, fig.height=8, fig.width=8}
 # Select measures and breakdown
 df_measures_selected <- df_measures %>%
-  filter(measure_desc == "pharmacy_first_services") %>%
+  filter(measure_desc == "clinical_service") %>%
   filter(group_by == "Region")
 
 # Create visualisation
@@ -250,7 +246,7 @@ plot_measures(
 ```{r, message=FALSE, warning=FALSE}
 # Select measures and breakdown
 df_measures_selected <- df_measures %>%
-  filter(measure_desc == "pharmacy_first_services") %>%
+  filter(measure_desc == "clinical_service") %>%
   filter(group_by == "Ethnicity")
 
 # Create visualisation