diff --git a/R/build_forecast_scores.R b/R/build_forecast_scores.R index 45f7efd..06bc2ad 100644 --- a/R/build_forecast_scores.R +++ b/R/build_forecast_scores.R @@ -39,11 +39,13 @@ build_forecast_scores <- function(table_schema, aws_asset_link <- paste0('"',"s3://anonymous@", aws_download_path, + "/project_id=", config$project_id, #"/model_id=", model_id, "?endpoint_override=",config$endpoint,'"') aws_href_link <- paste0("s3://anonymous@", aws_download_path, + "/project_id=", config$project_id, #"/model_id=", model_id, "?endpoint_override=",config$endpoint) diff --git a/R/generate_model_assets.R b/R/generate_model_assets.R index 6f5b5dc..5b09acd 100644 --- a/R/generate_model_assets.R +++ b/R/generate_model_assets.R @@ -38,7 +38,7 @@ generate_model_assets <- function(full_var_df, aws_path, model_code_link){ "?endpoint_override=",config$endpoint), 'description' = paste0("Use `arrow` for remote access to the database. This R code will return results for this variable and model combination.\n\n### R\n\n```{r}\n# Use code below\n\nall_results <- arrow::open_dataset(",paste0('"',"s3://anonymous@", aws_path, - "project_id=", full_var_df$project_id[i], + "/project_id=", full_var_df$project_id[i], "/duration=", full_var_df$duration[i], "/variable=", full_var_df$variable[i], "/model_id=", m,