diff --git a/R/utils.R b/R/utils.R index 74cbf2f4..3715e7d8 100644 --- a/R/utils.R +++ b/R/utils.R @@ -585,8 +585,10 @@ generate_css_dist_html <- function(tagdata, perl=TRUE)) || as_is) { if (is.list(tagdata)) glue::glue('') - else - glue::glue('') + else { + interpolated_link <- glue::glue('href="{tagdata}"') + glue::glue('') + } } else stop(sprintf("Invalid URL supplied in external_stylesheets. Please check the syntax used for this parameter."), call. = FALSE) @@ -599,7 +601,8 @@ generate_css_dist_html <- function(tagdata, } else { tagdata <- sub("^/", "", tagdata) - glue::glue('') + interpolated_link <- glue::glue('href="{prefix}{tagdata}?m={modified}"') + glue::glue('') } } } @@ -617,8 +620,10 @@ generate_js_dist_html <- function(tagdata, perl=TRUE)) || as_is) { if (is.list(tagdata)) glue::glue('') - else - glue::glue('') + else { + interpolated_link <- glue::glue('src="{tagdata}"') + glue::glue('') + } } else stop(sprintf("Invalid URL supplied. Please check the syntax used for this parameter."), call. = FALSE) @@ -631,7 +636,8 @@ generate_js_dist_html <- function(tagdata, } else { tagdata <- sub("^/", "", tagdata) - glue::glue('') + interpolated_link <- glue::glue('src="{prefix}{tagdata}?m={modified}"') + glue::glue('') } } }