r - 我使用闪亮的仪表板侧边栏并得到 mongolite 错误

Question

当我使用 siderbarMenuOutput（客户端）和 renderMenu（服务器端）时，出现错误“mongo_collection_new 中的错误：is.character(db) not TRUE”。

应用程序很大，包括蒙古石。

如果我使用标准结构：

客户：

sidebarMenu(
            menuItem('1', tabName = 'tab1'),
            menuItem('2', tabName = 'tab2'),
            menuItem('3', tabName = 'tab3'))

错误不是，但如果我改变它

客户：

siderbarMenuOutput('menu')

服务器：

output$menu <- renderMenu({
    lapply(c('1','2','3'), function(x) {
        menuItem(x, tabName = paste0('item_',x)
    })
})

出现错误。

我也试过这个例子
从数据框创建闪亮的仪表板侧边栏菜单

但我仍然遇到同样的错误

谢谢你。