data-raw/netcdf.R

In huizezhang-sherry/weatherdata: A data package to store Australia climate data

## code to prepare `netcdf` dataset goes here
library(ecmwfr)
my_request <- list(
  product_type = "reanalysis",
  format = "netcdf",
  pressure_level = "10",
  year = "2002",
  month = c("09", "10"),
  day = c("04", "22", "26", "30"),
  time = "00:00",
  area = c(-5, -180, -90, 180),
  variable = c("specific_humidity", 'geopotential'),
  dataset_short_name = "reanalysis-era5-pressure-levels",
  target = "era5-pressure.nc"
)

wf_request(
  user = "113339",
  request = my_request,
  transfer = TRUE,
  path = here::here("inst/ncdf/"))

# path <- system.file("ncdf/era5-pressure.nc", package = "weatherdata")
# raw <- ncdf4::nc_open(path)