上传 R Shiny 应用程序时出错答案

【问题标题】：Error uploading R Shiny application上传 R Shiny 应用程序时出错
【发布时间】：2016-09-02 05:28:59
【问题描述】：

我已尝试上传我在网上创建的 R Shiny 应用程序，但它一直在说 '未找到对象营养'。我的文件都放在一个文件夹中，我只是从 R 控制台按下了发布按钮。

我的 ui.R 代码：

library(shiny)

shinyUI(fluidPage(

  titlePanel("Nutrition Data App"),
  p(em("This Dataset contains nutrition data on fastfood places")),
  p(strong("This app allows users to browsefood items and places and see         nutritional value!")),

 sidebarLayout(

sidebarPanel(
  selectInput("Location","Location",
              choice = c(levels(Nutrition$Location)),
              selected = "KFC")

),

mainPanel(
  plotOutput("barplot"),
  br(),br(),
  verbatimTextOutput("text")
)
)
))

我的 server.R 代码：

Nutrition <- read.csv("NutritionData.csv", header=T, na.strings=c("","NA"))
Nutrition = Nutrition[,1:10]
Nutrition$Location = as.factor(Nutrition$Location)

library(dplyr)
library(shiny)
library(ggplot2)

shinyServer(function(input, output) {

 filtered = reactive({
 Nutrition %>% 
  filter(Location == input$Location
  )
 })


output$barplot = renderPlot({
Calories = filtered()[,4]
hist(Calories,xlim = c(0,1000),ylim = c(0,30),col = c("blue"))
})

output$text = renderPrint({
cat("The mean calories of the selected group is", mean(filtered()$Calories))
})


})

发生了什么事？

【问题讨论】：

标签： r shiny

【解决方案1】：

不知道..这段代码对我来说很好用：

    ui = fluidPage(

  titlePanel("Nutrition Data App"),
  p(em("This Dataset contains nutrition data on fastfood places")),
  p(strong("This app allows users to browsefood items and places and see         nutritional value!")),

  sidebarLayout(

    sidebarPanel(
      selectInput("Location","Location",
                  choice = c(levels(Nutrition$Location)),
                  selected = "KFC")

    ),

    mainPanel(
      plotOutput("barplot"),
      br(),br(),
      verbatimTextOutput("text")
    )
  )
)


Nutrition <- read.csv("e://NutritionData.csv", header=T, na.strings=c("","NA"))
Nutrition = Nutrition[,1:10]
Nutrition$Location = as.factor(Nutrition$Location)

library(dplyr)
library(shiny)
library(ggplot2)

server =shinyServer(function(input, output) {

  filtered = reactive({
    Nutrition %>% 
      filter(Location == input$Location
      )
  })


  output$barplot = renderPlot({
    Calories = filtered()[,4]
    hist(Calories,xlim = c(0,1000),ylim = c(0,30),col = c("blue"))
  })

  output$text = renderPrint({
    cat("The mean calories of the selected group is", mean(filtered()$Calories))
  })


})



shinyApp(ui = ui, server = server)

【讨论】：