inst/examples/shiny/DT/ui.R

In ggiraph: Make 'ggplot2' Graphics Interactive

library(ggiraph)
library(htmltools)
shinyUI(fluidPage(
  fluidRow(
    column(width=12,
           includeScript(path = "set_search_val.js"),
           h4("click a point, the data table will be filtered...")
           )
  ),

  fluidRow(
    column(width=6,
      girafeOutput("plot_")
    ),
    column(width=6,
           DT::dataTableOutput("dt_")
    )
  )
))