data-raw/DATASET.R

In ErikKusch/KrigR: Downloading, Aggregating, and Kriging of ECMWF CDS-Data

## code to prepare `DATASET` dataset goes here

## Mountains_df
Mountains_df <- data.frame(
  Summit = c("Fannaråki", "Store Skagastølstind", "Galdhøppigen", "Knutshøe"),
  Lon = c(7.6833, 7.7999, 8.2522, 9.2639),
  Lat = c(61.5831, 61.4573, 61.6333, 61.5125)
)
usethis::use_data(Mountains_df)

## CDS_ras
API_Key <- "Nope"
API_User <- "Nope"
numberOfCores <- 1
Extent_ext <- terra::ext(c(4, 13, 58, 63.5))

CDS_rast <- CDownloadS(
  Variable = "2m_temperature",
  DateStart = "1995-01-01 00:00",
  DateStop = "1995-01-05 23:00",
  TZone = "CET",
  TResolution = "day",
  Extent = Extent_ext, # ext(Jotunheimen_poly)
  Dir = file.path(getwd(), "inst", "extdata"),
  FileName = "CentralNorway",
  API_User = API_User,
  API_Key = API_Key
)
usethis::use_data(CDS_rast)

## Jotunheimen_poly
Jotunheimen_poly <- sf::st_read("data-raw/Shape/Shape-polygon.shp")
sf::st_transform(Jotunheimen_poly, crs = sf::st_crs(CDS_rast))
usethis::use_data(Jotunheimen_poly)

## Bioclimatic variables
CN_BC <- BioClim(
  Temperature_Var = "2m_temperature",
  Temperature_DataSet = "reanalysis-era5-land",
  Temperature_Type = NA,
  Water_Var = "volumetric_soil_water_layer_1",
  Water_DataSet = "reanalysis-era5-land-monthly-means",
  Water_Type = "monthly_averaged_reanalysis",
  Y_start = 1970,
  Y_end = 1979,
  TZone = "CET",
  Extent = CN_ext,
  Dir = getwd(),
  FileName = "CN_BC",
  FileExtension = ".nc",
  Compression = 9,
  API_User = API_User,
  API_Key = API_Key,
  TChunkSize = 6000, TryDown = 10, TimeOut = 36000,
  Cores = parallel::detectCores(),
  verbose = TRUE,
  Keep_Raw = FALSE, Keep_Monthly = FALSE
)
usethis::use_data(CN_BC)