From a50615743ec36b647db6b843c6c053934596a720 Mon Sep 17 00:00:00 2001
From: Scott Chamberlain <myrmecocystus@gmail.com>
Date: Fri, 22 Aug 2014 11:35:00 -0700
Subject: [PATCH] changed base url for erddap in only erddap_data fxn, testing
 a fix for a user, #51

---
 R/erddap.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
+}