R shiny Handsontable：使用来自 handsontable 的数据框

Question

在下面的玩具示例中，我有一个数据集 datapred。使用 rhandsontable 将数据集输出到交互式 table。然后我用 hot_to_r 将它隐藏在一个新的 data.frame 中。我的问题是，当我想在我的函数 prediction() 中使用它时，它会向我发送错误消息并且应用程序崩溃。我不明白为什么。

我是法国人，所以我将消息转换成英文： as.name 中的错误：'pairlist' 对象无法自动转换为 'symbol' 类型。

library(shiny)
library(frailtypack)
library(rhandsontable)
data("readmission", package = "frailtypack")

ui <- fluidPage(
  titlePanel("prediction"),

  mainPanel(
  fluidRow(rHandsontableOutput("hot")),
  br(),
  plotOutput("pred")
  )
)

server <- function(input, output) {

newdata <- subset(readmission,select = c("time","event","id","dukes"))

datapred <- newdata[1,]

data <- reactive({
  DF = hot_to_r(input$hot)
  DF
})

model <- frailtyPenal(Surv(time,event)~cluster(id)+dukes,n.knots=10,
                    kappa=10000,data=readmission)

predict <- reactive(
prediction(model, data(),t=200,window=seq(50,1900,50),
                                MC.sample=100))

output$hot <- renderRHandsontable({
    rhandsontable(datapred)
    })

data <- reactive({
      DF = hot_to_r(input$hot)
      DF
})

output$pred <- renderPlot({
plot(predict(),conf.bands=TRUE)
})

}
shinyApp(ui = ui, server = server)

Answer 1

您可以先简单地评估 data()，就像这样。我还添加了一些检查，这样您就不会在初始化过程中遇到其他错误

library(shiny)
library(frailtypack)
library(rhandsontable)
data("readmission", package = "frailtypack")

ui <- fluidPage(
  titlePanel("prediction"),

  mainPanel(
    fluidRow(rHandsontableOutput("hot")),
    br(),
    plotOutput("pred")
  )
)

server <- function(input, output) {

  newdata <- subset(readmission,select = c("time","event","id","dukes"))
  datapred <- newdata[1,]

  data <- reactive({
    hot <- input$hot
    if (!is.null(hot)) hot_to_r(hot)
  })

  model <- frailtyPenal(Surv(time,event)~cluster(id)+dukes,n.knots=10,
                        kappa=10000,data=readmission)

  predict <- reactive({
    dat <- data()
    if (!is.null(dat)) {
      prediction(model, dat,t=200,window=seq(50,1900,50),
                 MC.sample=100)
    }
  })

  output$hot <- renderRHandsontable({
    rhandsontable(datapred)
  })

  output$pred <- renderPlot({
    pred <- predict()
    if (!is.null(pred)) plot(pred, conf.bands = TRUE)
  })
}
shinyApp(ui = ui, server = server)

R shiny Handsontable：使用来自 handsontable 的数据框

R shiny Handsontable : use dataframe from handsontable

r

shiny

rhandsontable