R &引用；错误：发生错误。检查您的日志或联系应用程序作者以获得澄清。”；

我正在尝试设置我的第一个闪亮应用程序，但遇到以下错误消息：

“错误：发生错误。请检查日志或与应用程序作者联系以获得澄清。”

我看到了“reactive:plotObj”，我认为这可能是问题所在，但我没有实际的（标记的）reactive项。如果可以澄清任何问题，我可以包括ui.R和server.R。我在代码中查找那些明显的错误，它们对我来说并不明显

我已经复制了我的日志，有以下内容：

2019-06-21T20:31:49.080604+00:00 shinyapps[991225]: Server version: 1.7.6-6
2019-06-21T20:31:49.080607+00:00 shinyapps[991225]: LANG: en_US.UTF-8
2019-06-21T20:31:49.080652+00:00 shinyapps[991225]: R version: 3.5.2
2019-06-21T20:31:49.080654+00:00 shinyapps[991225]: shiny version: 1.3.2
2019-06-21T20:31:49.080655+00:00 shinyapps[991225]: httpuv version: 1.5.1
2019-06-21T20:31:49.080656+00:00 shinyapps[991225]: rmarkdown version:    
(none)
2019-06-21T20:31:49.080676+00:00 shinyapps[991225]: jsonlite version: 1.6
2019-06-21T20:31:49.080656+00:00 shinyapps[991225]: knitr version: (none)
2019-06-21T20:31:49.080687+00:00 shinyapps[991225]: RJSONIO version: (none)
2019-06-21T20:31:49.080687+00:00 shinyapps[991225]: htmltools version:   
0.3.6
2019-06-21T20:31:49.080903+00:00 shinyapps[991225]: Using pandoc 
at /opt/connect/ext/pandoc2
2019-06-21T20:31:49.305354+00:00 shinyapps[991225]: Using jsonlite for 
JSON processing
2019-06-21T20:31:49.312109+00:00 shinyapps[991225]: 
2019-06-21T20:31:49.312113+00:00 shinyapps[991225]: Starting R with process 
ID: '24'
2019-06-21T20:31:49.393993+00:00 shinyapps[991225]: 
2019-06-21T20:31:49.393995+00:00 shinyapps[991225]: Listening on
http://127.0.0.1:33615
2019-06-21T20:31:51.249231+00:00 shinyapps[991225]: Warning: Error in $:   
object of type 'closure' is not subsettable
2019-06-21T20:31:51.277783+00:00 shinyapps[991225]:   179: renderPlot
[/srv/connect/apps/Tim_Mullen_Assign_3/app.R#38]
2019-06-21T20:31:51.277786+00:00 shinyapps[991225]:   177: func
2019-06-21T20:31:51.277786+00:00 shinyapps[991225]:   137: drawPlot
2019-06-21T20:31:51.277790+00:00 shinyapps[991225]:   123:    
<reactive:plotObj>
2019-06-21T20:31:51.277790+00:00 shinyapps[991225]:   107: drawReactive
2019-06-21T20:31:51.277791+00:00 shinyapps[991225]:    94: origRenderFunc
2019-06-21T20:31:51.277791+00:00 shinyapps[991225]:    93: output$map
2019-06-21T20:31:51.277792+00:00 shinyapps[991225]:    13: runApp
2019-06-21T20:31:51.277792+00:00 shinyapps[991225]:    12: fn
2019-06-21T20:31:51.277792+00:00 shinyapps[991225]:     7: connect$retry
2019-06-21T20:31:51.277793+00:00 shinyapps[991225]:     6: eval
2019-06-21T20:31:51.277794+00:00 shinyapps[991225]:     5: eval
2019-06-21T20:34:21.993347+00:00 shinyapps[991225]: Server version: 1.7.6-6
2019-06-21T20:34:21.993349+00:00 shinyapps[991225]: LANG: en_US.UTF-8
2019-06-21T20:34:21.993405+00:00 shinyapps[991225]: knitr version: (none)
2019-06-21T20:34:21.993385+00:00 shinyapps[991225]: R version: 3.5.2
2019-06-21T20:34:21.993387+00:00 shinyapps[991225]: shiny version: 1.3.2
2019-06-21T20:34:21.993388+00:00 shinyapps[991225]: httpuv version: 1.5.1
2019-06-21T20:34:21.993388+00:00 shinyapps[991225]: rmarkdown version:   
(none)
2019-06-21T20:34:22.240898+00:00 shinyapps[991225]: Starting R with process  
ID:'23'
2019-06-21T20:34:21.993409+00:00 shinyapps[991225]: jsonlite version: 1.6
2019-06-21T20:34:22.234937+00:00 shinyapps[991225]: Using jsonlite for  
JSON processing
2019-06-21T20:34:21.993442+00:00 shinyapps[991225]: RJSONIO version: (none)
2019-06-21T20:34:21.993453+00:00 shinyapps[991225]: htmltools version: 
0.3.6
2019-06-21T20:34:21.993631+00:00 shinyapps[991225]: Using pandoc at 
 /opt/connect/ext/pandoc2
2019-06-21T20:34:22.240897+00:00 shinyapps[991225]: 
2019-06-21T20:34:22.311768+00:00 shinyapps[991225]: 
2019-06-21T20:34:22.311770+00:00 shinyapps[991225]: Listening on 
http://127.0.0.1:41309

2019-06-21T20:31:49.080604+00:00 shinyapps[991225]：服务器版本：1.7.6-6
2019-06-21T20:31:49.080607+00:00 shinyapps[991225]：LANG:en_US.UTF-8
2019-06-21T20:31:49.080652+00:00 shinyapps[991225]：R版本：3.5.2
2019-06-21T20:31:49.080654+00:00 shinyapps[991225]：闪亮版本：1.3.2
2019-06-21T20:31:49.080655+00:00 shinyapps[991225]：httpuv版本：1.5.1
2019-06-21T20:31:49.080656+00:00 shinyapps[991225]：rmarkdown版本：
（无）
2019-06-21T20:31:49.080676+00:00 shinyapps[991225]：jsonlite版本：1.6
2019-06-21T20:31:49.080656+00:00 shinyapps[991225]：knitr版本：（无）
2019-06-21T20:31:49.080687+00:00 shinyapps[991225]：RJSONIO版本：（无）
2019-06-21T20:31:49.080687+00:00 shinyapps[991225]：htmltools版本：
0.3.6
2019-06-21T20:31:49.080903+00:00 shinyapps[991225]：使用潘多克
at/opt/connect/ext/pandoc2
2019-06-21T20:31:49.305354+00:00 shinyapps[991225]：使用jsonlite进行
JSON处理
2019-06-21T20:31:49.312109+00:00 shinyapps[991225]：
2019-06-21T20:31:49.312113+00:00 shinyapps[991225]：用过程启动R
ID:'24'
2019-06-21T20:31:49.393993+00:00 shinyapps[991225]：
2019-06-21T20:31:49.393995+00:00 shinyapps[991225]：收听
http://127.0.0.1:33615
2019-06-21T20:31:51.249231+00:00Shinyapps[991225]：警告：美元中有错误：
“closure”类型的对象不可子集
2019-06-21T20:31:51.277783+00:00 shinyapps[991225]：179：效果图
[/srv/connect/apps/Tim_Mullen_Assign_3/app.R#38]
2019-06-21T20:31:51.277786+00:00 shinyapps[991225]：177:func
2019-06-21T20:31:51.277786+00:00 shinyapps[991225]：137：绘图
2019-06-21T20:31:51.277790+00:00 shinyapps[991225]：123：
2019-06-21T20:31:51.277790+00:00 shinyapps[991225]：107:
2019-06-21T20:31:51.277791+00:00 shinyapps[991225]：94:origRenderFunc
2019-06-21T20:31:51.277791+00:00 shinyapps[991225]：93:输出$map
2019-06-21T20:31:51.277792+00:00 shinyapps[991225]：13:runApp
2019-06-21T20:31:51.277792+00:00 shinyapps[991225]：12:fn
2019-06-21T20:31:51.277792+00:00 shinyapps[991225]：7:connect$retry
2019-06-21T20:31:51.277793+00:00 shinyapps[991225]：6:eval
2019-06-21T20:31:51.277794+00:00 shinyapps[991225]：5:eval
2019-06-21T20:34:21.993347+00:00 shinyapps[991225]：服务器版本：1.7.6-6
2019-06-21T20:34:21.993349+00:00 shinyapps[991225]：LANG:en_US.UTF-8
2019-06-21T20:34:21.993405+00:00 shinyapps[991225]：knitr版本：（无）
2019-06-21T20:34:21.993385+00:00 shinyapps[991225]：R版本：3.5.2
2019-06-21T20:34:21.993387+00:00 shinyapps[991225]：闪亮版本：1.3.2
2019-06-21T20:34:21.993388+00:00 shinyapps[991225]：httpuv版本：1.5.1
2019-06-21T20:34:21.993388+00:00 shinyapps[991225]：rmarkdown版本：
（无）
2019-06-21T20:34:22.240898+00:00 shinyapps[991225]：用过程启动R
ID:'23'
2019-06-21T20:34:21.993409+00:00 shinyapps[991225]：jsonlite版本：1.6
2019-06-21T20:34:22.234937+00:00 shinyapps[991225]：使用jsonlite进行
JSON处理
2019-06-21T20:34:21.993442+00:00 shinyapps[991225]：RJSONIO版本：（无）
2019-06-21T20:34:21.993453+00:00 shinyapps[991225]：htmltools版本：
0.3.6
2019-06-21T20:34:21.993631+00:00 shinyapps[991225]：在
/opt/connect/ext/pandoc2
2019-06-21T20:34:22.240897+00:00 shinyapps[991225]：
2019-06-21T20:34:22.311768+00:00 shinyapps[991225]：
2019-06-21T20:34:22.311770+00:00 shinyapps[991225]：收听
http://127.0.0.1:41309

标题面板、selectInput、sliderInput和Main面板功能正常。“已发布”时，“来自百分比的贴图”贴图不会一直加载。我希望能得到这张地图

这是我的密码。谢谢大家的帮助

library(shiny)
library(maps)
library(mapproj)
source("WWW/helpers.R")

ui <- fluidPage(
   br(),
  tags$em("For updated crime data please visit: ",
      tags$a(href = "https://crime-data-explorer.fr.cloud.gov", "Crime Data Explorer")),
  titlePanel("Assaults in America, 1973"),

  sidebarLayout(
sidebarPanel(
  helpText("Create crime maps with the information from USAssaults Dataframe"),

  selectInput("var", 
              label = "Choose a Variable to Display",
              choices = c("Assault", "Murder", "Rape"),
              selected = "Murder"),
  br(),

  sliderInput("range",
              label = "Rate of Occurances:",
              min = 0, max = 100, value = c(0,100)),
  br(),

  sliderInput("alpha",
              label = "Choose an Alpha to Adjust Transparency",
              min = 0, max = 1, value = c(0,1))
),

mainPanel(plotOutput("map"))
  )
)

server <-function(input, output) {
  output$map <- renderPlot({
    data <- switch (input$var,
                "Assault" = df$Assault,
                "Murder" = df$Murder,
                "Rape" = df$Rape)
color <- switch (input$var,
                 "Assault" = "darkgreen",
                 "Murder" = "black",
                 "Rape" = "red")
legend <- switch (input$var,
                  "Number of Assualts" = "% Assualts",
                  "Number of Murders" = "% Murders",
                  "Number of Rapes" = "% Rapes")
alpha <- switch(input$var,
                "Assault" = df$Assault,
                "Murder" = df$Murder,
                "Rape" = df$Rape)
percent_map (data, color, legend, input$range[1], input$range[2])
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（地图）
图书馆（mapproj）
资料来源（“WWW/helpers.R”）
$中的ui
错误：“closure”类型的对象不可子集
表示您试图将
$
应用于函数。由于我看不到您在代码中定义了数据帧
df
，我怀疑这个数据帧不存在，并且R“认为”
df
是
stats
包的函数（Fisher分布的密度）.
美元中的错误：类型为“closure”的对象不可子集
表示您试图将
$
应用于函数。由于我看不到您在代码中定义了数据帧
df
，我怀疑这个数据帧不存在，并且R“认为”
df
是
stats
包的函数（Fisher分布的密度）。
来自“类型为“closure”的对象不可子集”，我猜您在某个时候已经将data.frame命名为
data
。。。现在它还没有定义，您闪亮的代码实际上是在看一个函数，而不是一个框架。。。。或者，您可能正在访问一个被动的（
my_data欢迎来到SO！您能发布一些您尝试过的问题代码吗？这可能会让您对问题有更多的看法，并更快地得到答案。@technogeek1995感谢您的帮助！我已经添加了代码，希望这会有所帮助。@r2evans感谢您的建议。我注意到我确实有“来自”的数据“closure”类型的对象是不可子集的”，我的猜测是您在某个时候将data.frame命名为
data
…现在它还没有定义，您闪亮的代码实际上是在查看函数，而不是框架…或者