Here is a compiled roster of input handlers specifically tailored for the "shiny leaf

Question

Here is a compiled roster of input handlers specifically tailored for the "shiny leaf

Is there a way to identify the input handlers for a specific package? There are unique input handlers for leaflet, such as input$mymap_shape_mouseover that are not documented in R. My goal is to extract coordinates from a flat png heatmap used in leaflet and convert them into the matrix I have previously plotted.

library(shiny)
library(leaflet)
library(leaflet.extras)
library(mapview)
library(foreach)
server <- function(input, output, session) {
  points <- eventReactive(input$recalc, {
    cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
  }, ignoreNULL = FALSE)
  output$mymap <- renderLeaflet({
    bounds <- c(0, 0, 14400, 14400)
      leaflet(options = leafletOptions(
        crs = leafletCRS(crsClass = "L.CRS.Simple"),
        minZoom = -5,
        maxZoom = 5)) %>%
        fitBounds(bounds[1], bounds[2], bounds[3], bounds[4]) %>%
          htmlwidgets::onRender("
                                function(el, t) {
                                  var myMap = this;
                                  var bounds = myMap.getBounds();
                                  var image = new L.ImageOverlay(
                                  'https://github.com/theaidenlab/juicebox/wiki/images/domains_peaks.png',
                                  bounds);
                                  image.addTo(myMap);
                                }") %>%
        addMeasure()  %>%
          addMiniMap( toggleDisplay = TRUE,
                      position = "bottomleft") %>% addDrawToolbar() %>% addFullscreenControl() %>% 
         addMouseCoordinates(style="basic")
    })

javascript r shiny r-leaflet

Answer 1

Answer №1

Exploring Leaflet Input Events

If you're interested in understanding leaflet input events, like input$MAPID_center, a big thank you goes out to @blondclover. They shared a clever trick for displaying all input events:

Set up the output$outputID in your UI using verbatimTextOutput.
Save the results of
```
renderPrint({reactiveValuesToList(input)})
```
in the output$outputID object on the server side.

Understanding the available leaflet input events becomes essential as your leaflet map becomes more complex, allowing you to customize it effectively.

https://i.sstatic.net/wzHUv.png

# load required libraries
library( shiny )
library( leaflet )
library( mapview )

ui <- fluidPage(
  leafletOutput( outputId = "map"),
  downloadButton( outputId = "dl"),
  h2("List of Input Events"),
  verbatimTextOutput( outputId = "text")
)

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

  # display list of input events
  output$text <-
    renderPrint({reactiveValuesToList(input)})

  # Create base leaflet map
  foundational.map <- reactive({

    leaflet() %>% # create leaflet map widget

      addTiles( urlTemplate = "https://{s}.tile.openstreetmap.se/hydda/base/{z}/{x}/{y}.png" ) # specify provider tile and type

  }) 

  # render base leaflet map
  output$map <- leaflet::renderLeaflet({

    foundational.map()

  }) 

  # save user-created version of the leaflet map for download
  user.created.map <- reactive({

    foundational.map() %>%

      setView( lng = input$map_center$lng
               ,  lat = input$map_center$lat
               , zoom = input$map_zoom
      )

  }) 

  # define file name and how the download button will capture a screenshot 
  output$dl <- downloadHandler(
    filename = paste0( Sys.Date()
                       , "_customLeafletmap"
                       , ".pdf"
    )

    , content = function(file) {
      mapshot( x = user.created.map()
               , file = file
               , cliprect = "viewport" 
               , selfcontained = FALSE 
      )
    } 
  ) 

} 

shinyApp(ui = ui, server = server)

Answer 2

Exploring Leaflet Input Events

If you're interested in understanding leaflet input events, like input$MAPID_center, a big thank you goes out to @blondclover. They shared a clever trick for displaying all input events:

Set up the output$outputID in your UI using verbatimTextOutput.
Save the results of
```
renderPrint({reactiveValuesToList(input)})
```
in the output$outputID object on the server side.

Understanding the available leaflet input events becomes essential as your leaflet map becomes more complex, allowing you to customize it effectively.

https://i.sstatic.net/wzHUv.png

# load required libraries
library( shiny )
library( leaflet )
library( mapview )

ui <- fluidPage(
  leafletOutput( outputId = "map"),
  downloadButton( outputId = "dl"),
  h2("List of Input Events"),
  verbatimTextOutput( outputId = "text")
)

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

  # display list of input events
  output$text <-
    renderPrint({reactiveValuesToList(input)})

  # Create base leaflet map
  foundational.map <- reactive({

    leaflet() %>% # create leaflet map widget

      addTiles( urlTemplate = "https://{s}.tile.openstreetmap.se/hydda/base/{z}/{x}/{y}.png" ) # specify provider tile and type

  }) 

  # render base leaflet map
  output$map <- leaflet::renderLeaflet({

    foundational.map()

  }) 

  # save user-created version of the leaflet map for download
  user.created.map <- reactive({

    foundational.map() %>%

      setView( lng = input$map_center$lng
               ,  lat = input$map_center$lat
               , zoom = input$map_zoom
      )

  }) 

  # define file name and how the download button will capture a screenshot 
  output$dl <- downloadHandler(
    filename = paste0( Sys.Date()
                       , "_customLeafletmap"
                       , ".pdf"
    )

    , content = function(file) {
      mapshot( x = user.created.map()
               , file = file
               , cliprect = "viewport" 
               , selfcontained = FALSE 
      )
    } 
  ) 

} 

shinyApp(ui = ui, server = server)

Here is a compiled roster of input handlers specifically tailored for the "shiny leaf

Answer №1

Exploring Leaflet Input Events

Similar questions

Ensure to verify within the ngOnInit function whether the checkbox has been selected

filtering an array based on a specific property will result in the original array remaining

Unable to trigger ActionFunction with Remix and MUI slider

Substitute Ajax.ActionLink with a different method

What could be causing my for loop to not function properly within the ngOnInit lifecycle hook?

Combining Material UI's Higher Order Components (HOCs) for Maximum Efficiency

Creating a factory in AngularJS to handle RESTful JSON communication with

I am encountering difficulty with importing this particular file

Calculating the number of distinct values within a dynamic date range using R

Can one retrieve a catalog of Windows Updates that have been installed by utilizing node.js?

Is it possible to utilize the aggregate() function in R to determine the maximum value within a set of data points categorized by an identifier, as well as other associated values within each observation?

What factors cause variations in script behavior related to the DOM across different browsers?

Nested loops iterating over an array of objects

After the geolocation is retrieved, employing a callback function

Having trouble retrieving an element's attribute using jQuery

Ensuring the accuracy of URLs using JavaScript

Creating dynamic controls in AngularJS relies on the ability to generate different elements

"Exploring the process of retrieving data from a request in Node.js with the help of the Express

Node and Express continuing to send requests in a loop even after the response has been completed

Error encountered when uploading mp3 file to S3 node due to size limitation