Экспорт журнала событий в R блестящий

Question

Приведенный ниже код отслеживает события, по которым пользователь нажал. Но когда я выбираю mtcars и нажимаю на строки, записывается номер строки, а не имена строк. Могу ли я получить запись о том, какие имена строк щелкнули? Это возможно ............................................... ................................ ................

ui.R

library(shinydashboard)
library(readxl)
library(shiny)
library(shinylogs)
out <- data.frame(baseFns = ls('package:base'))

set_logging(r_console = TRUE,file = TRUE)


#Save and naigate log files 

if (is.null(interactive())) {
  tmp <- getwd()

  onStop(function(){
    browseURL(url = tmp)
  })
} else {
  tmp <- getwd()

  onStop(function(){
    browseURL(url = tmp)
  })
} 

# Define UI for application that draws a histogram
use_tracking()

dashboardPage(
  dashboardHeader(title = "Loading data"),
  dashboardSidebar(sidebarMenu(
    menuItem("Load Data", tabName = "Load_Data", icon = icon("balance-scale")),
    menuItem("Analysis", tabName = "Analysis", icon = icon("chart-bar"))
  )),
  dashboardBody(
    tabItems(tabItem(tabName = "Load_Data", selectInput("dataset",
                                                        "Select",choices = c("","iris","mtcars"), selected = "iris"),
                     DT::DTOutput('table1')),
            tabItem(tabName = "Analysis",DT::DTOutput('table2'))
    ),verbatimTextOutput("last"))
)

server.R

library(shiny)
library(shinylogs)
library(DT)
source("ui.R")
library(shinyEventLogger)



# Define server logic required to draw a histogram
shinyServer(function(input, output) {

  set_logging_session()
 # log_value(rownames(table2()))

  track_usage(
    storage_mode = store_json(path = tmp)
  )

  datasetInput <- reactive({
    switch(input$dataset,
           "iris" = iris,
           "mtcars" = mtcars)
  })

  output$table1 <- DT::renderDT({
    head(datasetInput(), n = 6)
  })

  output$table2 <- DT::renderDT({
    if(is.null(log_value(input$table1_rows_selected))){

    } else {
      head(datasetInput()[input$table1_rows_selected,], n = 100)
    }

  })

  output$last <- renderPrint({
    input$.shinylogs_lastInput
  })

})