In Yang-Tang/shinyjqui: 'jQuery UI' Interactions and Effects for Shiny

library(flexdashboard)
library(shinyjqui)

output$selected_context <- renderPrint({
  cat("Selected:\n")
  input$tbl_selected
})

output$selected_start <- renderPrint({
  cat("Selected:\n")
  input$tbl_selected_start
})

output$selected_render <- renderPrint({
  cat("Selected:\n")
  input$tbl_selected_render
})

output$tbl <- renderTable(head(mtcars), rownames = TRUE)

Row

Table

selectableTableOutput("tbl", selection_mode = "cell")

Context=Data

verbatimTextOutput("selected_context")

Row

Context=sever-start

verbatimTextOutput("selected_start")

Context=render

verbatimTextOutput("selected_render")

Yang-Tang/shinyjqui documentation built on Feb. 1, 2024, 1:46 p.m.