inst/examples/shiny/crimes/ui.R

In ggiraph: Make 'ggplot2' Graphics Interactive

shinyUI(fluidPage(
  tags$h1("ggiraph selection demo"),

  fluidRow(
    column(width = 7,
           h4("Select states: "),
           actionButton("reset", label = "Reset selection"),
           ggiraph::girafeOutput("plot")
    ),
    column(width = 5,
           h4("Hovering states"),
           verbatimTextOutput("console"),
           h4("Selected states"),
           tableOutput("datatab")
    )
    )
  )
)