diff --git a/R/erddap.R b/R/erddap.R index 26e9e1e4..808fe8b2 100644 --- a/R/erddap.R +++ b/R/erddap.R @@ -124,7 +124,7 @@ erddap_data <- function(datasetid, ..., fields=NULL, distinct=FALSE, orderby=NUL orderbymax=NULL, orderbymin=NULL, orderbyminmax=NULL, units=NULL, callopts=list()) { fields <- paste(fields, collapse = ",") - url <- "http://coastwatch.pfeg.noaa.gov/erddap/tabledap/%s.csv?%s" + url <- "http://oceanview.pfeg.noaa.gov/erddap/tabledap/%s.csv?%s" url <- sprintf(url, datasetid, fields) args <- list(...) distinct <- if(distinct) 'distinct()' else NULL @@ -268,4 +268,4 @@ erddap_search <- function(query, page=NULL, page_size=NULL, callopts=list()){ print.erddap_search <- function(x, ...){ cat(sprintf("%s results, showing first 20", nrow(x$info)), "\n") print(head(x$info, n = 20)) -} \ No newline at end of file +}