Я создаю простой сюжет sinydashboard в коробке. По какой-то причине белый прямоугольник, в котором установлен график, обрезается в верхней правой и нижней правой частях. Это происходит, когда я устанавливаю ширину коробки более 500.
Вот мой код:
library(shiny)
library(ggplot2)
library(shinydashboard)
#ui object
ui <- fluidPage(
dashboardPage(
dashboardHeader(),
dashboardSidebar(width = 0),
dashboardBody(
fluidRow(
column(width = 12,
box(plotOutput("plot1", height = 400, width = 700))
)
)
)
)
)
#server object
server <- function(input, output, session) {
output$plot1 <- renderPlot({
ggplot(data = diamonds) +
geom_line(aes(x = depth, y = price))
})
}
shinyApp(ui = ui, server = server)