In mikejohnson51/opendap.catalog: R OpenDap Client

knitr::opts_chunk$set(
  collapse = TRUE,
  warning = FALSE,
  message = FALSE,
  comment = "#>"
)

library(opendap.catalog)
library(terra)
library(dplyr)
library(future)
plan(sequential)

huss = dplyr::filter(params, id == 'maca_month', variable == 'huss')


cropped = dap_crop(catolog = huss,
                    AOI = AOI::aoi_get(state = "IA"),
                    startDate = "2010-01-01",
                    endDate = "2010-12-31",
                   verbose = FALSE)

glimpse(cropped)

system.time({
 sequential = dap_get(dap = cropped)
})

library(future)
plan(multisession, workers = 7)

system.time({
  ms = dap_get(cropped)
})

mikejohnson51/opendap.catalog documentation built on Jan. 27, 2023, 1:25 a.m.