library(shiny)
library(shinydashboard)
source("helpers_shiny.R")
source("main_source.R")
# Define server logic required to draw a histogram ----
server <- 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)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.