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('')
}
}
}