fix download url for extracts in utility function

rpodcast · May 9, 2024 · 203e37c · 203e37c
1 parent 55eb7e2
commit 203e37c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -38,7 +38,7 @@ get_pointblank_data_extracts <- function(pointblank_object, exports_root_path, d
  } else {
  tmp_file <- tempfile(pattern = .x)
  download.file(
- url = paste0(url, glue::glue("/{.x}.rds")),
+ url = paste0(exports_root_path, glue::glue("{.x}.rds")),
  destfile = tmp_file
  )
  }