diff --git a/R/fct_workflow_status.R b/R/fct_workflow_status.R index cbcf110..29e8628 100644 --- a/R/fct_workflow_status.R +++ b/R/fct_workflow_status.R @@ -9,10 +9,8 @@ #' #' @noRd source("config/config.R") -host_url <- host_url workflow_status <- function(report){ - library(rpecanapi) server <- rpecanapi::connect(host_url, "carya", "illinois") id <- report$workflow_id result <- data.frame() diff --git a/inst/ed2-test.R b/inst/ed2-test.R index 3a96205..0d9d619 100755 --- a/inst/ed2-test.R +++ b/inst/ed2-test.R @@ -6,7 +6,6 @@ library(purrr) library(httr) library(glue) source("config/config.R") -host_url <- host_url # Modify for your target machine and authentication server <- connect(host_url, "ashiklom", "admin") diff --git a/inst/maespa-test.R b/inst/maespa-test.R index 036b7de..bce6ac2 100755 --- a/inst/maespa-test.R +++ b/inst/maespa-test.R @@ -6,7 +6,6 @@ library(purrr) library(httr) library(glue) source("config/config.R") -host_url <- host_url # Modify for your target machine and authentication server <- connect(host_url, "ashiklom", "admin") diff --git a/inst/run-test-list.R b/inst/run-test-list.R index 4a39283..f9523c9 100755 --- a/inst/run-test-list.R +++ b/inst/run-test-list.R @@ -6,7 +6,6 @@ library(purrr) library(httr) library(glue) source("config/config.R") -host_url <- host_url # Modify for your target machine and authentication server <- connect(host_url, "ashiklom", "admin") diff --git a/inst/sipnet-test.R b/inst/sipnet-test.R index 76b7199..7eac595 100755 --- a/inst/sipnet-test.R +++ b/inst/sipnet-test.R @@ -6,7 +6,6 @@ library(purrr) library(httr) library(glue) source("config/config.R") -host_url <- host_url # Modify for your target machine and authentication server <- connect(host_url, "ashiklom", "admin")