Update material dropdown : selected with multiple values

[bilbaoba]

Hi Eric & shinymaterial users,

I propose to answer issue #89 with this PR.

Changes :

• Code modification to allow parameter value to be a vector.
• Improvement & simplification of code

Test :

After install the package :

rm(list = ls())
library(shiny)
library(shinymaterial)

ui <- material_page(
  title = "Demo Update Dropdown",
  material_dropdown(input_id = 'test', label = 'toto', choices = c("a", "b", "c"), selected = c("b","c"), multiple = T),
  material_button(input_id = "button_test", label = "test"),
  material_button(input_id = "button_test_2", label = "test2"),
  material_card(
    title = "Material dropdown value : ",
    uiOutput('renderInputTest')
  )
)

server <- function(input, output, session) {
  observeEvent(input$button_test, {
    if (input$button_test > 0)
      update_material_dropdown(session, input_id = 'test', value = "aa", choices = c("aa", "bb", "cc"))
  })
  
  observeEvent(input$button_test_2, {
    if (input$button_test_2 > 0)
      update_material_dropdown(session, input_id = 'test', value = c("dd", "gg"), choices = c("dd", "ee", "ff", "gg"))
  })
  
  output$renderInputTest <- renderText({
    print(input$test)
    input$test
  })
  
}

shinyApp(ui = ui, server = server)

Suggestion :

• Change parameter value to selected

[bilbaoba]

Hi @ericrayanderson ,

This PR had a conflict, I resolve it.
Simply put formSelect instead of material_select in my PR.
I test this PR and it's working with the newest version of package (v1.0.0) and it resolve issue #89.

Regards.

[bilbaoba]

Hi @ericrayanderson,

This PR had a conflict due to your correction of the missing quote into the function.
I simply update my branch.
It still resolve issue #89 and allow users to update multiple choices and also update the choices list.

Regards