From ccae8e2898496d4b9eba423c1406486a6a61e0ed Mon Sep 17 00:00:00 2001 From: addelany Date: Fri, 31 May 2024 14:00:55 -0500 Subject: [PATCH] fix keywords --- R/build_model.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/R/build_model.R b/R/build_model.R index 0de2286..c097d18 100644 --- a/R/build_model.R +++ b/R/build_model.R @@ -36,12 +36,13 @@ build_model <- function(model_id, table_schema, table_description, full_var_df, - code_web_link) { + code_web_link, + model_keywords) { preset_keywords <- list("Forecasting", config$project_id) variables_string <- paste(var_values, collapse = ", ") - variables_reformat <- as.list(var_values) + #variables_reformat <- as.list(var_values) site_reformat <- paste(site_values, collapse = ", ") aws_asset_link <- paste0('"',"s3://anonymous@", @@ -91,7 +92,7 @@ build_model <- function(model_id, ) ), "license"= "CC0-1.0", - "keywords"= c(preset_keywords, variables_reformat), + "keywords"= model_keywords, "table:columns" = stac4cast::build_table_columns_full_bucket(table_schema, table_description) #"table:columns" = build_table_columns_full_bucket(table_schema, table_description) ),