diff --git a/R/read.R b/R/read.R index a544a07..830155d 100644 --- a/R/read.R +++ b/R/read.R @@ -312,7 +312,7 @@ get_ed_grds <- function( message(glue(" griddap({date}, ...)")) nc <- try(griddap( - attr(ed_info, "datasetid"), + datasetx = attr(ed_info, "datasetid"), fields = ed_var, url = ed_info$base_url, longitude = c(bb["xmin"], bb["xmax"]), @@ -324,7 +324,7 @@ get_ed_grds <- function( stop(glue(" Problem fetching data from ERDDAP server using: rerddap::griddap( - x = '{attr(ed_info, 'datasetid')}', + datasetx = '{attr(ed_info, 'datasetid')}', fields = '{ed_var}', url = '{ed_info$base_url}', longitude = c({bb['xmin']}, {bb['xmax']}), diff --git a/vignettes/extractr.Rmd b/vignettes/extractr.Rmd index ca51de4..9488792 100644 --- a/vignettes/extractr.Rmd +++ b/vignettes/extractr.Rmd @@ -26,7 +26,6 @@ devtools::load_all() ```{r} if (!require("librarian")) install.packages("librarian") -library(librarian) librarian::shelf( dplyr, here, mapview, sf)