сверкающая листовка - PullRequest
Новая
       9

сверкающая листовка

0 голосов
/ 14 сентября 2018

Я пытаюсь сохранить клик из блестящей листовки, чтобы потом можно было сортировать данные по широте / долготе по клику.Всплывающее окно работает правильно, но lat / lng не сохраняется для последующего использования.Есть похожие вопросы здесь или здесь , но я не могу заставить его работать должным образом.

`` `

ui <- fluidRow(leafletOutput("MainMap") )

server <- function(input, output) {

pal <- colorNumeric(c("#0C2C84", "#41B6C4", "#FFFFCC"), values(tt), na.color = "transparent") 

output$MainMap <- renderLeaflet({
leaflet(options = leafletOptions(zoomControl = FALSE, dragging = TRUE, maxZoom = 10.75, minZoom = 10.75  ) ) %>%  # 
      addTiles() %>% addRasterImage(tt, color = pal, opacity = 0.6 ) %>% # addTiles puts global map behind it
      setMaxBounds(lng1 = -110,lat1 = 48,lng2 = -100,lat2 = 38 ) %>%
      leaflet::addLegend(pal = pal, values = values(tt), title = "Avg Annual Temp", opacity = 1 ) %>%
      # Add the park boundary
      addPolygons(data = job.env$climRegion$boundary.spdf,opacity = 1, fill = FALSE, color = "black", weight = 2 ) %>%

      addPolygons(data = spatialvector, layerId = spatialvector, color = pal, opacity = 0.6, 
                  popup = paste( "long:", round(coordinates(spatialvector)[,1],2), ",  lat:", round(coordinates(spatialvector)[,2],2), ",   Temp:",  round(spatialvector$r.10,2) ) )
})

  observeEvent(input$MainMap_click,{
    click <- input$MainMap_click
    paste("Lattitude ", click$lat, "Longtitude ", click$lng)
    print(click)
    print(click$id)
})

другая информация 

class(spatialvector)
[1] "SpatialPolygonsDataFrame"
attr(,"package")
[1] "sp"

tt
class       : RasterLayer 
dimensions  : 4, 4, 16  (nrow, ncol, ncell)
resolution  : 0.0625, 0.0625  (x, y)
extent      : -103.5625, -103.3125, 43.4375, 43.6875  (xmin, xmax, ymin, ymax)
coord. ref. : +proj=longlat +datum=WGS84 +ellps=WGS84 +towgs84=0,0,0 
data source : in memory
names       : r.10 
values      : 1.018465, 1.519074  (min, max)

sessionInfo()
R version 3.5.1 (2018-07-02)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252 LC_NUMERIC=C                          
[5] LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] rgl_0.99.16           shinyWidgets_0.4.3    rsconnect_0.8.8       ClimatePrimers_0.10.3 maps_3.3.0            ncdf4_1.16            ff_2.2-14             bit_1.1-14           
 [9] SDMTools_1.1-221      rts_1.0-45            RCurl_1.95-4.11       bitops_1.0-6          pander_0.6.2          rmarkdown_1.10        knitr_1.20            scales_0.5.0         
[17] gridExtra_2.3         ggthemes_4.0.0        reshape2_1.4.3        plyr_1.8.4            proj4_1.0-8           rgeos_0.3-28          rgdal_1.3-4           rasterVis_0.45       
[25] latticeExtra_0.6-28   RColorBrewer_1.1-2    lattice_0.20-35       raster_2.6-7          maptools_0.9-3        sp_1.3-1              ini_0.3.1             shinyRGL_0.1.0       
[33] markdown_0.8          gplots_3.0.1          plotly_4.8.0          ggplot2_3.0.0         DT_0.4                dygraphs_1.1.1.6      xts_0.11-0            zoo_1.8-3            
[41] leaflet_2.0.1         dplyr_0.7.6           shinythemes_1.1.1     shiny_1.1.0

` ``
enter image description here

Есть ли проблема, потому что у меня есть несколько addPolygons, или потому что я addTiles ..?Клик явно работает на буклете, но я не могу понять, как его пропустить, и чувствую, что перепробовал все варианты наблюдения, наблюдения, событий и реагирования

...