有光澤的儀表板中的動態物體

Question

我正在使用R/shinydasboard創建一個Web應用程序，我將它放在登錄屏幕後面。

我在基於側邊欄菜單選項卡獲取主體進行渲染時遇到了問題。

我試圖確保其中一個標籤項目有selected = TRUE仍然無濟於事。

示例代碼如下：

require(shiny) 
require(shinydashboard) 

Logged <- FALSE; 
LoginPass <- 0; #0: not attempted, -1: failed, 1: passed 

login <- box(title = "Login",textInput("userName", "Username (user)"), 
      passwordInput("passwd", "Password (test)"), 
      br(),actionButton("Login", "Log in")) 

loginfail <- box(title = "Login",textInput("userName", "Username"), 
       passwordInput("passwd", "Password"), 
       p("Username or password incorrect"), 
       br(),actionButton("Login", "Log in")) 

mainbody <- div(tabItems(
    tabItem(tabName = "t_item1", box(title = "Item 1 information")), 
    tabItem(tabName = "t_item2", box(title = "Item 2 information")), 
    tabItem(tabName = "t_item3", box(title = "Item 3 information")) 
) 
) 

header <- dashboardHeader(title = "dashboard header") 

sidebar <- dashboardSidebar(uiOutput("sidebarpanel")) 

body <- dashboardBody(uiOutput("body")) 

ui <- dashboardPage(header, sidebar, body) 

server <- function(input, output, session) { 
    USER <<- reactiveValues(Logged = Logged, LoginPass = LoginPass) 
    observe({ 
    if (USER$Logged == FALSE) { 
     if (!is.null(input$Login)) { 
     if (input$Login > 0) { 
      username <- isolate(input$userName) 
      password <- isolate(input$passwd) 
      #Id.username <- which(my_username == Username) 
      if (username == "user" & password == "test") { 
      USER$Logged <<- TRUE 
      USER$LoginPass <<- 1 
      } 
      USER$LoginPass <<- -1 
     } 
     } 
    } 
    }) 

    output$sidebarpanel <- renderUI({ 
    if (USER$Logged == TRUE) { 
     div(
     sidebarMenu(
      menuItem("Item 1", tabName = "t_item1", icon = icon("line-chart"), selected = TRUE), 
      menuItem("Item 2", tabName = "t_item2", icon = icon("users")), 
      menuItem("item 3", tabName = "t_item3", icon = icon("dollar")) 
     ) 
    )} 
    }) 
    output$body <- renderUI({ 
    if (USER$Logged == TRUE) { 
     mainbody 
    } 
    else { 
     if(USER$LoginPass >= 0) { 
     login 
     } 
     else { 
     loginfail 
     } 
    } 
    }) 
} 

shinyApp(ui, server) 

如何獲得型主體顯示的分頁之一，當負載將不勝感激任何建議。我懷疑它可能是由於sidebar和body的加載順序，但我不確定如何進一步調查。

我也試過conditionalPanel但是無法讓它工作。

UPDATE 此屏幕截圖顯示登錄後直接發生的行爲。

此屏幕截圖顯示了登錄後所需的行爲。

Answer 1

您需要設置tabItem爲活動：

tabItem(tabName = "t_item1", class = "active", box(title = "Item 1 information")) 

，它將使第一個標籤，當你動態地呈現登錄後的內容。