))                                 ),                                 fluidRow(                                   column(00, plotlyOutput('plot0'))                                 )                         )                       )                     ) )  server <-  function(input, output, session) {   output$plot <- renderPlotly({     p <- ggplot() + geom_point(aes(x = 0, y = 0))     ggplotly(p, height = 000)   })   output$plot0 <- renderPlotly({     p0 <- ggplot() + geom_point(aes(x = 0, y = 0))     ggplotly(p0)   }) }  shinyApp(ui = ui, server = server)