Update server URLs in code

Suggestions added by Chris for the status-board to directly fetch our local server over docker instead of `141.142.216.168` which was a virtual machine at NCSA that’s apparently down

Author: Sweetdevil144

R/fct_workflow_status.R

@@ -11,7 +11,7 @@
 
 
 workflow_status <- function(report){
-  server <- rpecanapi::connect("http://141.142.217.168/", "carya", "illinois")
+  server <- rpecanapi::connect("http://pecan.localhost/", "carya", "illinois")
   id <- report$workflow_id
   result <- data.frame()
   for (i in id) {

inst/ed2-test.R

@@ -7,7 +7,7 @@ library(httr)
 library(glue)
 
 # Modify for your target machine and authentication
-server <- connect("http://141.142.217.168/", "ashiklom", "admin")
+server <- connect("http://pecan.localhost/", "ashiklom", "admin")
 
 # List all available models
 models <- GET(

inst/maespa-test.R

@@ -7,7 +7,7 @@ library(httr)
 library(glue)
 
 # Modify for your target machine and authentication
-server <- connect("http://141.142.217.168/", "ashiklom", "admin")
+server <- connect("http://pecan.localhost/", "ashiklom", "admin")
 
 # List all available models
 models <- GET(

inst/run-test-list.R

@@ -7,7 +7,7 @@ library(httr)
 library(glue)
 
 # Modify for your target machine and authentication
-server <- connect("http://141.142.217.168/", "ashiklom", "admin")
+server <- connect("http://pecan.localhost/", "ashiklom", "admin")
 
 # List all available models
 models <- GET(

inst/sipnet-test.R

@@ -7,7 +7,7 @@ library(httr)
 library(glue)
 
 # Modify for your target machine and authentication
-server <- connect("http://141.142.217.168/", "ashiklom", "admin")
+server <- connect("http://pecan.localhost/", "ashiklom", "admin")
 
 # List all available models
 models <- GET(