将一些闪亮的应用程序组合到一个闪亮的仪表板
Combine some shiny apps to one shiny dashboard
我有几个闪亮的应用程序,现在我想为这些应用程序创建一个仪表板。我不想改变原来的 apps.Just 想创建另一个 ui.R 和 server.R。并将其他应用程序集成到其中。像下面的结构。
#ui.R
ui <- dashboardPage(
dashboardHeader(title = "App User Analyse"),
dashboardSidebar(
sidebarMenu(
menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
menuItem("Widgets", tabName = "widgets", icon = icon("th"))
)
),
dashboardBody(
tabItems(
# First tab content
tabItem(tabName = "Dashboard",
***app1***
),
# Second tab content
tabItem(tabName = "widgets",
***app2***
)
)
)
)
我是 shiny and shiny 服务器的新手。我不确定是否有办法实现这一目标。如果是的话,谁能给我一个小例子吗?谢谢!
我的第一直觉是,您不能简单地将所有应用程序代码复制到一个地方并期望它能正常工作,您必须做一些工作才能将它们集成在一起。例如,如果您的两个应用程序有一个 ID 为 "foo" 的输入字段,那么您不能在一个 shinydashboard 应用程序中将它们都保持不变,因为您不能有多个具有相同 ID 的元素。这只是一个非常简单的示例,说明为什么您不能简单地将所有代码连接在一起。
我有几个闪亮的应用程序,现在我想为这些应用程序创建一个仪表板。我不想改变原来的 apps.Just 想创建另一个 ui.R 和 server.R。并将其他应用程序集成到其中。像下面的结构。
#ui.R
ui <- dashboardPage(
dashboardHeader(title = "App User Analyse"),
dashboardSidebar(
sidebarMenu(
menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
menuItem("Widgets", tabName = "widgets", icon = icon("th"))
)
),
dashboardBody(
tabItems(
# First tab content
tabItem(tabName = "Dashboard",
***app1***
),
# Second tab content
tabItem(tabName = "widgets",
***app2***
)
)
)
)
我是 shiny and shiny 服务器的新手。我不确定是否有办法实现这一目标。如果是的话,谁能给我一个小例子吗?谢谢!
我的第一直觉是,您不能简单地将所有应用程序代码复制到一个地方并期望它能正常工作,您必须做一些工作才能将它们集成在一起。例如,如果您的两个应用程序有一个 ID 为 "foo" 的输入字段,那么您不能在一个 shinydashboard 应用程序中将它们都保持不变,因为您不能有多个具有相同 ID 的元素。这只是一个非常简单的示例,说明为什么您不能简单地将所有代码连接在一起。