Получить аутентификацию имени пользователя от 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)

Тем не менее, когда я открываю развернутое блестящее приложение на lovely.io, в таблицу userlog.csv ничего не записывается.(Который я действительно ожидаю, что мой адрес электронной почты появится.)

Просто интересно, есть ли у кого-нибудь идеи по этому поводу?Заранее спасибо!