Hi all,
I have a Shiny app that suddenly stopped displaying several ggplots. The sidebar shows up but not the main panel. There are no error messages or warning. The app just hangs on listener as shown here.
shinyApp(ui = ui, server = server)
Listening on http://127.0.0.1:3277
The plots work from the console and were working fine, thus I suspect a Shiny environment parameter must have gotten changed. Does anyone have any ideas?
The following minimal example does the behavior.
ui <- fluidPage(
sidebarPanel(
# select trade
selectInput(inputId = "trade",
label = "Trade",
choices = trades,
selected = defaultTrade
),
mainPanel(
# performance time series plots
plotOutput(outputId = "tsPlotRev", height = "195px")
)
)
)
server <- function(input, output, session) {(
output$tsPlotVol <- renderPlot(
ggplot(data.frame(tsData),
aes(x = as.Date(weekDate), y = as.numeric(revenue) / 1000000, color = as.factor(isHist))) +
geom_line() + scale_x_date(date_breaks = "4 week", date_labels = "%y-%W") +
theme(axis.text.x = element_text(angle = 45, hjust = 0.75), legend.position = "none") +
labs(x = NULL, y = "revenue (million USD)")
)
)}
shinyApp(ui = ui, server = server)
Any ideas?
Thanks,
John Lancaster