Adding user Data in addition to list of values in select input in R UI, Looking for some thing in combo of select & select Input functionalities

Question

Would wish to add user input as well in addition to what has been already listed. Then I'm using a function to save the data entered to DB.

library(shiny)
ui <- fluidPage(
    titlePanel("Select or add Data"),
    sidebarLayout(
        sidebarPanel(
            selectInput("selectedregion","Select Region",multiple = FALSE,c("North", "East", "West"))
        ),

    mainPanel()
    )
)
server <- function(input, output) { }

shinyApp(ui = ui, server = server)

I wish to give option to the user to add "south" which is in addition to the data listed.

@TarJae have edited the post with an example. any help in this would be grateful. — Lakshmikanth, Jul 03 '22 at 05:32
Thanks for the revert, this would help if I know the values to be listed. In my case, I wish to give an option to the user to enter data which I might not have with me to list it down. — Lakshmikanth, Jul 03 '22 at 06:05

score 2 · Accepted Answer · answered Jul 03 '22 at 08:26

The selectInput does not support user-defined entries but it's "companion" the selectizeInput does. With the argument options = list(create = TRUE) you enable that behaviour. Now you still need a listener in the server. An observercan do that. All you need to do now is to add your own code to add new values to the data base.

library(shiny)

ui <- fluidPage(
  titlePanel("Select or add Data"),
  sidebarLayout(
    sidebarPanel(
      selectizeInput("selectedregion", "Select Region",
                  multiple = FALSE, c("North", "East", "West"),
                  options = list(create = TRUE))
    ),
    
    mainPanel()
  )
)
server <- function(input, output) { 
  observe({
    req(input$selectedregion) # explicitly specify the dependency
    print(input$selectedregion) # This line is for testing purpose only
    # The newly added value is the selected value. If you want to store
    # those in a data base, add that code here.
  })
}

shinyApp(ui = ui, server = server)

Thanks @Jan, have been searching for this in various places. Your code is highly helpful and resolved my issue, perfect !!!!! — Lakshmikanth, Jul 03 '22 at 08:42

Adding user Data in addition to list of values in select input in R UI, Looking for some thing in combo of select & select Input functionalities

1 Answers1