1

rhandsontableを使用して Shiny アプリでインタラクティブなテーブルを設定しようとしていますが、エントリを編集できません。実際、セルを選択したら、エスケープ キーを使用してセルの選択を解除する必要があり、op列のドロップダウン メニューがありません。アプリはこちら。

library(rhandsontable)
library(shiny)

ui = fluidPage(rHandsontableOutput("equation"))

server = function(input, output){
  values = reactiveValues(equation = 
    data.frame(A = "A value", op = ">", B = "B value"))

  observe({
    if(!is.null(input$equation))
      values$equation = hot_to_r(input$equation)
  })

  output$equation = renderRHandsontable({
    rhandsontable(values$equation) %>%
      hot_col(col = "op", source = c(">", "<"))
  })
}

shinyApp(ui = ui, server = server)

その他の注意事項:

  1. 最終的には、行をインタラクティブに追加および削除したいと考えています。
  2. 私はこの表を使用して方程式を作成しているので、この表のことは無視して、クールな方程式ビルダーの HTML ウィジェットについて教えてください。
4

1 に答える 1