如何阻止在shinyauthr身份验证之前出现侧边栏

您可以将这两个面板包装在大约div个面板中，并为它们分配ID:

sidebarLayout(
    div(id = "sidebarPanel", sidebarPanel(uiOutput("sidebarpanel"))),
    div(id = "mainPanel", mainPanel(uiOutput("mainpanel")))
)

然后使用包含shinyjs::toggle的observe，具体取决于user_auth:

observe({
    shinyjs::toggle(id = "sidebarPanel", condition = credentials()$user_auth)
    shinyjs::toggle(id = "mainPanel", condition = credentials()$user_auth)
})

下面是一个完整的例子.

library(shiny)
library(shinyauthr)
library(shinyjs)

user_base <- tibble::tibble(
    user = c("user1"),
    password = c("pass1"),
    permissions = c("admin"),
    name = c("User One")
)

ui <- fluidPage(
    shinyjs::useShinyjs(),
    div(class = "pull-right", shinyauthr::logoutUI(id = "logout")),
    shinyauthr::loginUI(id = "login"),
    sidebarLayout(
        div(id = "sidebarPanel", sidebarPanel(uiOutput("sidebarpanel"))),
        div(id = "mainPanel", mainPanel(uiOutput("mainpanel")))
    )
)

server <- function(input, output, session) {
    
    credentials <- shinyauthr::loginServer(
        id = "login",
        data = user_base,
        user_col = user,
        pwd_col = password,
        log_out = reactive(logout_init())
    )
    
    logout_init <- shinyauthr::logoutServer(
        id = "logout",
        active = reactive(credentials()$user_auth)
    )
    
    observe({
        shinyjs::toggle(id = "sidebarPanel", condition = credentials()$user_auth)
        shinyjs::toggle(id = "mainPanel", condition = credentials()$user_auth)
    })
    
    output$sidebarpanel <- renderUI({
        req(credentials()$user_auth)
        tagList(
            numericInput("flank",
                         "Flank (bp)",
                         value = 110, min = 0, max = NA),
            numericInput("correction",
                         "Correction (repeats)",
                         value = 0, min = 0, max = NA)
        )
    })
    
    output$mainpanel <- renderTable({
        req(credentials()$user_auth)
        data.frame("Flank" = input$flank,
                   "Correction" = input$correction)
    })
    
}

shinyApp(ui = ui, server = server)