閃亮的單張地圖，在標記點擊減少地圖的寬度和插入表輸出

Question

我正在一個閃亮的應用程序，它顯示傳單地圖上的一些標記。當點擊其中一個標記時，data.frame的相應行應顯示在地圖右側的rhandsontable中。詳細地說，地圖寬度應該減小（例如從100％減少到50％），並且在可用空間中應該插入角標。

有沒有一些問題，我的代碼，我沒能解決到目前爲止：

1. 標記並不是繪製地圖時，他們是leafletProxy（這是必要的，更復雜的應用程序）內。

2. 只有第一個標記點​​擊觀察，那麼該表就不再變化（可能出錯observeEvent）

3. 的rhandsontable添加地圖下方，而不是在空間的權利，得到免費，當地圖寬度減少時。

數據應存儲在反應值中（以便進行更改）。

這裏是一個最小的可重複的例子：

library(shiny) 
library(leaflet) 
library(rhandsontable) 

ui <- fluidPage(
    fluidRow(
    uiOutput("map2"), 
    uiOutput("table2") 
) 
) 


server <- function(input, output, session){ 
    values <- reactiveValues(
    data = data.frame(X = c(1, 2), lat = c(48, 49), lng = c(11, 11.5)), 
    which_marker = NULL, 
    leaflet_map_width = "100%" 
) 

    output$map2 <- renderUI({ 
    leafletOutput("map", width = values$leaflet_map_width, height = "500px") 
    }) 

    output$map <- renderLeaflet({ 
    leaflet() %>% addTiles() %>% setView(11, 48.5, 8) # %>% addMarkers(data = values$data, layerId = values$data$X) 
    }) 

    observe({ 
    leafletProxy("map") %>% addMarkers(data = values$data, layerId = values$data$X) 
    }) 

    observeEvent(input$map_marker_click, { 
    print("observed map_marker_click") 
    values$which_marker <- input$map_marker_click$id 
    values$leaflet_map_width = "50%" 
    output$table2 <- renderUI({ 
     rHandsontableOutput("table") 
    }) 
    }) 

    output$table <- renderRHandsontable({ 
    data <- values$data[values$which_marker, ] 
    rhandsontable(t(data), rowHeaderWidth = 120) 
    }) 
} 

shinyApp(ui, server) 

Answer 1

注：這只是回答的問題1/3。 但正如人們在評論中看到的那樣，在那裏給出提示是沒有意義的： 要回答第三個問題，請參閱下面的解決方案。 （根據需要設置的列的寬度）

library(shiny) 
library(leaflet) 
library(rhandsontable) 

ui <- fluidPage(
    uiOutput("map2") 
) 


server <- function(input, output, session){ 
    values <- reactiveValues(
    data = data.frame(X = c(1, 2), lat = c(48, 49), lng = c(11, 11.5)), 
    which_marker = NULL, 
    leaflet_map_width = "100%" 
) 

    observe({ 
    values$which_marker <- input$map_marker_click$id 
    }) 

    output$map2 <- renderUI({ 
    if(!is.null(input$map_marker_click)){ 
     fluidRow(
     column(width = 10, offset = 0, style='padding:0px;', 
      leafletOutput("map", width = "100%", height = "500px")), 
     column(width = 2, offset = 0, style='padding:0px;', 
      rHandsontableOutput("table") 
     ) 
    ) 
    }else{ 
     leafletOutput("map", width = values$leaflet_map_width, height = "500px") 
    } 

    }) 

    output$map <- renderLeaflet({ 
    leaflet() %>% addTiles() %>% addMarkers(data = values$data, layerId = values$data$X) 
    }) 

    output$table <- renderRHandsontable({ 
    data <- values$data[values$which_marker, ] 
    rhandsontable(t(data), rowHeaderWidth = 120) 
    }) 
} 

shinyApp(ui, server)