Merge pull request #51 from addelany/main

update spacing in target assets

R/build_targets.R

@@ -37,13 +37,13 @@ build_targets <- function(table_schema,
   inflow_targets_link <- config$inflow_targets_file
   met_targets_link <- config$met_targets_file
 
-  insitu_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\n url <- ",insitu_targets_link,
+  insitu_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 <- ",insitu_targets_link,
                                       "\ntargets <- readr::read_csv(url, show_col_types = FALSE)\n```")
 
-  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\n url <- ",inflow_targets_link,
+  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```")
 
-  met_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\n url <- ",met_targets_link,
+  met_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 <- ",met_targets_link,
                                              "\ntargets <- readr::read_csv(url, show_col_types = FALSE)\n```")
 
   forecast_score <- list(