Die glänzende App in Frage ist 250 Zeilen Code, also werde ich versuchen, die relevanten Schnipsel unten zu kopieren, aber es kann unpraktisch sein, eine Arbeit zu produzieren Beispiel, das das Problem reproduziert, das ich habe.ggplot rendert in glänzender App aber nicht auf shinyapps.io, keine Fehler oder Warnungen
Wenn ich die glänzende App starte, läuft es lokal einwandfrei. Wenn ich es auf "glanappapps.io" veröffentliche, erhalte ich Erfolgsmeldungen und keine Fehler oder Warnungen. Wenn ich jedoch im Browser die Datei shinyapps.io anschaue, sind keine der Wertfelder oder ggplots sichtbar.
Ich vermute, dass das Problem Speicher sein könnte (der Datensatz ist 500K Zeilen). Vielleicht läuft auf dem glänzenden apps-Server nicht mehr genügend Arbeitsspeicher, bevor er geladen wird? Auch hier keine Warnungen, Fehler oder relevante Meldungen in den Protokollen (oder auf der Registerkarte "Bereitstellung" bei der Bereitstellung der App für "glanappapps.io").
Im ui, ich habe diese Zeilen verschiedene Plots und Wertefelder zeigen:
#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
})