publicar - Asignación de espacio de carta brillante

shiny r tutorial

Question

El siguiente ejemplo traza 4 grupos en 4 paneles juntos. Pero el problema es que parecen residir en una sola red. ¿Es posible controlar el tamaño de los gráficos en salida brillante? (es decir, para que no haya una barra de desplazamiento a la derecha cuando se ejecuta la aplicación) Intenté controlar el alto y el ancho, pero eso solo parece controlar la imagen dentro de la cuadrícula en sí ... ¿alguna idea?

Gracias

shinyUI(pageWithSidebar(
headerPanel("Example"),
sidebarPanel(
),
mainPanel(
tabsetPanel(tabPanel("Main",plotOutput("temp"))
)#tabsetPanel
)#mainPane;
))
shinyServer(function(input, output) {
output$temp <-renderPlot({
par(mfrow=c(2,2))
plot(1:10)
plot(rnorm(10))
plot(rnorm(10))
plot(rnorm(10))
}, height = 1000, width = 1000)
})

Answer 1

plotOutput tiene parámetros de altura y ancho; el ancho predeterminado es "100%" (es decir, el 100% del ancho disponible en su contenedor) y la altura predeterminada es "400px" (400 píxeles). Intente experimentar con estos valores, cambiándolos a "auto" o "1000px" .

renderPlot de alto y ancho de renderPlot controlan el tamaño del archivo de imagen generado en píxeles, pero no afecta directamente el tamaño representado en la página web. Sus valores predeterminados son ambos "auto" , lo que significa que detectan y usan el ancho / alto del correspondiente plotOutput . Así que una vez que haya establecido el ancho y alto en plotOutput , generalmente no necesita el ancho y alto para establecerse en renderPlot en absoluto.

shinyUI(pageWithSidebar(
headerPanel("Example"),
sidebarPanel(
),
mainPanel(
tabsetPanel(tabPanel("Main",plotOutput("temp", height = 1000, width = 1000))
)#tabsetPanel
)#mainPane;
))
shinyServer(function(input, output) {
output$temp <-renderPlot({
par(mfrow=c(2,2))
plot(1:10)
plot(rnorm(10))
plot(rnorm(10))
plot(rnorm(10))
})
})