show_data {datamods}

R Documentation

Display a table in a window

Description

Display a table in a window

Usage

show_data(
  data,
  title = NULL,
  options = NULL,
  show_classes = TRUE,
  type = c("popup", "modal"),
  width = "80%"
)

Arguments

data	a data object (either a matrix or a data.frame).
title	Title to be displayed in window.
options	Arguments passed to reactable::reactable().
show_classes	Show variables classes under variables names in table header.
type	Display table in a pop-up or in modal window.
width	Width of the window, only used if type = "popup".

Value

No value.

Examples

library(shiny)
library(datamods)

ui <- fluidPage(
  actionButton(
    inputId = "show1",
    label = "Show data in popup",
    icon = icon("eye")
  ),
  actionButton(
    inputId = "show2",
    label = "Show data in modal",
    icon = icon("eye")
  ),
  actionButton(
    inputId = "show3",
    label = "Show data without classes",
    icon = icon("eye")
  )
)

server <- function(input, output, session) {
  observeEvent(input$show1, {
    show_data(mtcars, title = "My data")
  })
  observeEvent(input$show2, {
    show_data(mtcars, title = "My data", type = "modal")
  })
  observeEvent(input$show3, {
    show_data(
      data = mtcars,
      title = "My data",
      show_classes = FALSE,
      options = list(searchable = TRUE, highlight = TRUE)
    )
  })
}

if (interactive())
  shinyApp(ui, server)

---