R/input-file.R

In nteetor/yonder: A Reactive Web Framework Built on 'shiny'

#' File inputs
#'
#' Upload files to the server.
#'
#' @inheritParams checkboxInput
#'
#' @param placeholder A character string specifying the text inside the file
#'   input, defaults to `"Choose file"`.
#'
#' @param browse A character string specifying the label of file input, defaults
#'   to `"Browse"`.
#'
#' @param multiple One of `TRUE` or `FALSE` specifying whether or not the user
#'   can upload multiple files at once, defaults to `TRUE`.
#'
#' @param accept A character vector of possible MIME types or file extensions,
#'   defaults to `NULL`, in which case any file type may be selected.
#'
#' @includeRmd man/roxygen/file.Rmd
#'
#' @family inputs
#' @export
fileInput <- function(..., id, placeholder = "Choose file", browse = "Browse",
                      multiple = TRUE, accept = NULL) {
  assert_id()

  if (!is.character(browse)) {
    stop(
      "invalid argument in `fileInput()`, `browse` must be a character string",
      call. = FALSE
    )
  }

  dep_attach({
    if (length(accept) > 1) {
      accept <- paste(accept, collapse = ",")
    }

    tags$div(
      class = "yonder-file custom-file",
      id = id,
      tags$input(
        type = "file",
        class = "custom-file-input",
        accept = accept,
        multiple = if (multiple) NA,
        autocomplete = "off"
      ),
      tags$label(
        class = "custom-file-label",
        `data-browse` = browse,
        placeholder
      ),
      tags$div(
        class = "valid-feedback"
      ),
      tags$div(
        class = "invalid-feedback"
      ),
      ...
    )
  })
}