Akan senang checkboxGroupInput
untuk (opsional) memiliki kotak pilih semua/pilih tidak ada yang terkait dengan grup.
Saya pikir Anda dapat mencapai ini dengan updateCheckboxGroupInput()
. Sebuah contoh:
myChoices <- letters[1:5]
runApp(list(
ui = basicPage(
checkboxGroupInput('foo', 'FOO', myChoices),
checkboxInput('bar', 'All/None')
),
server = function(input, output, session) {
observe({
updateCheckboxGroupInput(
session, 'foo', choices = myChoices,
selected = if (input$bar) myChoices
)
})
}
))
Aku suka ini! Solusi elegan!
Mungkinkah relevan untuk membuka kembali saran itu?
Saat menggunakan shiny
dengan flexdashboard
, akan lebih mudah bagi pengguna dasar untuk memiliki opsi sederhana langsung dalam checkboxGroupInput ()
.
Salam
Komentar yang paling membantu
Saya pikir Anda dapat mencapai ini dengan
updateCheckboxGroupInput()
. Sebuah contoh: