input values not available until menu is opened about shinywidgets

[pvictor]

Hello,
Are your inputs in a server-side renderUi?

Victor

yes they are indeed. Just found out that using a conditional panel causes the same problem, so I realize its a fundamental flaw in my approach. Maybe better delete my post here since it's out of place here. If ok, I would send you an email in case you have a possible answer how to work around my issue?

[pvictor]

Yes that's the same :)
You need outputOptions like below (comment/uncomment to see difference) :

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  tags$h1("Dropdown & inputs"),
  dropdownButton(
    icon = icon("sliders"), status = "info",
    uiOutput(outputId = "params")
  ),
  verbatimTextOutput(outputId = "res")
)

server <- function(input, output, session) {
  
  output$params <- renderUI({
    tagList(
      tags$b("Parameters:"),
      sliderInput(inputId = "slider", label = "Slider", min = 1, max = 100, value = 4),
      selectizeInput(inputId =  "selectize", label = "Selectize", choices = letters),
      radioButtons(inputId = "radio", label = "Radio", choices = month.abb[1:4]),
      checkboxGroupButtons(inputId = "checkbox", label = "Checkbox", choices = month.abb[1:4])
    )
  })
  
  # >>>>>>>> You need this line ! <<<<<<<<<
  outputOptions(x = output, name = "params", suspendWhenHidden = FALSE)
  
  output$res <- renderPrint({
    reactiveValuesToList(input)
  })
  
}

shinyApp(ui, server)

Victor

Oh very elegant! I have come across that line of code long ago I remember now, but forgot about it. Much appreaciate the tip! Good luck with the continuation of your work on ShinyWidgets, I'm sure there are many interesting new features to be imagined to add 👍

[pvictor]

You're welcome :) Many thanks for your encouragement !

Best,

Victor

Hey pvictor, I send an email to your address listed here a week ago with some suggestions fixes and follow up questions. Perhaps you missed it?