From 834092b61aeefb47f541c60f0376fc641ef2b551 Mon Sep 17 00:00:00 2001 From: Rebecca Wardrop Date: Fri, 14 Feb 2025 13:08:04 -0500 Subject: [PATCH] name change code --- tests/website_csv_name_change.R | 35 +++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 tests/website_csv_name_change.R diff --git a/tests/website_csv_name_change.R b/tests/website_csv_name_change.R new file mode 100644 index 0000000..14e41f5 --- /dev/null +++ b/tests/website_csv_name_change.R @@ -0,0 +1,35 @@ +library(obstinit) + + +# change site name to match website name ---------------------------------- +site_names |> filter(grepl("Dickinson", site_name)) |> distinct(site_name) |> select(site_name) + +site_names <- site_names |> + dplyr::mutate( + site_name = dplyr::case_when( + site_name == "Dickinson County Hospital Iron Mountain" ~ "Marshfield Medical Center Dickinson", + TRUE ~ site_name + ) + ) + +site_names_mdhhs |> filter(grepl("Dickinson", site_name)) |> distinct(site_name) |> select(site_name) + +site_names_mdhhs <- site_names_mdhhs |> + dplyr::mutate( + site_name = dplyr::case_when( + site_name == "Marshfield Medical Center- Dickinson" ~ "Marshfield Medical Center Dickinson", + TRUE ~ site_name + ) + ) + +usethis::use_data(site_names, overwrite = T) +usethis::use_data(site_names_mdhhs, overwrite = T) +devtools::document() + + +# test process ------------------------------------------------------------ +create_website_upload_csv( + report_name = "test", + tags = "Other", + output_path = "/Users/rebeccawardrop/Desktop/" +)