From 59f0cda4be8557561ff546db71639b97e5f8214c Mon Sep 17 00:00:00 2001 From: addelany Date: Mon, 10 Jun 2024 15:12:25 -0500 Subject: [PATCH] add quotes to site link --- R/build_sites.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/build_sites.R b/R/build_sites.R index 0db5efc..6ce0b45 100644 --- a/R/build_sites.R +++ b/R/build_sites.R @@ -41,7 +41,7 @@ build_sites <- function(table_schema, # inflow_targets_asset_description <- paste0("This R code will return results for the relevant targets file.\n\n### R\n\n```{r}\n# Use code below\n\nurl <- ",inflow_targets_link, # "\ntargets <- readr::read_csv(url, show_col_types = FALSE)\n```") # - site_asset_description <- paste0("This R code will return results for the site metadata.\n\n### R\n\n```{r}\n# Use code below\n\nurl <- ",config$site_table_link, + site_asset_description <- paste0("This R code will return results for the site metadata.\n\n### R\n\n```{r}\n# Use code below\n\nurl <- ",'"',config$site_table_link,'"', "\nsites <- readr::read_csv(url, show_col_types = FALSE)\n```") forecast_score <- list(