Update server URLs in code

R/connect.R

@@ -12,7 +12,7 @@
 ##' @return A server object that can be passed into other functions for making requests to the PEcAn API
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 
 connect <- function(url, username=NULL, password=NULL){
   res <- list(url=sub('^/|/$','',url), username=username, password=password)

R/download.input.R

@@ -11,7 +11,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Download the 'niwot.clim' file (id = 99000000003)
 ##' download.input(server, input_id='99000000003', save_as='local.niwot.clim')

R/download.run.input.R

@@ -11,7 +11,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Download the 'sipnet.clim' input for the run with id = '99000000282'
 ##' download.run.input(server, run_id=99000000282, filename='sipnet.clim', save_as='test.sipnet.clim')

R/download.run.output.R

@@ -11,7 +11,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Download the 'README.txt' output for the run with id = '99000000282'
 ##' download.run.output(server, run_id=99000000282, filename='README.txt', save_as='test.README.txt')

R/download.workflow.file.R

@@ -11,7 +11,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Download the 'ensemble.ts.99000000017.NPP.2002.2002.Rdata' output file for the workflow with id = 99000000031
 ##' download.workflow.file(server, workflow_id=99000000031, filename='ensemble.ts.99000000017.NPP.2002.2002.Rdata')

R/get.format.R

@@ -8,7 +8,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of the Ameriflux.level4.h format (id = 19)
 ##' res <- get.format(server, format_id=19)

R/get.model.R

@@ -8,7 +8,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of the SIPNET ssr model (id = 1000000022)
 ##' res <- get.model(server, model_id=1000000022)

R/get.pft.R

@@ -8,7 +8,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of the temperate.deciduous PFT (id = 41)
 ##' res <- get.pft(server, pft_id=41)

R/get.run.R

@@ -9,7 +9,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of run with id = '1002042201'
 ##' res <- get.run(server, 1002042201)

R/get.runs.R

@@ -10,7 +10,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of all runs for the workflow with ID '1000009172'
 ##' res <- get.runs(server, workflow_id=1000009172)

R/get.site.R

@@ -8,7 +8,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of the WillowCreek(US-WCr) site (id = 676)
 ##' res <- get.site(server, site_id=676)

R/get.status.R

@@ -8,7 +8,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' res <- get.status(server)
 
 get.status <- function(server){

R/get.workflow.R

@@ -9,7 +9,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of workflow with id = '1000009172'
 ##' res <- get.workflow(server, workflow_id=1000009172)

R/get.workflow.status.R

@@ -9,7 +9,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of workflow with id = '1000009172'
 ##' res <- get.workflow.status(server, workflow_id=1000009172)

R/get.workflows.R

@@ -13,7 +13,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get list of all workflows
 ##' res1 <- get.workflows(server)

R/ping.R

@@ -8,7 +8,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' res <- ping(server)
 
 ping <- function(server){

R/plot_run_vars.R

@@ -14,7 +14,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Plot the Gross Primary Productivity vs Time for the run with ID '99000000282' for the year 2002
 ##' plot_run_vars(server, run_id=99000000282, year=2002, y_var="GPP")

R/search.formats.R

@@ -11,7 +11,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of all formats
 ##' res1 <- search.formats(server)

R/search.inputs.R

@@ -14,7 +14,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of all inputs
 ##' res1 <- search.inputs(server)

R/search.models.R

@@ -11,7 +11,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of all models
 ##' res1 <- search.models(server)

R/search.pfts.R

@@ -13,7 +13,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of all PFTs
 ##' res1 <- search.pfts(server)

R/search.sites.R

@@ -10,7 +10,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Get details of all sites
 ##' res1 <- search.sites(server)

R/submit.workflow.R

@@ -20,7 +20,7 @@
 ##' @author Tezan Sahu, Alexey Shiklomanov
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' 
 ##' # Submit a workflow with the SIPNET r136 model (id = 1000000014) for Niwot Ridge site (id = 772) with 
 ##' # PFT as 'temperate.coniferous' starting from 01-01-2002 to 31-12-2003 using the input met data with

R/submit.workflow.json.R

@@ -9,7 +9,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' res <- submit.workflow.json(server, "api.sipnet.json")
 
 submit.workflow.json <- function(server, jsonFile){

R/submit.workflow.xml.R

@@ -9,7 +9,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' res <- submit.workflow.xml(server, "api.sipnet.xml")
 
 submit.workflow.xml <- function(server, xmlFile){

R/submit.workflows.csv.R

@@ -10,7 +10,7 @@
 ##' @author Tezan Sahu
 ##' @export
 ##' @examples
-##' server <- connect(url="http://localhost:8000", username="carya", password="illinois")
+##' server <- connect(url="http://pecan.localhost:80", username="carya", password="illinois")
 ##' res <- submit.workflows.csv(server, "default_tests.csv")
 
 submit.workflows.csv <- function(server, csvFile) {