Fehler beim Hochladen von R Shiny-Anwendung

Question

Ich habe versucht, die R Shiny App hochzuladen, die ich online erstellt habe, aber sie sagt weiter: 'Object Nutrition not found'. Meine Dateien befinden sich alle zusammen in einem Ordner und ich habe nur die Schaltfläche "Veröffentlichen" aus der R-Konsole gedrückt.

Mein ui.R Code:

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") 
) 
) 
)) 

Mein server.R Code:

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)) 
}) 


}) 

Was ist los?

Answer 1

Keine Ahnung .. Dieser Code funktionierte gut für mich:

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)