从可编辑的数据集rshiny rhandsontable绘制图

编程问答 2022-06-06

问题描述

是否可以从可编辑的表格中创建图形？ 我有一个用rHandsontable编辑的表，我想在标签上显示使用上次编辑的数据的图表。有办法吗？

例如，假设我有一个mydata<-data.frame(num=seq(1,10),square=seq(1,10)^2)

到目前为止，我的代码看起来像这样：

library(shiny)
library(shinydashboard)
library(rhandsontable)


ui <- dashboardPage(
  dashboardSidebar( 
    sidebarMenu(
      menuItem("Preview",tabName="previsualisation",icon=icon("table")),menuItem("Graphs",tabName="graphs",icon=icon("chart-bar"))
    )
  ),dashboardBody(
    tabItems(
      tabItem(tabName = "previsualisation",basicPage(mainPanel(rHandsontableOutput("preview")))
      ),tabItem(tabName = "graphs") #where I would like the graph to appear
    )
  )
)


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


  prevIoUs<-reactive({mydata}) 
  
  test_changes<- reactive({
    if(is.null(input$preview)){return(prevIoUs())}
    else if(!identical(prevIoUs(),input$preview)){
      mytable<-as.data.frame(hot_to_r(input$preview))
      mytable<-mytable[1:nrow(mydata),]

      mytable[,"square"]<-mytable$num^2
      mytable
    }
  })
  
  output$preview <- renderRHandsontable({rhandsontable(test_changes())})

})

shinyApp(ui,server)

然后，如果我修改了num列的数量，则会自动修改square列。

完成此修改后，是否有办法生成x = num，y = square的图？

感谢您的帮助！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

graphgraphgraphrrrhandsontableshiny