mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-01 02:05:51 -05:00
25 lines
658 B
R
25 lines
658 B
R
library(shiny)
|
|
|
|
shinyUI(pageWithSidebar(
|
|
headerPanel("Uploading Files"),
|
|
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')
|
|
)
|
|
))
|