小编Lin*_*nda的帖子

我想知道是否可以使用闪亮管理器保护闪亮的应用程序，但可以在输入用户名和密码之前访问应用程序的第一个选项卡，同时隐藏第二个和第三个选项卡？

我想要一个“连接”按钮来启动闪亮管理器页面，然后显示其他选项卡。

有人知道这是否可行，或者我应该使用自己的身份验证表格（这意味着安全性较低......）？

我的尝试：

library(shiny)
library(shinymanager)
library(shinydashboard)
library(shinyWidgets)
library(shinythemes)

credentials <- data.frame(
  user = c("user1"),
  password = c("1"),
  stringsAsFactors = FALSE
)

# user interface
ui <- navbarPage(id="navbarid",
                 "TEST",  theme = shinytheme("cosmo"),
                 header = tagList(
                   useShinydashboard()),

                 tabPanel(
                   "Welcome", fluidRow(align = "center", 
                        column(6, offset=4,
                               box(title = "Authentification", background = "black", 
                                 fluidRow(column(6, align = "center", style='padding-top:20px;',
                                    actionButton(inputId = "connect", label = "Log in")),
                                          column(6, align = "center", style='padding-top:20px;',
                                    actionButton(inputId = "register", label = "Register here"))))))),

                 tabPanel("Tab2", verbatimTextOutput("label1")
                   ),

                 tabPanel("Tab3", verbatimTextOutput("label2")
                 ))

ui …