如何解决将多个rshiny应用程序合并为一个
我有几个闪亮的应用程序,我想将它们全部组合成一个应用程序。但是,我不想使用
source()
函数,但是我想为每个有光泽的应用程序复制粘贴代码。现在,如果其他人运行此应用程序,则会出现错误。对如何执行此操作有任何想法吗?
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),dashboardSidebar(
sidebarMenu(
menuItem("first_app",tabName = "first_app"),menuItem("second_app",tabName = "second_app")
)
),dashboardBody(
tabItems(
tabItem(tabName = "first_app",h2(source("sir.shiny.R",local = TRUE)$value)
),tabItem(tabName = "second_app",h2(source("seir.shiny.R",local = TRUE)$value)
)
)
)
)
server <- function(input,output,server){}
shinyApp(ui,server)
解决方法
也许您正在寻找:在UserData:
Fn::Base64:
!Sub |
echo ${ParamPassword} | tee - | passwd ec2-user
上方定义所有函数(或将它们放在ui
中),并在服务器函数中绘制每个模型。边栏允许用户选择感兴趣的模型。见下文。
global.R
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。