从Shinyapp.io获取身份验证用户名

Question

我正在尝试为我的闪亮应用跟踪用户。我只是想在登录时使用他们的身份验证用户名。

我尝试通过name <- session$user获取用户名，并通过write.table(name, file = ".../.../data.csv", append = T, row.names = F, col.names = F)将这一行添加到预先存在的表中

我的应用程序的简化版本如下：

mig_data <- read.csv('db/data.csv')
mb <- unique(mig_data$basket_name)

ui <- fluidPage(
    h1("My shiny Sample"),
    br(),
    tabsetPanel(tabPanel('zm', highchartOutput('zmdata')))
    )

server <- function(input, output, session) {
     output$zmdata <- renderHighchart({
      hc <- highchart() %>%
      hc_chart(type = "column") %>%
      hc_add_series(name = "Web", data = mig_data[(mig_data$store_name== 'aloha' & mig_data$status == 'Web'),]$price) %>%
      hc_xAxis(categories = mb)
    })

     session$onSessionEnded(function(){
      whom <- session$user
      isolate(write.table(whom, file = "db/userlog.csv", append = T, row.names = F, col.names = F))
})

app <- shinyApp(ui, server)

但是，当我在Shiny.io上打开已部署的Shiny应用程序时，userlog.csv表中没有任何内容。 （我确实希望我的电子邮件地址出现。）

只是想知道是否有人对此有任何想法？ 预先感谢！