将Shiny登录页面与我的应用程序相结合

Question

我已阅读此页面关于创建登录页面的信息：Starting Shiny app after password input

并尝试将登录页面的代码与我的应用程序结合起来。

但是，我不知道如何通过修改ui的部分来显示多个输出（包括tabPanel，navbarMenu，图，表和嵌入在renderUI中的一些动态项）：

ui2 <- function(){tagList(tabPanel("Test"))}

和服务器的一部分：

if (USER$Logged == TRUE) 
{
  output$page <- renderUI({
    div(class="outer",do.call(navbarPage,c(inverse=TRUE,title = "Contratulations you got in!",ui2())))
  })
  print(ui)
}

我试过了

source("ui.R")

我的应用程序的

，但无法通过此源函数找到并显示应用程序的图像。此外，在server.R中使用“renderUI”的一些动态输出无法显示，因为我无法在登录页面的代码中获取我的应用程序的server.R。

我可以通过“来源”功能将登录页面与我的应用程序结合起来吗？或者我是否需要在一个R脚本中将所有代码（登录页面和我的应用程序）组合在一起？