Remove regex special character from dataset name variable and add in …

…open_dataset() call

scripts/process-data/healthkitv2electrocardiogram.R

@@ -100,7 +100,7 @@ ecg_stat_summarize <- function(df) {
   return(result)
 }
 
-dataset <- "healthkitv2electrocardiogram$"
+dataset <- "healthkitv2electrocardiogram"
 
 cat(paste0("\n----", glue::glue("Transforming data for {dataset}"), "----\n"))
 
@@ -117,7 +117,7 @@ participants_to_exclude <-
 
 # Load the desired subset of this dataset in memory and do some feature engineering for derived variables
 df <- 
-  arrow::open_dataset(s3$path(str_subset(dataset_paths, dataset))) %>% 
+  arrow::open_dataset(s3$path(str_subset(dataset_paths, paste0(dataset, "$")))) %>% 
   select(all_of(c(vars))) %>% 
   dplyr::filter(!(ParticipantIdentifier %in% participants_to_exclude)) %>% 
   filter(Classification %in% c("SinusRhythm", "AtrialFibrillation")) %>%