Question

我正在尝试使用自定义文件输入构建线性回归闪亮应用。我在Server.R中的反应功能有问题。无功功能数据返回一个名为 qvdata 的数据帧。当在renderPlot中调用 data（）并从 qvdata 绘图时，我收到以下错误： “plot.window（...）中的错误：需要有限的'xlim'值”。当我不使用反应函数并在renderPlot中进行计算时，不会发生错误。为什么是这样？我希望以后能够在其他渲染函数中调用此数据反应函数，以防止在代码中重复。

Server.R

library(shiny)
shinyServer(function(input, output) {
data<-reactive({
    inFile <- input$file1

    if (is.null(inFile))
        return(NULL)
    #takes in data (In my case .dat file)
    qvdata=read.table(inFile$datapath)
    names(qvdata)=c("H","Q")
    qvdata$Hlog=log(qvdata[,1])
    qvdata$Qlog=log(qvdata[,2])
    xbar=mean(qvdata$Hlog)
    ybar=mean(qvdata$Qlog)
    xdif=qvdata$Hlog-xbar
    ydif=qvdata$Qlog-ybar
    Sxy=sum(xdif*ydif)
    Sxx=sum(xdif*xdif)
    #point estimates of alfa and beta
    qvdata$b=Sxy/Sxx
    qvdata$a=ybar-qvdata$b*xbar
    qvdata
})

output$contents <- renderPlot({
    qvdata=data()
    t=seq(0,2,0.01)
    abline=qvdata$a+qvdata$b*t
    plot(qvdata$Hlog,qvdata$Qlog,type="p",pch=20,col="red")
    lines(t,abline,col="black")
})
})

ui.R

library(shiny)

shinyUI(fluidPage(
    titlePanel('Linear regression'),
    sidebarLayout(
        sidebarPanel(
            fileInput('file1', 'Choose file')   
        ),
        mainPanel(
            plotOutput('contents')

        )
    )
))

Answer 1

当您的闪亮应用启动时，您的data功能会首次运行。由于缺少输入文件，因此将返回NULL。但是你的绘图功能并没有测试它的输入，在这种情况下相当于plot(NULL)。如果您测试输入!is.null()，它应该有效：

output$contents <- renderPlot({
    qvdata=data()
    if (!is.null(qvdata)) {
      t=seq(0,2,0.01)
      abline=qvdata$a+qvdata$b*t
      plot(qvdata$Hlog,qvdata$Qlog,type="p",pch=20,col="red")
      lines(t,abline,col="black")
    }
})

Answer 2

转换为标准日期格式对我有用。

使用as.POSIXct()

在Shiny

2 个答案: