inst/app/ui.R

In cynkra/tv: Tibble View: Graphical Display For Data Frame Output

library(miniUI)
library(shiny)
library(reactable)
library(shinyWidgets)

miniPage(
  tags$head(
    tags$style(".dataTable {white-space: nowrap;}"),
    # make header one click selectable
    tags$style("
      .rt-resizable-header-content {
        user-select: all;
        -webkit-user-select: all;
        -moz-user-select: all;
        -ms-user-select: all;
      }
    ")
  ),
  miniContentPanel(
    reactable::reactableOutput("oReactable"),
    tags$div(style = "height: 4px;"), # spacing
    dropdownButton(
      inputId = "mydropdown",
      label = "Controls",
      size = "xs",
      icon = icon("ellipsis-h"),
      status = "default",
      circle = TRUE,
      right = FALSE,
      up = TRUE,
        checkboxInput("opt_re_filterable",   "filterable", FALSE),
        checkboxInput("opt_re_sortable",     "sortable",   FALSE),
        checkboxInput("opt_re_searchable",   "searchable", FALSE),
        checkboxInput("opt_re_highlight",    "highlight",  FALSE),
        checkboxInput("opt_re_striped",      "striped",    TRUE),
        checkboxInput("opt_re_bordered",     "bordered",   TRUE),
        checkboxInput("opt_re_resizable",    "resizable",  TRUE),
        shiny::actionButton("turn_off", "Turn off", icon = icon("power-off"))
    ),
    scrollable = TRUE
  ),
  title = "TV"
)