Мне интересно.Есть ли какой-либо подход к отображению идентификатора пользователя сеанса в теле, а затем использовать его как переменную в Shiny / Shinydashboard?Когда мой коллега входит в мое приложение, он может видеть только мой идентификатор каждый раз.
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)