R 在这种情况下，如何获得文本输出？

对于如何创建输出，我有一个小问题

这里我想要的是：我想在仪表板上收集用户的输入（可能在下面的代码中正确创建）。然后，我想从该输入创建一个数据帧，并通过加载的模型（从输入）对其进行处理，如下所示

y_pred = predict(regressor, newdata=choice)

输出应该是简单的。该模型应该给我一个值，我希望将该值作为输出打印在仪表板中

不幸的是，我不知道怎么做

library(shiny)
library(DT)
library(tidyverse)



#---- UI -----

ui <- fluidPage(
  
  titlePanel("Boleslaw Chrobry Dataset Predictions"),

  fileInput("file1", "upload EDS file here",
            multiple = FALSE), 
  
  selectInput("Motyw",
              "Jaka moneta?",
              c("Boleslaw Chrobry" = "Boleslaw Chrobry"
              ),
              #selected,
              multiple = FALSE,
              selectize = TRUE
              #width,
  ),
  sliderInput("Stan", "Zaznacz stan monety w skali 1-38. 
               1 - najgorszy stan
               38 - stan idealny", value = 1, min = 1, max = 38),
  dateInput("date", "Wpisz dzien sprzedazy monety",   value = NULL, min = NULL, max = NULL),
  selectInput("Nominal",
              "Jaki nominal ma ta moneta",
              c("10" = 10,
                "25" = 25
              ),
              #selected,
              multiple = FALSE,
              selectize = TRUE
              #width,
  ),
  selectInput("Rok", "Rok monety", 1925),
  selectInput("Naklad",
              "Jaki byl naklad monety?",
              c("52350" = 52350
              ),
              #selected,
              multiple = FALSE,
              selectize = TRUE
              #width,
  ),
  selectInput("Rok", "Rok monety", 1925),
  selectInput("Waga",
              "Jaka jest waga w [g] monety?",
              c("3" = 3,
                "6" = 6
              ),
              #selected,
              multiple = FALSE,
              selectize = TRUE
              #width,
  ),

  #text("y_pred")
  textOutput("predykcja"),

)



#---- SERVER LOGICS -----

  
server <- function(input, output, session) {
  
  #creating dataframe
  reactiveDF <- reactive({
    req(input$file1)
    df <- readRDS(input$file1$datapath, stringsAsFactors = TRUE)
  choice <-  data.frame(input$Stan,input$Cena,input$Data,input$Nominal,input$Rok,input$Motyw,input$Naklad,input$Waga)
  
  #changing names of columns
  names(choice) <- c('Stan', 'Cena', 'Data', 'Nominal..PLN.', 'Rok', 'Motyw', 'Naklad', 'Waga..g.')
  #creating prediction
  #wyrzucona <- reactive({y_pred = predict(regressor, newdata=choice)
  #})

    #df <- ReadRDS(input$file1$datapath, stringsAsFactors = TRUE)
    
    df$predictions<-predict(file1, newdata = choice)
    return(df)
    
  })
  
  output$predykcja <- renderText({
    df
  })
  

    
    
}
    





#---- CALL APP ----
shinyApp(ui, server)

库（闪亮）
图书馆（DT）
图书馆（tidyverse）
#----用户界面-----
ui Try
output$predykcja我们无法给您一个明确的答案，因为我们无法访问您的输入数据，因此无法测试我们的代码。但是，作为一种通用方法：在一个数据库中创建数据帧。从另一个模型中的拟合模型中获取预测。（这可能有助于将模型拟合和预测分成不同的反应）。使用“预测”按钮填充仪表板输出元素。