Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(shiny)
- ui <- fluidPage(
- selectInput('selectfile','Select File',choice = list.files('log/')),
- textOutput('fileselected')
- )
- server <- function(input,output)
- {
- output$fileselected <- renderText({
- paste0('You have selected: ', input$selectfile)
- })
- }
- shinyApp(ui,server)
Add Comment
Please, Sign In to add comment