Merge pull request #117 from generable/fetch-doses-error

fix possible duplicate names in other tables

R/geco_events.R

@@ -57,7 +57,7 @@ pivot_events_wider <- function(.d) {
   d <- as_dataframe.geco_api_data(events, flatten_names = c('params'))
   if ('params' %in% names(d)) {
     d <- d %>%
-      tidyr::unnest_wider(.data$params)
+      tidyr::unnest_wider(.data$params, names_repair = 'universal')
   }
   suppressWarnings({
     d <- d %>%

R/geco_lesions.R

@@ -95,7 +95,7 @@ fetch_lesions <- function(project = NULL, project_version_id = NULL, annotate =
   lesions <- geco_api(LESIONS, project_version_id = pv_id, url_query_parameters = filters)
   d <- as_dataframe.geco_api_data(lesions, flatten_names = 'params')
   if (nrow(d) > 0 && 'params' %in% names(d) && isTRUE(annotate)) {
-    d <- d %>% tidyr::unnest_wider(.data$params)
+    d <- d %>% tidyr::unnest_wider(.data$params, names_repair = 'universal')
   }
   suppressWarnings({
     d <- d %>%

R/geco_regimens.R

@@ -11,7 +11,7 @@
     purrr::map('treatments')
 
   td <- purrr::map_dfr(treatments, ~ as_dataframe.geco_api_data(content = .x, flatten_names = 'drug'), .id = 'regimen_id') %>%
-    tidyr::unnest_wider(.data$drug, names_sep = '_') %>%
+    tidyr::unnest_wider(.data$drug, names_sep = '_', names_repair = 'universal') %>%
     dplyr::rename_at(.vars = dplyr::vars(-dplyr::starts_with('drug'),
                                          -dplyr::starts_with('regimen')),
                      .funs = .add_prefix,

R/geco_trial_arms.R

@@ -29,7 +29,7 @@
     }
     if ('params' %in% names(ta) && all(purrr::map_int(ta$params, nrow) == 1)) {
       ta <- ta %>%
-        tidyr::unnest_wider(.data$params)
+        tidyr::unnest_wider(.data$params, names_repair = 'universal')
     }
   }
   suppressWarnings({