ajustar dinámicamente la altura y / o el ancho de la salida de trazado brillante según el tamaño de la ventana
Me gustaría tener la altura y el ancho de salida de trazado brillante ajustados al tamaño de la ventana actual. He tratado de usar el siguiente, pero de nada.
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)
})
}
# Run the application
shinyApp(ui = ShinyUi, server = ShinyServer)
¿Conocería alguna otra opción para usar tal vez en la función del servidor en lugar del uso de la función de la interfaz de usuario anterior?