functions to modify qmd for specific exports

inst/apps/data_analysis/rsconnect/shinyapps.io/agdamsbo/webResearch.dcf

@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 13276335
-bundleId:
+bundleId: 9402292
 url: https://agdamsbo.shinyapps.io/webResearch/
 version: 1

inst/apps/data_analysis/server.R

@@ -162,9 +162,25 @@ server <- function(input, output, session) {
         v$list$table2 |>
           gtsummary::as_gt()
       )
+
+
+
     }
   )
 
+  # renderUI({
+  #   tags$iframe(seamless="seamless",
+  #               src= "Hub_Infographic.html",
+  #               width=800,
+  #               height=800)
+  # })
+  #
+  #
+  # getPage<-shiny::reactive({
+  #   shiny::req(file.exists(file.path(getwd(), "www/report_format.html")))
+  #   return(shiny::includeHTML(file.path(getwd(), "www/report_format.html")))
+  # })
+
   output$uploaded <- shiny::reactive({
     if (is.null(v$ds)) {
       "no"
@@ -195,8 +211,8 @@ server <- function(input, output, session) {
     content = function(file, type = input$output_type) {
       v$list |>
         write_quarto(
-          fileformat = type,
-          qmd.file = file.path(getwd(), "www/report.qmd")
+          output_format = type,
+          input = file.path(getwd(), "www/report.qmd")
         )
       file.rename(paste0("www/report.", type), file)
     }
@@ -210,5 +226,5 @@ server <- function(input, output, session) {
       print(paste(.x, "deleted"))
     })
   })
-  #
+
 }

inst/apps/data_analysis/ui.R

@@ -47,7 +47,19 @@ panels <- list(
 
 
 ui <- bslib::page(
-  theme = bslib::bs_theme(bootswatch = "minty"),
+  theme = bslib::bs_theme(bootswatch = "minty",
+                            base_font = font_google("Inter"),
+                            code_font = font_google("JetBrains Mono")
+                          ),
+  # theme = bslib::bs_theme(
+    # bg = "#101010",
+    # fg = "#FFF",
+  #   primary = "#E69F00",
+  #   secondary = "#0072B2",
+  #   success = "#009E73",
+  #   base_font = font_google("Inter"),
+  #   code_font = font_google("JetBrains Mono")
+  # ),
   title = "webResearcher for easy data analysis",
   bslib::page_navbar(
     title = "webResearcher",
@@ -159,7 +171,8 @@ ui <- bslib::page(
             choices = list(
               "Word" = "docx",
               "LibreOffice" = "odt",
-              "PDF" = "pdf"
+              "PDF" = "pdf",
+              "All the above" = "all"
             )
           ),
 

inst/apps/data_analysis/www/report.qmd

@@ -1,16 +1,13 @@
 ---
+format: 
+  html:
+    embed-resources: true
 title: "webResearch analysis results"
 date: today
 author: webResearch Tool
 toc: true
 execute: 
   echo: false
-format: 
-  html:
-    embed-resources: true
-  docx: default
-  odt: default
-  pdf: default
 params:
   data.file: NA
 ---