根据 Shiny & rhandsontable 的预测更新一列

问题描述

嗨，我正在尝试创建一个闪亮的应用程序，为用户提供更新表格单元格的服务。使用 rhandsontable 是可能的，然后在后台，有一个模型可以根据数据的新更新进行预测，并将其显示为数据中“预测”名称下的额外列。我可以使用 rhandsontable 轻松构建动态数据表，但不能在实时预测中使用它。这是我尝试过的方法和方法。

library(shiny)
library(rhandsontable)
library(tidyverse)
library(ggplot2)

ui <- fluidPage(
  mainPanel(
    rHandsontableOutput("table"),plotOutput("plot1")
  )
)

server <- function(input,output,session) {
  
  
  mtcars %>%
  select(cyl,hp,carb,mpg) %>%
    head(10) -> data1
  model1 <- lm(mpg~cyl+hp+carb,data = data1)
  
  
  #colnames(data1)[4] <- "Prediction"

    output$table <- renderRHandsontable({
    rhandsontable(data1) %>%
      hot_col("cyl",type = "dropdown",source = as.character(sort(unique(mtcars$cyl))),default = "4") %>%
      hot_col("hp",source = as.character(sort(unique(mtcars$hp))),default = "123") %>%
      hot_col("carb",source = as.character(sort(unique(mtcars$carb))),default = "2") %>% 
      hot_col('Prediction')
  })
  print(predict(model1,hot_to_r(input$table)))
  #preds<-predict(model1,hot_to_r(input$table))
  #data1$Prediction <- preds
  xax1<-1:10
  
  output$plot1 <- renderPlot({
    data3 <- hot_to_r(input$table)
    preds<-predict(model1,data3)
    #print(preds)
    #print("--------------------------")
    ggplot()+ geom_col(aes(x=xax1,y=preds))
    
    #plot(xax1,preds,type = "h",lwd=4)
  })
  
  

  

  
}

shinyApp(ui,server)

感谢任何帮助，提前致谢。

解决方法

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

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

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

r r rhandsontable shiny