我的閃亮應用有什么問題？

Question

我建了randomForest：

library(randomForest)
data(iris)

names(iris)

rF <- randomForest(Species~Sepal.Length+Petal.Width,data=iris)

這是界面：

library(shiny)

ui <- fluidPage(
  sliderInput(inputId="Sepal.Length",
              label="Sepal.Length",
              value=6,min=4.3,max=7.9)
  ,
  sliderInput(inputId="Petal.Width",
              label="Petal.Width",
              value=1,min=0.1,max=2.5)
  ,
  textOutput(outputId="rfScor")

)

這是服務器：

server <- function(input,output){

  #tabelka do predykcji
  dt <- reactive({data.frame(Sepal.Length= as.numeric(input$Sepal.Length),
                   Petal.Width=as.numeric(input$Petal.Width)
  )})

  output$rfScor <- renderText({predict(rf,dt)})
}

並致電app：

shinyApp(ui=ui, server=server)

我收到錯誤：

Error in as.data.frame.default: nie można przekształcić klasy ""reactive"" w klasę "data.frame"
Stack trace (innermost first):
    86: as.data.frame.default
    85: as.data.frame
    84: predict.randomForest
    83: predict
    82: renderText [#8]
    81: func
    80: origRenderFunc
    79: output$rfScor
     4: <Anonymous>
     3: do.call
     2: print.shiny.appobj
     1: <Promise>

Answer 1

錯誤消息告訴您第一個，盡管您還有另一個隱藏在那里。 當你想要reactive的結果時，你需要把它作為一個函數來調用 - 用它后面的() 。 此外，您需要將rF的“F”大寫。

將output$rfScor更改為此，它應該工作

output$rfScor <- renderText({predict(rF, dt() )})