please work!

rpodcast · Mar 18, 2024 · 5067306 · 5067306
1 parent c31b83b
commit 5067306
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 7 deletions.
diff --git a/.devcontainer/Dockerfile b/.devcontainer/Dockerfile
@@ -25,7 +25,6 @@ RUN apt-get update \
 
 # install R package dependencies
 # add / remove packages from line below (but keep httpgd, renv, languageserver
-RUN install2.r renv httpgd languageserver shiny shinylive reactable httpuv arrow fs s3fs dplyr pointblank gt reclin2 epoxy logger purrr deps rhino reactable.extras crosstalk reactablefmtr
+RUN install2.r renv httpgd languageserver shiny shinylive reactable httpuv arrow fs s3fs dplyr pointblank gt reclin2 epoxy logger purrr deps rhino reactable.extras crosstalk reactablefmtr anytime
 
-RUN installGithub.r timelyportfolio/dataui
 
diff --git a/.devcontainer/Dockerfile_rstudio b/.devcontainer/Dockerfile_rstudio
@@ -25,7 +25,6 @@ RUN apt-get update \
 
 # install R package dependencies
 # add / remove packages from line below (but keep renv=
-RUN install2.r renv shiny shinylive reactable httpuv arrow fs s3fs dplyr pointblank gt reclin2 epoxy logger purrr deps rhino reactable.extras crosstalk reactablefmtr
+RUN install2.r renv shiny shinylive reactable httpuv arrow fs s3fs dplyr pointblank gt reclin2 epoxy logger purrr deps rhino reactable.extras crosstalk reactablefmtr anytime
 
-RUN installGithub.r timelyportfolio/dataui
 
diff --git a/.nojekyll b/.nojekyll
diff --git a/_quarto,yml b/_quarto,yml
@@ -1,5 +1,4 @@
 ---
 project:
-  type: default
-  execute-dir: file
+  type: website
 ---
diff --git a/index.qmd b/index.qmd
@@ -13,7 +13,7 @@ format:
 execute: 
   echo: false
 params:
-  dev_mode: false
+  dev_mode: true
   pointblank_object_path: "https://podcast20-projects.us-east-1.linodeobjects.com/exports/podcastdb_pointblank_object/podcastdb_pointblank_object"
   podcast_dup_df_path: "https://podcast20-projects.us-east-1.linodeobjects.com/exports/podcast_dup_df.rds"
   podcast_analysis_df_path: "https://podcast20-projects.us-east-1.linodeobjects.com/exports/analysis_metrics_df.rds"
@@ -82,6 +82,10 @@ list(
 analysis_metrics_df <- analysis_metrics_df |>
   select(record_group, n_records, everything())
 
+if (params$dev_mode) {
+  analysis_metrics_df <- dplyr::slice(analysis_metrics_df, 1:30)
+}
+
 record_analysis_table(analysis_metrics_df, podcast_dup_df, report_date = podcast_db_date)
 ```
 :::