Skip to content

Commit

Permalink
fixing ensemble issue
Browse files Browse the repository at this point in the history
  • Loading branch information
rqthomas committed Oct 9, 2023
1 parent 022dd85 commit e2bf973
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/noaa_gefs.R
Original file line number Diff line number Diff line change
Expand Up @@ -127,9 +127,9 @@ noaa_gefs_stage <- function(stage = "stage1",
message(paste("establishing connection to", stage, "at", endpoint, "..."))
s3 <- noaa_gefs(version, endpoint)
if (!is.na(as.Date(start_date))) {
ds <- arrow::open_dataset(s3$path(stage))
ds <- arrow::open_dataset(s3$path(stage)) |> dplyr::filter(parameter <= 31)
} else {
ds <- arrow::open_dataset(s3$path(stage), partitioning = partitioning)
ds <- arrow::open_dataset(s3$path(stage), partitioning = partitioning) |> dplyr::filter(parameter <= 31)
}
if(verbose)
message(paste0("connected! Use dplyr functions to filter and summarise.\n",
Expand Down

0 comments on commit e2bf973

Please sign in to comment.