Доступ к индивидуальным значениям в rhandsontable

Question

У меня проблема с доступом к отдельным значениям фрейма данных, который был создан из пакета rhandsontable. В следующем коде co[1] получает столбец 1, который имеет смысл, но затем я пытаюсь получить доступ col[1,1] строка 1 столбец 1 производит missing value where TRUE/FALSE needed which is a bizarre error in this circumstance. Я попытался получить доступ к нему с помощью метода списка, а именно co[[[1]][1] без удачи

library(shiny)
library(rhandsontable)

did_recalc <- FALSE

ui <- fluidPage(
  rHandsontableOutput('table'),
  dataTableOutput('result'),

  br(),
# tableOutput(),

  actionButton("recalc", "Return to original values")

)

server <- function(input,output,session)({


  a<-c(1,2,4,5,6,7)
  b<-c(1,2,4,5,6,7)
  c<-rbind(a,b)
  df1<-data.frame(c)

  #creates reactive values for the data frame
  values <- reactiveValues(data=df1)

  #if recalc --- which connects to an action button in the ui is hit, values goes back to original data frame
  observe({
    input$recalc
    values$data <- df1
  })

  #this changes the handsontable format to an r object
  observe({
    if(!is.null(input$table))
      values$data <- hot_to_r(input$table)
  })

  #important that you are using the values$data that have come from a reactive function
  output$table <- renderRHandsontable({
    rhandsontable(values$data)
  })

    fn<-reactive({

     co<-data.frame((values$data))

    #output$tst<-renderTable(co[3,2]*2)    #So if I convert to a new data frame I can do operations on the columns
                                          #Still need to be able to access individual cells
      return(co)
  })


   output$result<-renderDataTable({
    fn()
  })   

}) 

shinyApp(ui = ui, server = server)

У меня возникает ощущение, что объект, к которому я пытаюсь получить доступ, не является чистым или структурированным так, как я предполагаю.