diff --git a/dashboard.Rmd b/dashboard.Rmd
index c1beb24..8cad80f 100644
--- 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
index 60689dc..be0ec57 100644
--- 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")