R 单击“隐藏/取消隐藏”以使其发亮

下面是我闪亮的应用程序的屏幕截图，我创建了一个简单的

登录

页面，只向经过身份验证的用户授予数据访问权限。但我有以下问题,

无法在应用程序启动时隐藏

主面板

，这意味着-在应用程序启动时

主面板

应该是

隐藏的

，并且只有在按下

登录

按钮后才应该是

可见的

在

主面板

可见后侧栏，其中应隐藏

用户名

、

密码

和

登录按钮

UI.R

library(shiny)
library(shinyjs)

shinyUI(fluidPage(
 useShinyjs(),
 titlePanel(
 fluidRow(  
column(9, h1("VHMS")),
column(1, img(src = '2.png', width = 100))), windowTitle = "my"),

br(),
br(),
br(),
br(),
sidebarLayout(

sidebarPanel(
             textInput("Username", "Username"),
             passwordInput("Password", "Password"),
             actionButton("Login", "Login")),position = "right",


mainPanel(

  fluidRow( column(12,

 (tabsetPanel("views", type = "tabs",
                 tabPanel("TableView", dataTableOutput("df_directions")),
                 tabPanel("MapView", dataTableOutput("df_locations"))
  )


  )
  )
  )         
  ) 
  )
  )
 )

Server.R

library(shiny)
library(shinyjs)
useShinyjs()
shinyServer(function(input, output) {
output$df_directions <-   renderDataTable({
json_data1 }, options = list(scrollX = TRUE))  
})

库（闪亮）
图书馆（shinyjs）
useShinyjs（）
shinyServer（功能（输入、输出）{
output$df_directions这是修改后的代码，在用户单击“Login”之前隐藏主面板。它仍然需要验证用户名和密码

库（闪亮）
图书馆（shinyjs）
ui成功了，非常感谢