daily pastebin goal
41%
SHARE
TWEET

Untitled

a guest Jan 16th, 2018 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library(shiny)
  2. ui <-   fluidPage(
  3. selectInput('selectfile','Select File',choice = list.files('log/')),
  4. textOutput('fileselected')
  5. )
  6.  
  7. server <- function(input,output)
  8. {
  9.   output$fileselected <- renderText({
  10.     paste0('You have selected: ', input$selectfile)
  11.   })
  12. }
  13.  
  14. shinyApp(ui,server)
RAW Paste Data
Top