ggplot не отображается в Shiny, но работает из сюжета

Question

Следующее минимальное приложение Shiny не отображается при запуске приложения.Боковая панель отображается, но не главная панель.Я не получаю сообщений об ошибках или предупреждений.Приложение просто висит там.

ggplot работает в консоли.

Это должен быть параметр среды, управляющий интерфейсом между Shiny и ggplot2.Но что это?Попытался установить dev.off () безрезультатно.У кого-нибудь есть предложения?

ui <- fluidPage(
  sidebarPanel(
# client logo

# 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) {(
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)