Добавление новой строки в rHandsontable сбрасывает предыдущие выборы в предыдущих строках - PullRequest
0 голосов
/ 19 октября 2018

Я пытаюсь создать простой пакет rHandsontable для набора данных mtcars.Проблемы: 1) Пользователь должен получить только выпадающий список для столбца «преобразование», и он не должен иметь возможность редактировать вручную. 2) Когда пользователь добавляет новую строку в rHandsontable, предыдущие выборки, сделанные в столбце «преобразование» в предыдущих строках, сбрасываются.В идеале, выбор должен оставаться без изменений, даже если пользователь добавляет / удаляет какую-либо строку.

Вот мой сервер. R

library(shiny)
library(rhandsontable)


shinyServer(function(input,output,session)({
  data <- mtcars  
  choices_2 <- c("log" = 1, "Mulfactor" = 2)

  output$vary <- renderUI({
    selectInput("variabley", "select the Y variable", choices=names(data),multiple = F)
  })

  output$varx <- renderUI({
    x <- setdiff(names(data),input$variabley)
    checkboxGroupInput("variablex", "select the X variable", choices=x)
  })

  choices_1 <- reactive({
    input$variablex
  })


  DF <- reactive({
    data.frame(value=choices_1(),Transformation='log',numeric=1)

  })

  output$table=renderRHandsontable(
    rhandsontable(DF()) %>% hot_col("value",readOnly = T) %>% hot_col("Transformation", type="dropdown",source = names(choices_2))
  )            

}))
...