Nothing
renderImportDataPanel <- function() {
tabPanel("Import Data",
sidebarLayout(
sidebarPanel(
br(),
fileInput("file", "Upload Your Data", multiple = F),
helpText("Select the data parameters below"),
checkboxInput(
inputId = 'header',
label = 'Header',
value = TRUE
),
#checkboxInput(inputId = "stringAsFactors", "StringAsFactors", FALSE),
radioButtons(
inputId = 'DataType',
label = 'Data Type',
choices = c("Aggregate", "Individual"),
selected = ''
),
radioButtons(
inputId = 'sep',
label = 'Separator',
choices = c(
Comma = ',',
Semicolon = ';',
Tab = '\t',
Space = ''
),
selected = ','
)
),
mainPanel(uiOutput("DataTable"))
))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.