R身份验证后的shinymanager removeTab

library(shiny)
library(shinymanager)

# 创建一个管理员用户
credentials <- data.frame(
  user = c("admin"),
  password = c("password"),
  stringsAsFactors = FALSE
)

# 创建一个Shiny应用程序
ui <- secure_app(
  # 添加身份验证选项
  authentication = basic_auth(
    realm = "Restricted area",
    credentials = credentials
  ),
  # 添加选项卡
  tabsetPanel(
    id = "tabs",
    tabPanel("Tab 1", "This is tab 1 content"),
    tabPanel("Tab 2", "This is tab 2 content"),
    tabPanel("Tab 3", "This is tab 3 content")
  )
)

server <- function(input, output, session) {
  # 在身份验证成功后，移除Tab 3选项卡
  observeEvent(input$auth, {
    if (isTRUE(input$auth)) {
      removeTab(inputId = "tabs", target = "Tab 3")
    }
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)