Да, спасибо. Хотя он не отвечает на мой вопрос, он предоставил полезные способы достижения решения. (Если в ближайшие несколько дней не будет другого простого ответа, я приму его в качестве (обходного решения).)
ел бы, чтобы высота и ширина выходных данных были скорректированы с учетом текущего размера окна. Я пытался использовать ниже, но бесполезно.
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)
Знаете ли вы о каких-либо других параметрах, которые можно использовать, возможно, в функции сервера вместо использования вышеупомянутой функции интерфейса?
Меньшее окно:
Расширенное окно:
