From b7edb9dc4fa486835310373b2fbdc92410065ccb Mon Sep 17 00:00:00 2001 From: Indrajeet Patil Date: Mon, 2 Oct 2023 15:44:02 +0200 Subject: [PATCH] fix? --- dashboard.Rmd | 4 ++-- inst/raw-scripts/workflow_badge_urls_db.R | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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")