Configure /config/config.R

R/fct_workflow_status.R

@@ -8,10 +8,10 @@
 #' @import tibble
 #'
 #' @noRd
-
+source("config/config.R")
 
 workflow_status <- function(report){
-  server <- rpecanapi::connect("http://141.142.217.168/", "carya", "illinois")
+  server <- rpecanapi::connect(host_url, "carya", "illinois")
   id <- report$workflow_id
   result <- data.frame()
   for (i in id) {

README.md

@@ -29,15 +29,20 @@ The PEcan Status Board can be installed locally from [GitHub](https://github.com
 # install.packages("devtools")
 devtools::install_github("PecanProject/pecan-status-board")
 ```
-``` r 
+
+``` r
 library("statusboard")
 ```
+
 ### Running The Dashboard
+
+Now, within the `config/config.R` file, you can set the `host_url` to the PEcAn dockerised server you want to monitor. By default, it is set to the PEcAn API server hosted at [http://pecan.localhost/](http://pecan.localhost/).
+
 ``` r
 # Run this code to start the dashboard locally
 statusboard::run_app()
-
 ```
+
 ## Visualization
 
 Data Visualization refers to the graphical representation of information and data in the form of a graph, or chart, or bar, or any other format. The purpose of Data Visualization is to convey information and results quickly and easily.

config/config.R

@@ -0,0 +1,2 @@
+# This is the URL that the R package will use to connect to the Pecan service.
+host_url <- "http://pecan.localhost/"

inst/ed2-test.R

@@ -5,9 +5,10 @@
 library(purrr)
 library(httr)
 library(glue)
+source("config/config.R")
 
 # Modify for your target machine and authentication
-server <- connect("http://141.142.217.168/", "ashiklom", "admin")
+server <- connect(host_url, "ashiklom", "admin")
 
 # List all available models
 models <- GET(
@@ -43,8 +44,8 @@
   # Only test models that are available on the target machine
   inner_join(models, c("model_name", "revision")) %>%
   mutate(
     start_date = if_else(is.na(start_date), default_start_date, as.character(start_date)),
     end_date = if_else(is.na(end_date), default_end_date, as.character(end_date)),
     # TODO: Add more inputs here
     inputs = pmap(., configure_inputs),
     pfts = strsplit(as.character(pfts), "|", fixed = TRUE),
@@ -59,7 +60,7 @@
   )
 
 test_runs <- test_list %>%
    select_if(colnames(.) %in% names(formals(submit.workflow))) %>%
   mutate(submit = pmap(., submit.workflow, server = server))
 
 #Interactively check the status of runs
@@ -81,25 +82,25 @@
     print(n = Inf)
 }
 
 stages$success_status <-ifelse(grepl("DONE", stages$stage), TRUE, FALSE)
 models_name <- search.models(server)
 sites_name <- search.sites(server)
 stages$model_name <- models_name$models$model_name[match(stages$model_id, models_name$models$model_id)]
 stages$site_name <- sites_name$sites$sitename[match(stages$site_id, sites_name$sites$id)]
 stages$met <- test_list$met[match(stages$inputs, test_list$inputs)]
 
 # Get Failed Workflows Logs
 
 wf_log <- as.data.frame(stages)
 path <- "inst/error-logs/ED2/"
 unlink(paste0(path,'*'))
 
 #failed_workflows <- wf_log[!(wf_log$success_status=="TRUE"),]
 
 wf_id <- wf_log$workflow_id
 
 for (i in wf_id) {
   download.workflow.file(server, workflow_id=i, 
                          filename="workflow.Rout", save_as=paste0(path,i,".Rout"))
 }
 

inst/maespa-test.R

@@ -5,9 +5,10 @@ library(tibble)
 library(purrr)
 library(httr)
 library(glue)
+source("config/config.R")
 
 # Modify for your target machine and authentication
-server <- connect("http://141.142.217.168/", "ashiklom", "admin")
+server <- connect(host_url, "ashiklom", "admin")
 
 # List all available models
 models <- GET(

inst/run-test-list.R

@@ -5,9 +5,10 @@ library(tibble)
 library(purrr)
 library(httr)
 library(glue)
+source("config/config.R")
 
 # Modify for your target machine and authentication
-server <- connect("http://141.142.217.168/", "ashiklom", "admin")
+server <- connect(host_url, "ashiklom", "admin")
 
 # List all available models
 models <- GET(

inst/sipnet-test.R

@@ -5,9 +5,10 @@ library(tibble)
 library(purrr)
 library(httr)
 library(glue)
+source("config/config.R")
 
 # Modify for your target machine and authentication
-server <- connect("http://141.142.217.168/", "ashiklom", "admin")
+server <- connect(host_url, "ashiklom", "admin")
 
 # List all available models
 models <- GET(