R/mod_shinyfile_import.R

In CCICB/CRUX: Easily explore patterns of somatic variation in cancer using 'CRUX'

#' shinyfile_import UI Function
#'
#' @description Adds a shinyFilesButton
#'
#' @inheritParams shiny::fileInput
#' @inheritParams shinyBS::bsTooltip
#' @param id Internal parameters for {shiny}.
#' @param tooltip_text The content of the tooltip (string / HTML)
#' @param tooltip_placement Where the tooltip should appear relative to its target (top, bottom, left, or right). Defaults to "right"
#' @param trigger What action should cause the tooltip to appear? (hover, focus, click, or manual). Defaults to "hover". 
#' 
#'
#' @importFrom shiny NS tagList 
mod_shinyfile_import_ui <- function(id, title, label, multiple=FALSE, tooltip_text="", tooltip_placement = "right", trigger = "hover"){
  ns <- NS(id)
  
  tagList(
    shiny::fileInput(inputId = ns("id_shinyfiles_button"), label = title, multiple = multiple, buttonLabel = label),
    shinyBS::bsTooltip(id = ns("id_shinyfiles_button"), title = tooltip_text, placement = tooltip_placement, trigger = trigger)
  )
}
    
#' shinyfile_import Server Functions
#'
#'
#' @param id Internal parameters for {shiny}.
#' @return chosen filepath (string) (reactive). If multiple = TRUE, it returns a character vector instead of a string. When no file is selected, returns character(0)
#' 
#'
mod_shinyfile_import_server <- function(id){
 
  moduleServer(id, function(input, output, session){
    ns <- session$ns
    
    chosenfilepath <- reactive({
      validate(need(length(input$id_shinyfiles_button), message = "Please import maf file"))
      return(input$id_shinyfiles_button$datapath)
    })
    
    return(chosenfilepath)
  })
}