Question

我对Shiny有疑问。我提供的前言是，我确实花时间与谷歌和SO档案，尝试了一些事情，但仍然不知何故错过了什么。我会为任何发布失礼而道歉，并提前感谢任何指导。

我正在尝试我认为是一项非常基本的任务，以便学习Shiny，从一个Shiny画廊示例中调整代码。我将csv文件读入数据帧（df.shiny）。我想选择与一个设施相关的业务绩效数据（ITBpct）（级别为df.shiny$Facility）并将其显示在SPC图表中（使用qcc）。

我的问题似乎与将server.R的数据提供给ui.R有关。我相信数据被读入数据帧（它在控制台中打印），但ui.R不可用。我确信我只是忽略了一些东西，但还没有想到它。

我使用Shiny网站上提到的文件夹结构，将server.R和ui.R放在工作目录子文件夹中（＆＃34; Shiny-App-1＆＃34;）和数据子文件夹到此文件夹（Shiny-App-1 / data）。

我已插入以帮助跟踪错误的代码通过在控制台中打印SRV-2和UI-1来运行。 Firefox打开。然后是错误。

options(browser = "C:/Program Files (x86)/Mozilla Firefox/firefox.exe")
library(shiny)
runApp("Shiny-App-1")

server.R代码

library(shiny)
library(qcc)
print("SRV-1")  # for debugging

df.shiny = read.csv("data/ITBDATA.csv")
print(df.shiny) # for debugging
print("SRV-2")  # for debugging


shinyServer(function(input, output, session) {
    # Combine the selected variables into a new data frame
    # assign xrow <- Facility

    print("SRV-3")  # for debugging
    selectedData <- reactive({  subset(df.shiny, Facility %in% input$xrow)  })
    print("SRV-4")  # for debugging

    output$plot1 <- renderPlot({  qcc(selectedData$ITBpct, type = 'xbar.one')  })
})

ui.R代码

library(shiny)
print("UI-1")  # for debugging

shinyUI(pageWithSidebar(
    headerPanel('SPC Chart by Facility'),
    sidebarPanel( selectInput('xrow', 'Facility', levels(df.shiny$Facility) ) ),
    mainPanel( plotOutput('plot1') )

))

错误消息

ERROR: object 'df.shiny' not found

我可以提供数据。（不确定如何将样本附加到此笔记。）

会话信息

> sessionInfo()
R version 3.1.0 (2014-04-10)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252   
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C                          
[5] LC_TIME=English_United States.1252    

attached base packages:
[1] splines   stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] plyr_1.8.1       forecast_5.4     timeDate_3010.98 zoo_1.7-11       doBy_4.5-10     
 [6] MASS_7.3-31      survival_2.37-7  gplots_2.13.0    car_2.0-20       ggplot2_0.9.3.1 
[11] lattice_0.20-29  qcc_2.3          shiny_0.9.1

Answer 1

问题是您在df.shiny$Facility文件中使用ui.R，并且df.shiny未在此处定义。 ui无法看到server中的所有变量，他们还有其他沟通方式。

要使其工作，您需要在服务器上构建selectInput，然后在UI中呈现它。在您的服务器中，添加

shinyServer(function(input, output, session) {
    output$facilityControl <- renderUI({
        facilities <- levels(df.shiny$Facility)
        selectInput('xrow', 'Facility', facilities )
    })

    selectedData <- reactive({  subset(df.shiny, Facility %in% input$xrow)  })
    output$plot1 <- renderPlot({  qcc(selectedData$ITBpct, type = 'xbar.one')  })
})

然后将ui更改为

shinyUI(pageWithSidebar(
    headerPanel('SPC Chart by Facility'),
    sidebarPanel( uiOutput("facilityControl" ),
    mainPanel( plotOutput('plot1') )    
))

Answer 2

或者，您可以在server.R文件中将ui.R和global.R都需要访问的所有R对象都放在其中。

更多相关内容：http://shiny.rstudio.com/articles/scoping.html#global-objects

R Shiny - ui.R似乎无法识别server.R读取的数据帧

2 个答案: