mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-30 17:28:32 -05:00
69 lines
2.9 KiB
Markdown
69 lines
2.9 KiB
Markdown
|
|
|
|
Sometimes you'll want users to be able to upload their own data to your application. Shiny makes it easy to offer your users file uploads straight from the browser, which you can then access from your server logic.
|
|
|
|
**Important notes:**
|
|
* This feature does not work with Internet Explorer 9 and earlier (not even with Shiny Server).
|
|
* By default, Shiny limits file uploads to 5MB per file. You can modify this limit by using the `shiny.maxRequestSize` option. For example, adding `options(shiny.maxRequestSize=30*1024^2)` to the top of `server.R` would increase the limit to 30MB.
|
|
|
|
To run this example, type:
|
|
|
|
{% highlight console %}
|
|
> library(shiny)
|
|
> runExample("09_upload")
|
|
{% endhighlight %}
|
|
|
|
File upload controls are created by using the `fileInput` function in your `ui.R` file. You access the uploaded data similarly to other types of input: by referring to <code>input$<i>inputId</i></code>. The `fileInput` function takes a `multiple` parameter that can be set to `TRUE` to allow the user to select multiple files, and an `accept` parameter can be used to give the user clues as to what kind of files the application expects.
|
|
|
|
#### ui.R
|
|
|
|
{% highlight r %}
|
|
shinyUI(pageWithSidebar(
|
|
headerPanel("CSV Viewer"),
|
|
sidebarPanel(
|
|
fileInput('file1', 'Choose CSV File',
|
|
accept=c('text/csv', 'text/comma-separated-values,text/plain')),
|
|
tags$hr(),
|
|
checkboxInput('header', 'Header', TRUE),
|
|
radioButtons('sep', 'Separator',
|
|
c(Comma=',',
|
|
Semicolon=';',
|
|
Tab='\t'),
|
|
'Comma'),
|
|
radioButtons('quote', 'Quote',
|
|
c(None='',
|
|
'Double Quote'='"',
|
|
'Single Quote'="'"),
|
|
'Double Quote')
|
|
),
|
|
mainPanel(
|
|
tableOutput('contents')
|
|
)
|
|
))
|
|
{% endhighlight %}
|
|
|
|
#### server.R
|
|
|
|
{% highlight r %}
|
|
shinyServer(function(input, output) {
|
|
output$contents <- renderTable({
|
|
|
|
# input$file1 will be NULL initially. After the user selects and uploads a
|
|
# file, it will be a data frame with 'name', 'size', 'type', and 'datapath'
|
|
# columns. The 'datapath' column will contain the local filenames where the
|
|
# data can be found.
|
|
|
|
inFile <- input$file1
|
|
|
|
if (is.null(inFile))
|
|
return(NULL)
|
|
|
|
read.csv(inFile$datapath, header=input$header, sep=input$sep, quote=input$quote)
|
|
})
|
|
})
|
|
{% endhighlight %}
|
|
|
|
This example receives a file and attempts to read it as comma-separated values using `read.csv`, then displays the results in a table. As the comment in `server.R` indicates, `inFile` is either `NULL` or a dataframe that contains one row per uploaded file. In this case, `fileInput` did not have the `multiple` parameter so we can assume there is only one row.
|
|
|
|
The file contents can be accessed by reading the file named by the `datapath` column. See the `?fileInput` help topic to learn more about the other columns that are available.
|