Почему выбранные столбцы не отключены? - PullRequest
Новая
       20

Почему выбранные столбцы не отключены?

0 голосов
/ 27 июня 2019

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

https://yihui.shinyapps.io/DT-edit/

Я пытался использовать примеры, как в ссылке. 

#Import data
iris


render_dt = function(data, editable = 'cell', server = TRUE) {
  renderDT(data, selection = 'none', server = server, editable = editable)
}

#Dashboard
header = dashboardHeader()
sidebar = dashboardSidebar()
body = dashboardBody(fluidRow(
  DTOutput("test")
  )

)

ui = dashboardPage(skin = "yellow", header, sidebar, body)

server = function(input, output, session) {

     output$test = render_dt(iris, list(target = "row", disable = list (columns = c(2, 3, 4))))

     observeEvent(input$test_cell_edit, {
       iris <<- editData(iris, input$test_cell_edit, 'test')
     })
     observeEvent(session$isClosed()==T,{
      isolate(write.xlsx(iris, file = "test.xlsx"))
  })
}

shinyApp(ui, server)

Я ожидал, что столбцы № 2, 3 и 4 будут заблокированы, и яможно редактировать другие столбцы.Но все столбцы доступны для редактирования.

...