make minor path fix

R/build_noaa_forecast.R

@@ -42,16 +42,10 @@ build_noaa_forecast <- function(table_schema,
 
   forecast_asset_link <- paste0("s3://anonymous@",
                                 aws_download_path,
-                                '/', path_item,
+                                 path_item,
                                 "/parquet/0",
                                 "?endpoint_override=",config$noaa_endpoint)
 
-  # scores_asset_link <- paste0("s3://anonymous@",
-  #                             aws_download_path,
-  #                             "/catalog/scores",
-  #                             "/project_id=", project_identifier,
-  #                             "?endpoint_override=",config$endpoint)
-
   forecast_asset_description <- paste0("Use `arrow` for remote access to the database. This R code will return results for NEON forecasts associated with the forecasting challenge.\n\n### R\n\n```{r}\n# Use code below\n\nall_results <- arrow::open_dataset(",forecast_asset_link,")\ndf <- all_results |> dplyr::collect()\n\n```
        \n\nYou can use dplyr operations before calling `dplyr::collect()` to `summarise`, `select` columns, and/or `filter` rows prior to pulling the data into a local `data.frame`. Reducing the data that is pulled locally will speed up the data download speed and reduce your memory usage.\n\n\n")