I would like to have the shiny-plotly output height and width adjusted to the current window size. I have tried to use the below but of no use.
ShinyUi ← fluidPage(
Application title
titlePanel(“title”),
sidebarLayout(
sidebarPanel(
… inputs …
),
mainPanel( plotlyOutput("distPlot", height = 'auto', width = 'auto') )
))
ShinyServer ← function(input, output, session) {
output$distPlot ← renderPlotly({
p <- ggplot(dataShow, aes(x=dataShow$X, y=dataShow$Y)) +
geom_point(shape=1, alpha = 0.5, color = “grey50”)
ggplotly(p)
})
}
shinyApp(ui = ShinyUi, server = ShinyServer)
Would you know of any other options to use maybe in server function instead of the above UI function usage?