正文中的闪亮用户会话ID

Question

我想知道。有什么方法可以在主体中显示会话用户ID，然后将其用作Shiny / shinydashboard中的变量？当我的同事登录到我的应用程序时，他每次只能看到我的ID。

library(shinydashboard)
library(shiny)


ui <- dashboardPage(
                    dashboardHeader(),
                    dashboardSidebar(),
                    dashboardBody(column(4, wellPanel(
                      dateInput('date',
                                label = 'Date input: ',
                                value = Sys.Date()),
                      h5(tags$b("Request Owner")),
                      textOutput("user"))))
)



server <- function(input, output,session) {

  user_name <- function() {
    return(Sys.getenv()["USERNAME"][[1]])
    ### or return(Sys.getenv("USERNAME"))
  }

  #pobierz nazwe usera
  output$user <- user_name


}

shinyApp(ui,server)