R/fct_fileInput.R

In RiviereQuentin/WimtrapWeb: Plant 'Cis-Acting Regulatory Elements' Prediction Tools

#' fileWimtrap 
#'
#' @description A fct function
#'
#' @return The return value, if any, from executing the function.
#'
#' @noRd
fileWimtrap <- function (inputId, label, multiple = FALSE, accept = NULL, width = NULL, 
          buttonLabel = "Browse...", placeholder = "No file selected") {
  restoredValue <- restoreInput(id = inputId, default = NULL)
  if (!is.null(restoredValue) && !is.data.frame(restoredValue)) {
    warning("Restored value for ", inputId, " has incorrect format.")
    restoredValue <- NULL
  }
  if (!is.null(restoredValue)) {
    restoredValue <- toJSON(restoredValue, strict_atomic = FALSE)
  }
  inputTag <- tags$input(id = inputId, name = inputId, type = "file",
                         style = "position: static; width: 1px",
                         `data-restore` = restoredValue)
  if (multiple) 
    inputTag$attribs$multiple <- "multiple"
  if (length(accept) > 0) 
    inputTag$attribs$accept <- paste(accept, collapse = ",")
  div(class = "form-group shiny-input-container", style = htmltools::css(width = validateCssUnit(width)), 
      shiny:::shinyInputLabel(inputId, label), div(class = "input-group", 
                                           tags$label(class = "input-group-btn input-group-prepend", 
                                                      span(class = "btn btn-default btn-file", buttonLabel, 
                                                           inputTag)), tags$input(type = "text", class = "form-control", 
                                                                                  placeholder = placeholder, readonly = "readonly")) 
      #tags$div(id = paste(inputId, "_progress", sep = ""), 
      #         class = "progress active shiny-file-input-progress", 
      #         tags$div(class = "progress-bar"))
      )
}