Fix issue with resource path

R/app_server.R

@@ -19,10 +19,10 @@
 app_server <- function( input, output, session ) {
   # Temporary data storage per session
   # ===================================
-  base_tmp <- "tmp_data"
-  resource_path <- paste0("inst/app/www/", base_tmp, "/")
+  base_tmp <- "tmp"
+  resource_path <- paste0("inst/app/www/", base_tmp)
   golem::add_resource_path(base_tmp, resource_path)
-  session_hard_tmp <- paste0(resource_path,  session$token, "/") # Where tmp data is actually stored on disk
+  session_hard_tmp <- paste0(resource_path, "/", session$token, "/") # Where tmp data is actually stored on disk
   session_public_tmp <- paste0(base_tmp, "/", session$token, "/") # The public URL to the tmp data
 
   if(!dir.exists(resource_path)) {
@@ -64,6 +64,14 @@ app_server <- function( input, output, session ) {
 
   classifications <- reactiveVal()
 
+  observeEvent(input$show_help, {
+    showModal(modalDialog(
+      size="l",
+      includeMarkdown("README.md")
+    ))
+  })
+
+
   observeEvent(input$addClassification, {
     req(input$classification_file, input$gtf_file, input$name)
 

R/app_ui.R

@@ -16,7 +16,7 @@ app_ui <- function(request) {
     # List the first level UI elements here 
     dashboardPage(skin="red",
       # Application title
-      dashboardHeader(title="SQANTI Explorer"),
+      dashboardHeader(title="SQANTI Explorer", tags$li(class = "dropdown", actionButton("show_help", "", icon=icon("question"), style="margin: .6rem .6em 0 0"))),
 
       # Sidebar with a slider input for number of bins
       dashboardSidebar(width=350,

R/run_app.R

@@ -5,6 +5,7 @@
 #' @export
 #' @importFrom shiny shinyApp
 #' @importFrom golem with_golem_options
+#' @importFrom golem add_resource_path
 #'
 run_app <- function(
   ...