r - 动态生成的 tabItems
问题描述
现在我正在使用uiOutput
withrenderUI
来显示我的内容。但我想使用 Google Analytics,所以我必须使用它tabItems
来跟踪我的应用程序的页面。但这对我不起作用。
我的代码的简单示例:
UI <- dashboardPagePlus(
header = dashboardHeaderPlus(...),
sidebar = dashboardSidebar(
...,
sidebarMenu(
menuItemOutput(
outputId = 'EventsMenu'
),
...
),
body = dashboardBody(
...,
uiOutput(
outputID = 'EventsBody'
),
...
)
)
Server <- function(
input,
output
) {
output$EventsMenu <- renderMenu(
{
lapply(
X = 1:10,
FUN = function(
ID
) {
menuItem(
text = 'Event',
tabName = paste0(
'Event',
ID
)
)
}
)
}
)
...
output$EventsBody <- renderUI(
{
if(
stri_detect(
str = 'Event'
)
) {
fluidPage(
fluidRow(
...
)
)
}
}
)
...
}
shinyApp(
ui = UI,
server = Server
)
我怎样才能更改我的使用代码tabItems
?
解决方案
只需处理它shiny.router
所以我的菜单项如下所示:
menuItem(
text = "Homepage",
href = route_link(
path = "Home"
),
newtab = FALSE
)
推荐阅读
- java - 如何让消息出现在不同的侧面?
- c - 将 Void* LinkedList 节点与 C 中的字符串进行比较
- java - 我如何从枚举中选择随机值?
- typescript - 从时间戳转换为日期与本地主机和服务器不同
- javascript - 单击没有按钮 ID 或类的 javascript 中的按钮
- java - 使用 StAX 写入现有 xml 文件
- c++ - 如何检查程序员在 C++ 中提供的两种不同格式的输入
- python - 循环遍历 XML 文件,解析数据,写入 Dataframe 和 XLSX 文件
- javascript - Django 和 javascript 并使用 URL 模板为 jvectormap 传递变量
- vim - 基于搜索的 Vim 行范围