Question

我很高兴能得到R闪亮的帮助，我是新手。我构建了一个逻辑回归模型，该模型在名为＆＃34; Rdata1.csv＆＃34;的训练集上运行。然后我训练模型后，我想让用户上传一个测试集文件并在测试集上运行预测。

这是我的ui.R：

 library(shiny)
 shinyUI(fluidPage(
 titlePanel("Predictions"),

 sidebarLayout(
 sidebarPanel(
  fileInput("file", label = h3("Upload CSV")),

  hr(),
  fluidRow(column(4, verbatimTextOutput("value")))
  ),

mainPanel(
  textOutput("text1")
)
)
))

这是我的服务器.R：

library(shiny)
library(aod)
library(ROCR)

mydata <- read.csv("C:/Rdata1.csv")
mydata$Continent <- factor(mydata$Continent)
mydata$IP <- factor(mydata$IP)

mylogit <- glm(Good ~ Continent + IP, data = mydata, family = "binomial")

shinyServer(function(input, output) {

 output$text1 <- renderPrint({ 
 mydatanew <- read.csv(input$file[4])
 mydatanew$Continent <- factor(mydatanew$Continent)
 mydatanew$IP <- factor(mydatanew$IP)
 mydatanew$predicted<-predict(mylogit, newdata=mydatanew, type="response")
 paste("predictions", mydatanew)
  })

 }
 )

在应用程序中我没有输出 - 而是我收到错误：＆＃34;文件必须是字符串或连接＆＃34;我一无所获。任何人都知道代码有什么问题吗？谢谢！

Answer 1

欢迎来到SO。这个问题难以重现，但看起来Base中的datapath未正确传递。见fileInput：

?fileInput

......其中第四个是Whenever a file upload completes, the corresponding input variable is set to a dataframe. This dataframe contains one row for each selected file, and the following columns: ...。

换句话说

datapath

这有用吗？

显示R中有光泽的模型预测

1 个答案: