mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-06 20:55:24 -05:00
29 lines
714 B
R
29 lines
714 B
R
library(shiny)
|
|
|
|
fluidPage(
|
|
titlePanel("Uploading Files"),
|
|
sidebarLayout(
|
|
sidebarPanel(
|
|
fileInput('file1', 'Choose CSV File',
|
|
accept=c('text/csv',
|
|
'text/comma-separated-values,text/plain',
|
|
'.csv')),
|
|
tags$hr(),
|
|
checkboxInput('header', 'Header', TRUE),
|
|
radioButtons('sep', 'Separator',
|
|
c(Comma=',',
|
|
Semicolon=';',
|
|
Tab='\t'),
|
|
','),
|
|
radioButtons('quote', 'Quote',
|
|
c(None='',
|
|
'Double Quote'='"',
|
|
'Single Quote'="'"),
|
|
'"')
|
|
),
|
|
mainPanel(
|
|
tableOutput('contents')
|
|
)
|
|
)
|
|
)
|