Заполнитель / метка ячейки в конкретном столбце с данными блестящий r

Я пытаюсь получить заполнитель или имя ячейки для определенного столбца в редактируемой таблице данных в блестящем R. Это гарантирует, что пользователь узнает, что конкретный столбец можно редактировать.

Я привожу пример кода. Вместо того, чтобы количество столбцов отображало значение 0, я хочу, чтобы метка-заполнитель / ячейка отображалась как дважды щелкните здесь, чтобы ввести значение. Я не хочу сохранять iris $ count ‹- дважды щелкните для ввода

ui <- fluidPage(
  DT::dataTableOutput("table"),
)

server <- shinyServer (
  function (input, output, session) {
    
    observeEvent(input$table3_cell_edit,{
      info = input$table3_cell_edit
      str(info)
      i = info$row
      j = info$col
      v = info$value
      vals$df_input <<- editData(vals$df_input, info)
      
    })
    
    output$table <- DT::renderDataTable (iris, 
                                         editable = list(target = 'cell', disable = list( columns = c(1,2,3,4,5)) ))
  
    }
)

shinyApp(ui = ui, server = server)

Это то, что производит текущий код

Я хочу что-то вроде этого

Заранее спасибо.