How to put a button to add fields in Shiny

Question

I'm creating a Shiny application and I need by default to have two fields for uploading files. However, I need to have a button to add more fields (whenever the user clicks this button, another field for uploading files is added) and a reset button (return to the state with only two fields). How do I do this in Shiny?

body <- dashboardBody(
    tabItems(
      tabItem(tabName = "plot"),
      tabItem(tabName = "table",
              box(width = NULL, status = "primary", solidHeader = TRUE, 
                  title="Upload",
                  fileInput("classe1",
                            label="Class 1",
                            multiple = TRUE, accept = c(".jpg", ".jpeg",".png",".tif")),
                  br(),
                  fileInput("classe2",
                            label="Class 2",
                            multiple = TRUE, accept = c(".jpg", ".jpeg",".png",".tif")),
                  br()
              )
      )
)

This shows how someone else solved this problem: stackoverflow.com/questions/21813773/… — sconfluentus
– sconfluentus, Commented Jan 7, 2023 at 4:56

Ronak Shah · Accepted Answer · 2023-01-07 10:37:04Z

Here's one way to do this using combination of renderUI and uiOutput to dynamically show/hide 3rd fileInput.

library(shinydashboard)
library(shiny)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(column(6, fileInput("classe1",label="Class 1",
              multiple = TRUE, accept = c(".jpg", ".jpeg",".png",".tif"))),
      column(6, actionButton('add', 'Add a new input'))
    ),
      fluidRow(column(6, fileInput("classe2",label="Class 2",multiple = TRUE, 
              accept = c(".jpg", ".jpeg",".png",".tif"))),
            column(6, actionButton('clear', 'Clear')), 
          ),
          br(), 
          uiOutput('new_button')
    )
)

server <- function(input, output) {
  observeEvent(input$add, {
    output$new_button <- renderUI({
      fileInput("classe3",label="Class 3",multiple = TRUE, 
                accept = c(".jpg", ".jpeg",".png",".tif"))
    })
  })
  observeEvent(input$clear, {
    output$new_button <- renderUI({})
  })
}

shinyApp(ui, server)

Collectives™ on Stack Overflow

How to put a button to add fields in Shiny

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related