I'm not sure where in the pipeline ```R bs_accordion() %>% bs_append(title = "test") ``` I can add a shiny icon