Изменить данные, используя расширение автозаполнения? - PullRequest
Новая
       5

Изменить данные, используя расширение автозаполнения?

0 голосов
/ 15 января 2019

Как использовать расширение автозаполнения для редактируемых таблиц?В приведенном ниже примере , измененном по сравнению с предыдущим вопросом , действие автозаполнения (заполнение таблицы с использованием синего квадрата) не выполняется.

Спасибо

Iain 

library(shiny)
library(DT)
shinyApp(
ui = fluidPage(
DTOutput('x1'),
verbatimTextOutput("print")
),
server = function(input, output, session) {
x = reactiveValues(df = NULL)

observe({
  df <- iris
  df$Date = Sys.time() + seq_len(nrow(df))
  x$df <- df
})

output$x1 = renderDT(x$df, selection = 'none', editable = TRUE, extensions = 'AutoFill', options = list(autoFill = TRUE))

proxy = dataTableProxy('x1')

observeEvent(input$x1_cell_edit, {
  info = input$x1_cell_edit
  str(info)
  i = info$row
  j = info$col
  v = info$value

  x$df[i, j] <- isolate(DT::coerceValue(v, x$df[i, j]))
})

output$print <- renderPrint({
  x$df
})
}
)
...