server.R

Question

我正在使用以下代码，我总是得到这个子表函数错误。我的子集是什么，我错在哪里。这应该是我修改过的一些基本输入代码在某些时候工作，我无法看到错误。

谢谢

server.R

library(shiny)

# Define a server for the Shiny app
shinyServer(function(input, output) {

  # Filter data based on selections
  output$table <- renderDataTable({
    data <- read.table("my.csv", sep =',', header =TRUE)
    if (input$shortdesc != "All"){
      data <- data[data$ShortDescription == input$shortdesc,]
    }
    if (input$taken != "All"){
      data <- data[data$Taken == input$taken,]
    }
    if (input$location != "All"){
      data <- data[data$Location == input$location,]
    }
    data
  })

})

ui.R

library(shiny)
# Define the overall UI

shinyUI(
  fluidPage(
    titlePanel("My Items"),

    # Create a new Row in the UI for selectInputs
    fluidRow(
      column(4, 
             selectInput("man", 
                         "What:", 
                         c("All", 
                           unique(as.character(data$ShortDescription))))
      ),
      column(4, 
             selectInput("trans", 
                         "Where:", 
                         c("All", 
                           unique(as.character(data$Location))))
      ),
      column(4, 
             selectInput("cyl", 
                         "Who:", 
                         c("All", 
                           unique(as.character(data$Taken))))
      )        
    ),
    # Create a new row for the table.
    fluidRow(
      dataTableOutput(outputId="table")
    )    
  )  
)

更新

为什么示例（见下文）有效，而我将它更改为my.csv的那一刻它会破坏？如果＆＃34;数据＆＃34;是一个buildin函数也不会与下面的例子发生冲突？很抱歉不理解，但这让我很困惑。

server.R

library(shiny)

# Load the ggplot2 package which provides
# the 'mpg' dataset.
library(ggplot2)

# Define a server for the Shiny app
shinyServer(function(input, output) {

  # Filter data based on selections
  output$table <- renderDataTable({
    data <- mpg
    if (input$man != "All"){
      data <- data[data$manufacturer == input$man,]
    }
    if (input$cyl != "All"){
      data <- data[data$cyl == input$cyl,]
    }
    if (input$trans != "All"){
      data <- data[data$trans == input$trans,]
    }
    data
  })

})

ui.R。

library(shiny)

# Load the ggplot2 package which provides
# the 'mpg' dataset.
library(ggplot2)

# Define the overall UI
shinyUI(
  fluidPage(
    titlePanel("Basic DataTable"),

    # Create a new Row in the UI for selectInputs
    fluidRow(
      column(4, 
          selectInput("man", 
                      "Manufacturer:", 
                      c("All", 
                        unique(as.character(mpg$manufacturer))))
      ),
      column(4, 
          selectInput("trans", 
                      "Transmission:", 
                      c("All", 
                        unique(as.character(mpg$trans))))
      ),
      column(4, 
          selectInput("cyl", 
                      "Cylinders:", 
                      c("All", 
                        unique(as.character(mpg$cyl))))
      )        
    ),
    # Create a new row for the table.
    fluidRow(
      dataTableOutput(outputId="table")
    )    
  )  
)

Answer 1

扩展@Roland的评论：你发生了名称空间冲突。基数R中有一个函数data，因此如果R在当前环境中找不到对象data，则从全局环境引用函数data。在您的特定情况下，发生这种情况是因为ui.R和server.R处于不同的环境中，而且，各个功能体都有自己的环境。因此data中的fluidRow(...)并未引用data中的output$table。您需要传递参数和/或使用其功能动态构建UI。请参阅示例here。

更新更新后的问题：

在data中使用mpg替换ui.R可以解决问题，因为mpg被定义为全局环境中的数据集（这是{{1}的副作用}）。所以library(ggplot2)（几乎）总是可以访问并具有必要的属性。为了更公平地进行比较，请将mpg中的mpg替换为ui.R，这应该会带来旧问题，因为全局环境中的data指的是函数而不是数据框架你试图操纵。

超级更新，提供更通用的解决方案，用于动态定义和加载每个数据集的选择元素：

服务器代码循环遍历所选数据框的所有列，并为每个类型不是double的列动态生成选择框。（与双打的唯一性和平等只是要求麻烦。）这避免了范围问题，因为UI元素是在调用加载数据的反应函数后在data中创建的。

server.R

server.R

ui.R

library(shiny)
library(ggplot2)
# Define a server for the Shiny app
shinyServer(function(input, output) {

  get.data <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars,
           "mpg" = mpg,
           "mtcars" = mtcars,
           "diamonds" = diamonds)
  })

  # Filter my.data based on selections
  output$table <- renderDataTable({
    my.data <- get.data()
    for(n in names(my.data)){
        # avoid too many cases ... 
        # unique() with double is just asking for trouble
        if(typeof(my.data[,n]) != "double"){ 
            val <- eval(parse(text=paste0("input$",n)))
            print(val)
            if(val != "All"){
                my.data <- eval(parse(text=paste0("subset(my.data,",n,"==",val,")")))
            }
        }
    }
    my.data
  })

  output$dyn.ui <- renderUI({
      my.data <- get.data()
      sel <- NULL
      for(n in names(my.data)){
          # avoid too many cases ... 
          # unique() with double is just asking for trouble
          if(typeof(my.data[,n]) != "double"){ 
              sel <- c(sel,
                   selectInput(n, n, choices=c("All",unique(my.data[,n])))
                   )
          }
      }
      sel
  })

})

R shiny ERROR：'closure'类型的对象不是子集

server.R

ui.R

1 个答案:

server.R

ui.R