changed base url for erddap in only erddap_data fxn, testing a fix fo…

…r a user, #51
ropensci · Aug 22, 2014 · a506157 · a506157
1 parent 1cd105a
commit a506157
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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))
-}
+}