向rHandsontable添加新行将重置先前行中的先前选择

Question

我试图在mtcars数据集上使用rHandsontable包创建一个简单的包。 问题： 1）用户应仅获得“转换”列的下拉列表，而不能手动编辑 2）随着用户向rHandsontable添加新行，先前行中对“ transformation”列所做的先前选择将被重置。理想情况下，即使用户添加/删除任何行，选择也应保持原样。

这是我的服务器。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))
  )            

}))