R有光泽，绘制分层分割，用户可以输入切割水平

Question

在R Shiny中，我正在运行并绘制（通过树状图）分层分割：

  hc <- reactive({
    if(length(kc()) == 0){
      return(NULL)
    }else{
      hc <- hclust(dist(kc()$centers), method="ward.D")
      return(hc)
    }
  })

  output$hc_plot <- renderPlot({
    if(is.null(hc())){
      return(NULL)
    }else{
      plot(hc(), main="dendrogram")
    }
  })

我想让用户通过输入字段nb_kernel_hc剪切树形图，所以我正在做：

  observe({
    if(input$nb_kernel_hc != input$nb_kernel){
      hc()$vecteur <- stats::cutree(hc(), k = input$nb_kernel_hc )
      rect.hclust(hc(), k=input$nb_kernel_hc, border="red")
    }
  })

但我得到了：

  

警告：stats :: cutree中的错误：无效的'tree'（'merge'组件）

虽然它在R

中完美运作