Archives
Trending
Support
Login
clear text
XML
Django
JavaScript
MATLAB
C
C++
C#
Python
SQL
Shell
Bash
Markdown
YAML
JSON
HTML
CSS
PHP
Java
Ruby
Go
Rust
Swift
Kotlin
Arduino
TypeScript
Perl
Autohotkey
Lua
SQF
R
Scala
Haskell
Groovy
Dart
Clojure
VB.NET
Objective-C
PowerShell
Bash
CoffeeScript
Verilog
ui <- bslib::page_sidebar( sidebar=bslib::sidebar( open="always", position="right", shiny::selectInput( inputId="acc_title", label="Accordion Panel's title", choices=c("Title 1", "Title 2"), selected="Title 1", multiple=FALSE ) ), bslib::card( "Some content", bslib::card_footer( bslib::accordion( id="acc", open=FALSE, multiple=FALSE, bslib::accordion_panel( value="acc_panel", # not "id" "Title 1", "Accordion's content." ) ) ) ) ) server = function(input, output, session) { shiny::observeEvent(input$acc_title, { bslib::accordion_panel_update( # <-- crucial part id="acc", target="acc_panel", title = input$acc_title ) }) } shiny::runApp(shinyApp(ui, server))
Mark as private (unlisted)
for 30 minutes
for 6 hours
for 1 day
for 1 week
for 1 month
for 1 year
everlasting (like CCCP)
