ggplotly реактивный график отображается на панели просмотра в RStudio, но не в блестящем приложении

Question

Мой интерактивный ggplot не будет отображаться в моем блестящем приложении, но будет отображаться в RStudio и реагировать на изменения из блестящего приложения.Это было хорошо, пока я не сделал график интерактивным и не уверен, почему он изменился.

server <- function(input, output) {
output$selected_nation <- renderText({ 
paste("You have selected", input$Nationality)
})

output$coolplot <- renderPlot({
    ngo <-
      ngo %>%
      filter(Victim.Nationality == input$Nationality,
             Victim.Gender == input$genderInput
      )

p = ggplot(ngo, aes(x = Victim.Age, fill = Trafficking.Type)) + 
  geom_bar(position = "stack")
ggplotly(p)
})

График работы в блестящем приложении.