小编Pro*_*nob的帖子

我有一个 R 闪亮应用程序，它使用 javascript 库传单在地图上显示选举结果。

最初，地图填充基于获胜方（一个分类变量）。用户也可以切换查看人口统计数据（连续变量）。我能够得到两张地图。但是当leafletproxy根据用户的要求改变地图的填充属性时，之前地图的图例不会被覆盖，而是新的图例出现在之前的图例之上。如何在 R 中删除传单中的图例？

我有一个简单的闪亮应用程序，上面只有一个下拉列表，列出了阿富汗各地区，并且有相同的传单地图。

可以通过以下链接访问形状文件-使用http://www.gadm.org/download中的 AFG_adm2.shp

这是应用程序代码：

library(shiny)
library(leaflet)
library(rgdal)
library(sp)

afg <- readOGR(dsn = "data", layer ="AFG_adm2", verbose = FALSE, stringsAsFactors = FALSE)

ui <- fluidPage(
    titlePanel("Test App"),
    selectInput("yours", choices = c("",afg$NAME_2), label = "Select Country:"),
    leafletOutput("mymap")

)

server <- function(input, output){
  output$mymap <- renderLeaflet({
    leaflet(afg) %>% #addTiles() %>%
       addPolylines(stroke=TRUE, color = "#00000", weight = 1) 
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

我想要一个功能，当我从下拉列表中选择一个区域时，该区域的边框填充会发生变化，而setView函数会使该区域成为焦点。有人可以帮我解决代码吗？我看了这篇文章，但意义不大。

我不明白为什么以下代码的输出是[7 56].

import tensorflow as tf

x = tf.constant([[1, 2, 4], [8, 16, 32]])
a = tf.reduce_sum(x, -1)  # [ 9 18 36]

with tf.Session() as sess:
  output_a = sess.run(a)
  print(output_a)

我知道按行添加已经完成。但也有人能够解释为什么一些轻-1的reduce_sum功能已被处理，总结行中的所有值？

我有一个简单的闪亮应用程序，只有一个下拉列表阿富汗地区和一张相同的传单地图。

可以通过此链接访问形状文件- 使用来自http://www.gadm.org/download 的AFG_adm2.shp

这是应用程序代码：

library(shiny)
library(leaflet)
library(rgdal)
library(sp)

afg <- readOGR(dsn = "data", layer ="AFG_adm2", verbose = FALSE, stringsAsFactors = FALSE)

ui <- fluidPage(
    titlePanel("Test App"),
    selectInput("yours", choices = c("",afg$NAME_2), label = "Select Country:"),
    actionButton("zoomer","reset zoom"),
    leafletOutput("mymap")

)

server <- function(input, output){
  initial_lat = 33.93
  initial_lng = 67.71
  initial_zoom = 5

  output$mymap <- renderLeaflet({
    leaflet(afg) %>% #addTiles() %>%
       addPolylines(stroke=TRUE, color = "#00000", weight = 1) 
  })

  proxy <- leafletProxy("mymap")

  observe({
    if(input$yours!=""){
      #get the selected polygon …