Как сдержать графики ggvis в их коробке и столбце shinydashboard?

Question

Я не нашел ничего, что бы выстроились с моей проблемой и ключевыми словами. Я не могу получить графики ggvis, чтобы сдерживать себя в данной области shinydashboard. Пример приложения (Windows 7) показывает три графика ggvis, каждый из которых превышает правую границу их соответствующей панели приборной панели и колонки - если окно не очень широкое.

Мысли?

library(shiny) 
library(shinydashboard) 
library(ggvis) 

ui <- dashboardPage(
    dashboardHeader(title = "Basic dashboard"), 
    dashboardSidebar(), 
    dashboardBody(
    # Boxes need to be put in a row (or column) 
    fluidRow(
     box(
      width = 4, 
      title = "fred", 
      ggvisOutput("plot1") 
    ), 

     box(
     width = 4, 
     title = "george", 
     ggvisOutput("plot2") 
    ), 

     box(
     width = 4, 
     title = "harold", 
     ggvisOutput("plot3") 
    ) 
    ) 
) 
) 

server <- function(input, output) { 
    mtcars %>% 
    ggvis(~wt, ~mpg) %>% 
    layer_points() %>% 
    bind_shiny("plot1") 

    mtcars %>% 
    ggvis(~cyl, ~mpg) %>% 
    layer_points() %>% 
    bind_shiny("plot2") 

    mtcars %>% 
    ggvis(~disp, ~mpg) %>% 
    layer_points() %>% 
    bind_shiny("plot3") 
} 

shinyApp(ui, server) 

Answer 1

Вам необходимо установить параметры, указав, что ширина и высота являются авто. Вы можете сделать это следующим образом: