Блестящий идентификатор сеанса пользователя в теле - PullRequest
0 голосов
/ 16 ноября 2018

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