R/mod_open_demoDataset.R

In samWieczorek/Dapar2: Tools for the Differential Analysis of Proteins Abundance with R

# Module UI

#' @title   mod_open_demo_dataset_ui and mod_open_demo_dataset_server
#' 
#' @description  A shiny Module.
#' 
#' @param id xxx
#' 
#' @name mod_open_demo_dataset
#'
#' @keywords internal
#' 
NULL




#' @export 
#' @rdname mod_open_demo_dataset
#' @importFrom shiny NS tagList 
#' @import shinyjs
#' 
mod_open_demoDataset_ui <- function(id){
  ns <- NS(id)
  tagList(
    shinyjs::useShinyjs(),
    tagList(
      uiOutput(ns("chooseDemoDataset")),
      uiOutput(ns("linktoDemoPdf")),
      shinyjs::disabled(
          actionButton(ns('load_dataset_btn'), 'Load dataset', 
                       class= MagellanNTK::GlobalSettings$actionBtnClass)),
      mod_infos_dataset_ui(ns("mod_info"))
    )
  )
}

# Module Server

#' @rdname mod_open_demo_dataset
#' 
#' @export
#' @keywords internal
#' 
#' @importFrom BiocGenerics get
#' @importFrom utils data
#' @importFrom shinyjs info
#' @import QFeatures
#' 
mod_open_demoDataset_server <- function(id){
  
  moduleServer(id, function(input, output, session){
    ns <- session$ns
    
    
    
    .package <- 'DaparToolshedData'
    
    rv.openDemo <- reactiveValues(
      dataRead = NULL,
      dataOut = NULL
    )
    
    
    ### function for demo mode
    output$chooseDemoDataset <- renderUI({
      
      pkgs.require(.package)
      
      selectInput(ns("demoDataset"),
                  "Demo dataset",
                  choices = c('None', utils::data(package=.package)$results[,"Item"]),
                  selected = character(0),
                  width='200px')
    })
    
    
    
    observeEvent(req(input$demoDataset != 'None'), {
      nSteps <- 1
      withProgress(message = '',detail = '', value = 0, {
        incProgress(1/nSteps, detail = 'Loading dataset')
        utils::data(list=input$demoDataset, package=.package)
        rv.openDemo$dataRead <- BiocGenerics::get(input$demoDataset)
        if (!inherits(rv.openDemo$dataRead, "QFeatures")) {
          shinyjs::info("Warning : this file is not a QFeatures file ! 
                      Please choose another one.")
          return(NULL)
        }
        shinyjs::toggleState('load_dataset_btn', condition = !is.null(rv.openDemo$dataRead))
      }) # End withProgress
    }) # End observeEvent
    
    
    observeEvent(input$load_dataset_btn, {
      rv.openDemo$dataOut <- rv.openDemo$dataRead
      mod_infos_dataset_server("mod_info", reactive({rv.openDemo$dataRead}))
    })
    
    output$linktoDemoPdf <- renderUI({
      req(input$demoDataset)
      
    })
    
    reactive({rv.openDemo$dataOut })
  })
  
}




###################################################################
##                                                               ##
##                                                               ##
###################################################################

library(shiny)
library(DaparToolshedData)
library(shinyjs)

ui <- fluidPage(
  tagList(
    mod_open_demoDataset_ui("demo"),
    htmlOutput('res')
  )
)

server <- function(input, output, session) {
  rv <- reactiveValues(
    obj = NULL
  )
  
  rv$obj <- mod_open_demoDataset_server("demo")
  
  output$res <- renderText({
    rv$obj()
    HTML(paste0(tags$br(tags$strong('Names of the datasets: ')), names(rv$obj())))
  })
}

shinyApp(ui = ui, server = server)