[Shiny 30本ノック]８．file uploadをつける

 library(shiny)

# Define UI for data upload app ----

ui <- fluidPage(

  # title 

  titlePanel("test"),

  # main panel

  mainPanel(

      # Input: Select a file ----

      fileInput("file1", "Choose File")

  )

)

# Define server logic to read selected file ----

server <- function(input, output) {}

# Create Shiny app ----

shinyApp(ui, server)