file_Input | R Documentation |
This function create a file upload component. It uses the basis of the shiny fileInput function, but restyles the label and adds error onto it. It doesn't look like the www.gov.uk/ style one, although this www.gov.uk/ doesn't seem to have a settle style as, for example it changes between Firefox and Chrome
file_Input( inputId, label, multiple = FALSE, accept = NULL, width = NULL, buttonLabel = "Choose file", placeholder = "No file chosen", error = FALSE, error_message = NULL )
inputId |
The input slot that will be used to access the value. |
label |
Display label for the control, or |
multiple |
Whether the user should be allowed to select and upload multiple files at once. Does not work on older browsers, including Internet Explorer 9 and earlier. |
accept |
A character vector of MIME types; gives the browser a hint of what kind of files the server is expecting. |
width |
The width of the input, e.g. |
buttonLabel |
The label used on the button. Can be text or an HTML tag object. |
placeholder |
The text to show before a file has been uploaded. |
error |
Whenever to icnlud error handling Defaults to FALSE. |
error_message |
Message to display on error. Defaults to NULL |
a file input html shiny object
if (interactive()) { ui <- fluidPage( # Required for error handling function shinyjs::useShinyjs(), shinyGovstyle::header( main_text = "Example", secondary_text = "User Examples", logo="shinyGovstyle/images/moj_logo.png"), shinyGovstyle::banner( inputId = "banner", type = "beta", 'This is a new service'), shinyGovstyle::gov_layout(size = "two-thirds", # Simple file input shinyGovstyle::file_Input(inputId = "file1", label = "Upload a file"), # Error file shinyGovstyle::file_Input( inputId = "file2", label = "Upload a file", error = TRUE), # Button to trigger error shinyGovstyle::button_Input(inputId = "submit", label = "Submit") ), shinyGovstyle::footer(full = TRUE) ) server <- function(input, output, session) { #'Trigger error on blank submit of file2 observeEvent(input$submit, { if (is.null(input$file2)){ shinyGovstyle::error_on(inputId = "file2") } else { shinyGovstyle::error_off( inputId = "file2") } }) } shinyApp(ui = ui, server = server) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.