在闪亮的应用程序中基于另一个Rhsontable的值创建新的Rhsonsontable

Question

我有一个带有2个rhandsontables的闪亮应用程序。

library(shiny)
library(rhandsontable)

ui <- navbarPage(
  "Application",
  tabPanel("General",
           sidebarLayout(

             sidebarPanel(
             ),

             mainPanel(
               rHandsontableOutput("hot3"),
               br(),
               rHandsontableOutput("hot5")
             )
           )))


server <- function(input, output,session) {

  output$hot3 <-renderRHandsontable({
    DF = data.frame(Sel. = rep(TRUE,2),
                    Label=paste("Test",as.integer(1:2)),
                    Marg=rep("Marg1",2),
                    Avail.=as.integer(rep.int(50,2)),
                    Sel =as.integer(rep.int(50,2)),
                    stringsAsFactors = FALSE)
    rhandsontable(DF,width =500,height = 400)
  })
  output$hot5 <-renderRHandsontable({
    DF = data.frame(
      Sel= rep(TRUE, 50),
      Id= 1:50,
      Label=paste("Item",as.integer(1:50)),
      Pf=as.integer(rep.int(0,50)),
      stringsAsFactors = FALSE)
    rhandsontable(DF,width =500,height = 400)
  })


}

shinyApp(server=server, ui=ui)

我想要的是在测试1中更改“ Avail”的值以创建第二个表时，该表的行数与“ Avail”列的数量相同。例如，这意味着当我将这个数字从50更改为40时，我将拥有一个包含40行的新表。