我正在创建一个闪亮的应用程序,它将显示一个仪表板,但在此之前,它将要求用户登录。有两个UI,ui_login和ui_app,但是在ui_app中,如果我使用fluidPage / fixedPage或其他一些而不是dashboardPage,它的工作正常。有什么办法可以在登录后显示dashboardPage。
library(shiny)
library(shinydashboard)
my_username = "user"
my_password = "pass"
ui <- uiOutput("page")
ui_login <- fluidPage(
div(
textInput("username", "Username"),
passwordInput("passwd", "Password"),
br(),
actionButton("Login", "Log In"),
uiOutput("invalid")
)
)
ui_app <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody()
)
server <- function(input, output, session) {
#app server code-----
observe({
if(USER$Logged == FALSE) {
if(!is.null(input$Login)) {
if(input$Login > 0) {
Username <- isolate(input$username)
Password <- isolate(input$passwd)
if((Username == my_username) & (Password == my_password)){
USER$Logged = TRUE
}
else {
output$invalid <- renderUI(h4("Please enter valid login credentials!", style="color:red;"))
}
}
}
}
else {
output$invalid <- renderUI(h4("Please enter valid login credentials!", style="color:red;"))
}
})
observe({
if(USER$Logged == FALSE) {
output$page <- renderUI(ui_login)
}
else {
output$page <- renderUI(ui_app)
}
})
}
shinyApp(ui, server)
答案 0 :(得分:2)