add_click: Retrieve click in Shiny

In dreamRs/r2d3maps: Create Maps with D3

Description

Retrieve click in Shiny

Usage

add_click(map, inputId, layerId = NULL, action = "click")

Arguments

map	A r2d3map htmlwidget object.
inputId	The input slot that will be used to access the value.
layerId	Name of a variable present in data to filter results returned, if NULL (default) all columns are returned.
action	What triggers input value server-side, click or dblclick.

Examples

## Not run: 
library( r2d3maps )
library( r2d3 )
library( rnaturalearth )
library( shiny )

france <- ne_states(country = "france", returnclass = "sf")
france <- france[france$type_en %in% "Metropolitan department", ]

if (interactive()) {
  ui <- fluidPage(

    fluidRow(
      column(
        offset = 2, width = 8,
        tags$h2("r2d3maps Shiny example"),
        fluidRow(
          column(
            width = 6,
            d3Output(outputId = "map")
          ),
          column(
            width = 6,
            verbatimTextOutput(outputId = "res_click")
          )
        )
      )
    )

  )

  server <- function(input, output, session) {

    output$map <- renderD3({
      d3_map(shape = france) %>%
        add_tooltip() %>%
        add_click(
          inputId = "myclick",
          layerId = "name", # return only name,
          # NULL to get all data
          action = "dblclick" # on double click,
          # use "click" for simple click
        )
    })

    output$res_click <- renderPrint({
      str(input$myclick, max.level = 2)
    })
  }

  shinyApp(ui, server)
}

## End(Not run)

dreamRs/r2d3maps documentation built on May 25, 2019, 8:17 a.m.