Блестящие проблемы при рендеринге html page

Question

Я новичок в блестящем состоянии, и я сталкиваюсь с проблемой, которая не позволяет мне просматривать весь график и таблицу, так как веб-страница разрезается на половину. Вы знаете, почему это происходит?

Редактировать: У меня есть ползунок, чтобы идти вверх и вниз по странице, но я хотел бы увидеть его с полным разрешением.

пример:

t = data.frame(x = sample(c('a1','b1','b2'), size = 720, replace = TRUE), 
       date = sample(seq(as.Date('2014-01-01'), as.Date('2016-12-01'), by = 'month'), replace = TRUE, size = 720), 
       tx = runif(720), 
       ty = runif(720)) 

ui <- fluidPage(
    # App title 
    titlePanel("Hello"), 

    # selector for the graph 
    shiny::selectInput(inputId = 'selector', label = 'Selector' 
        ,choices = unique(t$x)) 
) 

server <- function(input, output) { 
    output$graph1 <- renderPlot({ 
    ta = t %>% filter(x== input$selector& date >= '2014-01-01') %>% 
    group_by(date) %>% 
    summarise(ty = sum(ty)) %>% 
    ggplot2::ggplot(data = ta)+ 
     geom_line(aes(x = date, y = ty, colour = 'red'))+ 
     theme_bw() 
    }) 
} 

shinyApp(ui = ui, server = server) 

Answer 1

Я решил, что просто добавив

options = list(height = 1080) 

в конце команды shinyApp, как показано ниже:

shinyApp(ui = ui, server = server, options = list(height = 1080))