Shinyアプリが公開されない理由

Question

Shinyアプリを公開しようとすると問題が発生します。ここで

は、私は、公開アプリケーションのためのコードです：

UI：

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

ui <- fluidPage(
    titlePanel("Visualizing Pitcher Statistics"), 
    sidebarLayout(
    sidebarPanel(
     helpText("Data from Baseball Prospectus"), 
     helpText("by Julien Assouline"), 

     sliderInput("yearinput", "YEAR", 
        min = 1970, max = 2016, value = c(2000, 2016), 
        animate = TRUE), 

     selectInput("xcol", "X Axis", 
        choices = c("YEAR","AGE","NAME","G","GS","PITCHES","IP","IP.Start","IP.Relief","W","L","SV","BS","PA","AB","R","ER","H","X1B","X2B","X3B","HR","TB","BB","UBB","IBB","SO","HBP","SF","SH","PPF","FIP","cFIP","ERA","DRA","PWARP","TEAMS","ROOKIE","League")), 

     selectInput("ycol", "y Axis", 
        choices = c("PWARP","YEAR","NAME","AGE","G","GS","PITCHES","IP","IP.Start","IP.Relief","W","L","SV","BS","PA","AB","R","ER","H","X1B","X2B","X3B","HR","TB","BB","UBB","IBB","SO","HBP","SF","SH","PPF","FIP","cFIP","ERA","DRA","TEAMS","ROOKIE","League")), 

     checkboxInput(inputId = "smoother", 
        label = "show smoother", 
        value = FALSE), 

     downloadButton("downloadPNG", "Download as a PNG file") 
    ), 
    mainPanel(
     tabsetPanel(
     tabPanel("Scatterplot", plotOutput("plot1"), 
       verbatimTextOutput("descriptionTab1"), value = "Tab1"), 
     tabPanel("Line Chart", plotOutput("plot2"), 
       verbatimTextOutput("descriptionTab2"), value = "Tab2"), 
     id = "theTabs" 
    )) 
) 
) 

サーバー：私はアプリを実行すると、それだけで正常に動作

server <- function(input, output){ 
    ScatterPlot <- reactive({ 
    BP_Pitcher_1967_2016 <- read.csv("/Users/julienassouline/BP Pitcher 1967 2016.csv", header=TRUE, check.names = FALSE) 
    Filtered1 <- BP_Pitcher_1967_2016 %>% 
     filter(
     YEAR >= input$yearinput[1], 
     YEAR <= input$yearinput[2] 
    ) 
    p <- ggplot() + 
     geom_point(data = Filtered1, aes_string(x = input$xcol, y = input$ycol)) + 
     Julien_theme() 

    if(input$smoother) 
     p <- p + geom_smooth(data = Filtered1, aes_string(x = input$xcol, y = input$ycol), colour = "red") 
    print(p) 
    }) 

    output$plot1 <- renderPlot({ 
    print(ScatterPlot()) 

    output$downloadPNG <- downloadHandler(
     filename = "Graph.png", 
     content = function(file){ 
     png(file) 
     print(ScatterPlot()) 
     dev.off() 
     }) 
    }) 

    linechart <- reactive({ 
    BP_Pitcher_1967_2016_trends <- read.csv("/Users/julienassouline/BP_Pitcher_1967_2016_trends.csv", header=TRUE, check.names = FALSE) 

    Filtered2 <- BP_Pitcher_1967_2016_trends %>% 
     filter(
     YEAR >= input$yearinput[1], 
     YEAR <= input$yearinput[2] 
    ) 
    d <- ggplot() + 
     geom_line(data = Filtered2, aes_string(x = input$xcol, y = input$ycol), colour = "blue", size = 1) + 
     Julien_theme() 
    print(d) 

    } 
) 

    output$plot2 <- renderPlot({ 
    print(linechart()) 

    output$downloadPNG <- downloadHandler(
     filename = "Graph.png", 
     content = function(file){ 
     png(file) 
     print(linechart()) 
     dev.off() 
     }) 
    }) 


} 


shinyApp(ui = ui, server = server) 

。しかし、私がそれを公表しようとすると、最初に "42行目はプロジェクトディレクトリ内のファイルになるべきです" "70行目はプロジェクトディレクトリ内のファイルでなければなりません"

公開しようとすると私はこのエラーを取得するどのような方法：

https://julien1993.shinyapps.io/Shiny-App-3/

「エラーオープン接続できません」私は、データフレームに渡されたCSVファイルで新しいR文書を作成しようとしています。私はまた、私のR文書をShiny-App-3というファイルに保存しました。そこで、私はcsvファイルを追加しようとしました。それは動作しません。

私はこの質問にも気付いています。 Data object not found when deploying shiny app。それは、私がcsvファイルのコードを反応関数の外に置いて、私の文書を借りても、それはまだ動作しないと言っています。

私はBP_Pitcher_1967_2016 <- read.csv("/Users/julienassouline/BP Pitcher 1967 2016.csv"コードの行、またはこのBP_Pitcher_1967_2016_trends <- read.csv("/Users/julienassouline/BP_Pitcher_1967_2016_trends.csv", header=TRUE, check.names = FALSE)が含まれていない場合は、その後、私はエラーobject 'BP_Pitcher_1967_2016' not foundとobject 'BP_Pitcher_1967_2016_trends' not foundを取得します。

ここで説明する方法は、また、それは価値がある何のために、動作しません： Shiny/R error: Paths should be to files within the project directory

を誰もが、問題が何であるかを知っているだろうか？ すべての助力に感謝します。

Answer 1

エラーメッセージは、単に絶対ファイルパスを使用できないことを伝えています。 2つのデータファイル（BP Pitcher 1967 2016.csvとBP_Pitcher_1967_2016_trends.csv）を光沢のあるプログラムと同じディレクトリ/フォルダに置き、コード内の名前からパスを削除してください。

ので、ライン24は、次のようになります。

BP_Pitcher_1967_2016 <- read.csv("BP Pitcher 1967 2016.csv",header=TRUE, check.names=FALSE) 

とライン70は、次のようになります。

BP_Pitcher_1967_2016_trends <- read.csv("BP_Pitcher_1967_2016_trends.csv", header=TRUE,check.names=FALSE) 

テストを。もしあなたがそれを正しくしたら、それはうまくいくはずです。それから出版してみてください。私たちがまだ見ていない別のエラーがない限り、うまくいくはずです。