R/collapse_button.R

In great-northern-diver/loon.shiny: Automatically Create a 'Shiny' App Based on Interactive 'Loon' Widgets

collapse_button <- function(x, tabPanelName) {

  HTML(
    paste0("<button data-toggle='collapse' style='font-size:smaller' data-target=",
           "'#",
           tabPanelName,
           x,
           "'",
           ">",
           x,
           "</button>")
  )
}