fix?

easystats · Oct 2, 2023 · b7edb9d · b7edb9d
1 parent 0fc6cc2
commit b7edb9d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/dashboard.Rmd b/dashboard.Rmd
@@ -338,9 +338,9 @@ badge_url_data_generator_script <- system.file(
   "raw-scripts", "workflow_badge_urls_db.R",
   package = "easystatsdashboard"
 )
-callr::rscript(badge_url_data_generator_script)
+source(badge_url_data_generator_script, local = knitr::knit_global())
 
-workflow_status <- readRDS("badge_url_data.rds") %>% as_tibble()
+workflow_status <- url_df %>% as_tibble()
 
 extract_workflow_status <- function(url) {
   response <- httr::GET(url)

diff --git a/inst/raw-scripts/workflow_badge_urls_db.R b/inst/raw-scripts/workflow_badge_urls_db.R
@@ -49,4 +49,4 @@ easystats_packages <- easystats:::.packages_on_cran()
 url_list <- purrr::map(easystats_packages, ~ generate_workflow_status_badge_urls("easystats", .x))
 url_df <- as.data.frame(purrr::set_names(url_list, easystats_packages))
 url_df <- dplyr::mutate(url_df, workflow = main_workflow_names, .before = 1L)
-saveRDS(url_df, "badge_url_data.rds")
+# saveRDS(url_df, "badge_url_data.rds")