1
問題の光沢のあるアプリは250行のコードなので、下に関連するスニペットをコピーしようとしますが、私が持っている問題を再現する例。ggplotは光沢のあるアプリケーションで表示されますが、shinyapps.ioでは表示されず、エラーや警告はありません
私は輝くアプリを実行すると、それは完全にローカルで実行されます。 shinyapps.ioに展開すると、成功メッセージが表示され、エラーや警告は表示されません。しかし、ブラウザでshinyapps.ioを見ると、値ボックスやggplotsは表示されません。
私はこの問題がメモリであると思われます（データセットは500K行です）。おそらく光沢のあるアプリケーションサーバーの読み込み前にメモリが不足しているのでしょうか？警告やエラー、関連するメッセージはログには表示されません（または、アプリケーションをshinyapps.ioにデプロイするときは[展開]タブ）。
#Value boxes to show numeric stats
fluidRow(
valueBoxOutput("comp_fare"),
valueBoxOutput("num_comp_fares"),
valueBoxOutput("num_aa_fares")
),
br(),
h2("Impact of continuous features on fares"),
#Select continuous variables
fluidRow(
column(selectInput(inputId = "continuous_variable",
label = "Choose a Variable to Compare: ",
choices = df %>%
select_if(is.numeric) %>% select(-fare) %>%
names,
selected = "distance"
), width = 6),
column(selectInput(inputId = "fit_method",
label = "Choose a Fit Method: ",
choices = c("Linear", "Quadratic"),
selected = "Linear"
), width = 6)
),
br(),
#Plot continuous variables
fluidRow(
plotOutput("cont_plot")
),
br(),
h2("Impact of discrete features on fares"),
#Select factor variables
fluidRow(
column(selectInput(inputId = "factor_variable",
label = "Choose a Variable to Compare: ",
choices = df %>%
select_if(is.factor) %>%
names,
selected = "hub_airport"
), width = 6),
column(selectInput(inputId = "display_layout",
label = "Choose a Display Layout: ",
choices = c("Fill", "Dodge"),
selected = "Dodge"
), width = 6)
),
br(),
#Plot factor variables
fluidRow(
plotOutput("cat_plot")
),
#server code
#ValueBoxes
output$comp_fare <- renderValueBox({
valueBox(competitor_fare_difference(),
"Difference in Competitor Fare",
icon = icon("dollar"),
color = "yellow")
})
output$cont_plot <- renderPlot({
ggplot() +
geom_smooth(data = df2(),
aes_string(input$continuous_variable, "fare", color = "carrier"),
method = "lm",
formula = y ~ poly(x, fit_method())) +
geom_point(data = sample_n(df2(), 1000),
aes_string(input$continuous_variable, "fare", color = "carrier"),
alpha = .3) +
theme_bw() +
scale_y_continuous(labels = dollar) +
labs(title = paste0("Comparison of American Airlines and ", input$competitor),
x = input$continuous_variable,
y = "Round-trip Fare ($US)"
) %>% print
})