Question

我使用shinydashboard开发Web应用程序然后遇到问题。如下：

Server:
output$track_train <- renderREmap(
remapB(
center = BJU,
zoom = 9,
color = "grassgreen", 
markLineData   = markLine_data,
markPointData  = markPointData,
markLineTheme  = markLine_Control,
markPointTheme = markPointTheme,
geoData = gdata)) 

UI:
body <- dashboardBody(
tabItems(
  tabItem(tabName = "wifi_01_company",
            tabsetPanel(type = "tabs",
              tabPanel("trail",
                       icon = icon("tag"),
                       REmapOutput("track_train")
                        ),...

error message:
Uncaught TypeError: Cannot read property 'options' of undefined
at HTMLDocument.<anonymous> (app.js:156)
at i (jquery.min.js:2)
at Object.fireWith [as resolveWith] (jquery.min.js:2)
at Function.ready (jquery.min.js:2)
at HTMLDocument.K (jquery.min.js:2) htmlwidgets.js:475 
Uncaught TypeError: Cannot read property 'filter' of undefined
at exports.OutputBinding.shinyBinding.find (htmlwidgets.js:475)
at a (init_shiny.js:15)
at f (init_shiny.js:215)
at initShiny (init_shiny.js:279)

如果我评论“REmapOutput（”track_train“）”，一切正常。

如果我修改代码：dashboardSidebar（disbale = TRUE），简单到框（REmapOutput（“track_train”）），everythig就可以了。

如何在tabItem中输出“REmap”对象？请帮助我，感谢你。

REmap是R包，源代码：https://github.com/Lchiffon/REmap

tabItem中的“REmap”对象无法显示

0 个答案: