R 基于Shinyapps io中的登录更改视图

我正在尝试构建一个闪亮的应用程序，其中用户视图会根据登录用户的不同而变化。我见过使用ShinyServerPro或R Studio connect来实现这一点的例子，但由于我们没有太多的预算，我们仍然使用shinyapps io来实现。有没有人在那里尝试过，或者有一些例子我可以参考。谢谢。

您可以要求用户登录闪亮应用程序，并使用

conditionalPanel

逻辑为不同的组呈现不同的UI

最小可复制示例：

library(shiny)

ui <- fluidPage(
  conditionalPanel(
    condition = "output.group == 0",
    textInput("groupname", "Enter your group name to proceed")
  ),
  conditionalPanel(
    condition = "output.group == 1",
    uiOutput("group1UI")
  ),
  conditionalPanel(
    condition = "output.group == 2",
    uiOutput("group2UI")
  )
)

server <- function(input, output) {
  # Logic for deciding the group
  output$group <- reactive({
    if (input$groupname == "group1") {
      return(1)
    } else if (input$groupname == "group2") {
      return(2)
    } else {
      return(0)
    }
  })
  outputOptions(output, "group", suspendWhenHidden = FALSE)

  # View for group 1
  output$group1UI <- renderUI({
    mainPanel(
      h3("Group 1 view"),
    )
  })

  # View for group 2
  output$group2UI <- renderUI({
    mainPanel(
      h3("Group 2 view"),
    )
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
ui您希望每个用户都有一个个性化的视图，还是您有一些用户组？组会更方便，但shinyappsI在下面添加了一个答案，这是可行的。你觉得有用吗？