R:无法读取发光对象错误：不允许从发光输出对象读取对象类型% 添加多边形( fillColor=~pal（类型为shp$`Avg Price`），重量=2，不透明度=1， color=“白色”， dashArray=“3”， fillOpacity=0.7， highlight=highlightOptions( 重量=5， color=“#666”， dashArray=“”， fillOpacity=0.7， bringToFront=真），标签=标签，标签选项=标签选项( 样式=列表（“font-weight”=“normal”，padding=“3px 8px”）， textsize=“15px”， direction=“auto”））%%>% addLegend（pal=pal， values=GREEN_shp$`Avg Price`，不透明度=0.7，标题=NULL， position=“bottomright”） ) 类型% 添加多边形( fillColor=~pal（类型为shp$`Avg Price`），重量=2，不透明度=1， color=“白色”， dashArray=“3”， fillOpacity=0.7， highlight=highlightOptions( 重量=5， color=“#666”， dashArray=“”， fillOpacity=0.7， bringToFront=真），标签=标签，标签选项=标签选项( 样式=列表（“font-weight”=“normal”，padding=“3px 8px”）， textsize=“15px”， direction=“auto”））%%>% addLegend（pal=pal， values=GREEN_shp$`Avg Price`，不透明度=0.7，标题=NULL， position=“bottomright”） ) 输出$summary_table_R_Shiny_Leaflet

R:无法读取发光对象错误：不允许从发光输出对象读取对象类型% 添加多边形( fillColor=~pal（类型为shp$`Avg Price`），重量=2，不透明度=1， color=“白色”， dashArray=“3”， fillOpacity=0.7， highlight=highlightOptions( 重量=5， color=“#666”， dashArray=“”， fillOpacity=0.7， bringToFront=真），标签=标签，标签选项=标签选项( 样式=列表（“font-weight”=“normal”，padding=“3px 8px”）， textsize=“15px”， direction=“auto”））%%>% addLegend（pal=pal， values=GREEN_shp$`Avg Price`，不透明度=0.7，标题=NULL， position=“bottomright”） ) 类型% 添加多边形( fillColor=~pal（类型为shp$`Avg Price`），重量=2，不透明度=1， color=“白色”， dashArray=“3”， fillOpacity=0.7， highlight=highlightOptions( 重量=5， color=“#666”， dashArray=“”， fillOpacity=0.7， bringToFront=真），标签=标签，标签选项=标签选项( 样式=列表（“font-weight”=“normal”，padding=“3px 8px”）， textsize=“15px”， direction=“auto”））%%>% addLegend（pal=pal， values=GREEN_shp$`Avg Price`，不透明度=0.7，标题=NULL， position=“bottomright”） ) 输出$summary_table

r shiny leaflet

R:无法读取发光对象错误：不允许从发光输出对象读取对象类型% 添加多边形( fillColor=~pal（类型为shp$`Avg Price`），重量=2，不透明度=1， color=“白色”， dashArray=“3”， fillOpacity=0.7， highlight=highlightOptions( 重量=5， color=“#666”， dashArray=“”， fillOpacity=0.7， bringToFront=真），标签=标签，标签选项=标签选项( 样式=列表（“font-weight”=“normal”，padding=“3px 8px”）， textsize=“15px”， direction=“auto”））%%>% addLegend（pal=pal， values=GREEN_shp$`Avg Price`，不透明度=0.7，标题=NULL， position=“bottomright”） ) 类型% 添加多边形( fillColor=~pal（类型为shp$`Avg Price`），重量=2，不透明度=1， color=“白色”， dashArray=“3”， fillOpacity=0.7， highlight=highlightOptions( 重量=5， color=“#666”， dashArray=“”， fillOpacity=0.7， bringToFront=真），标签=标签，标签选项=标签选项( 样式=列表（“font-weight”=“normal”，padding=“3px 8px”）， textsize=“15px”， direction=“auto”））%%>% addLegend（pal=pal， values=GREEN_shp$`Avg Price`，不透明度=0.7，标题=NULL， position=“bottomright”） ) 输出$summary_table,r,shiny,leaflet,R,Shiny,Leaflet,我觉得这部分很奇怪 text这是不可能的： text <- reactive({input$genre}) text2 <- reactive({text()}) genre_shp <- Allgenre[Allgenre$genre == text2,] 然后使用genre\u shp（）作为传单参数。仍然没有运气，我试过：genre_shp在这一点上，你提到了应用程序失败的地方-所有其他的都应该运行它的最后一部分，将数据连接到传单绘图我已经更新了一点答案-

我觉得这部分很奇怪

text这是不可能的：
  text <- reactive({input$genre})
  text2 <- reactive({text()})

  genre_shp <- Allgenre[Allgenre$genre == text2,]

然后使用genre\u shp（）
作为传单参数。
仍然没有运气，我试过：genre_shp在这一点上，你提到了应用程序失败的地方-所有其他的都应该运行它的最后一部分，将数据连接到传单绘图我已经更新了一点答案-你能试着运行这个简单的版本，看看你能不能让mymap
在ui
端正确渲染？同样的问题按照SmokeyShakers建议的修复方法发生。当我运行serve时，GREES_shp确实成功地更新了摘要输出的数据，但它对绘图不起作用。当我将标签设置为GREEP_shp$变量时，我知道返回值，当我将它们转换回GREEP_shp时，我得到返回值，但对标签以外的所有内容使用GREEP_shp，但是该返回值不包含传单输出。我应该在哪里得到->错误：无效的参数“类型”（列表）这里有一点好消息。这确实允许读入数据集并通过输出摘要进行表示，但我的传单图仍然不显示。getReactiveEnvironment（）$currentContext（）中仍然存在get:Error错误：如果没有活动的反应上下文，则不允许操作。（您试图做一些只能从反应式表达式或观察者内部完成的事情。）当我做一些类似于流派_shp（）$Avg Price
nothing渲染的事情时，我的标签设置似乎不太一样。当我保留所有内容，但将标签改为orgData$Avg Price
时，我用于测试的数据的一部分会比应用程序运行的数据多，但下拉列表适用于我的统计摘要，但不适用于我的传单啊，所以你不能执行Gene_shp（）除非您处于被动上下文中。在闪亮的应用程序中，我得到这个错误，而不是我的传单plot:error:invalid'type'（list）参数
genre_shp <- reactive(Allgenre[Allgenre$genre == input$genre,])