link fill (#309)

bernardo-sieira · web-flow · commit dab876aafb6a · 2026-03-02T14:20:47.000-03:00
diff --git a/R/download.R b/R/download.R
@@ -344,8 +344,7 @@ external_download <- function(dataset = NULL, source = NULL, year = NULL,
         stringr::str_replace("\\$year\\$", as.character(param$year))
     }
     if (!is.null(param$state)) {
-      path <- path %>%
-        stringr::str_replace("\\$state\\$", param$state)
+      path <- sub("$state$", param$state, path, fixed = TRUE)
     }
     if (!is.null(param$file_name)) {
       path <- path %>%

Original file line number	Diff line number	Diff line change
`@@ -344,8 +344,7 @@ external_download <- function(dataset = NULL, source = NULL, year = NULL,`
`344`	`344`	`stringr::str_replace("\\$year\\$", as.character(param$year))`
`345`	`345`	`}`
`346`	`346`	`if (!is.null(param$state)) {`
`347`		`- path <- path %>%`
`348`		`- stringr::str_replace("\\$state\\$", param$state)`
	`347`	`+ path <- sub("$state$", param$state, path, fixed = TRUE)`
`349`	`348`	`}`
`350`	`349`	`if (!is.null(param$file_name)) {`
`351`	`350`	`path <- path %>%`