Блог

Я новичок в shiny, и у меня следующая проблема. Мой график не отображается на всей странице. Я искал информацию о fillPage и fluidPage, но не смог добиться никакого прогресса. Мой код следующий:

 library(shiny)
library(demography)
library(shinythemes)


ui <-fillPage(


titlePanel("Mortality"),


 sidebarLayout(


sidebarPanel(
  

  selectInput(inputId = "dataset",
              label = "Choose a dataset:",
              choices = c( "Austria","Belgium","Bulgaria","Czech Republic","Denmark","Finland","France","Germany","Greece","Iceland","Italy","Luxembourg","Netherlands","Portugal","Spain","Sweden","Switzerland","U.K","Ukraine"))
  
 
  
),


mainPanel(
  
  
  textOutput("caption", container = span),
  
 
  verbatimTextOutput("summary"),
  
  
 
  plotOutput('plot')
 
    )
    )
   )
    server <- function(input, output) {




 Austria=hmd.mx("AUT",, , "AUT")

datasetInput <- reactive({
    switch(input$dataset,
       "Austria"=Austria,
       "Belgium"=Belgium,
       "Bulgaria"=Bulgaria,
       "Czech Republic"=Czech.Republic,
       "Denmark"=Denmark,
       "Finland"=Finland,
       "France"=France,
       "Germany"=Germany,
       "Greece"=Greece,
       "Iceland"=Iceland,
       "Italy"=Italy,
       "Luxembourg"=Luxembourg,
       "Netherlands"=Netherlands,
       "Portugal"=Portugal,
       "Spain"=Spain,
       "Sweden"=Sweden,
       "Switzerland"=Switzerland,
       "U.K"=U.K)
   })


  output$caption <- renderText({
    input$dataset
   })


  output$summary <- renderPrint({
    dataset <- datasetInput()
   summary(dataset)
  })
 

 output$plot <- renderPlot({
   dataset <- datasetInput()
   plot(dataset)
   })

   }


  shinyApp(ui, server)
  

Вот скриншот.
Спасибо за ваше изображение

PS. В моем коде у меня есть данные из других стран, а не только из Австрии

Попробуйте заполнить высоту страницы

fillPage(plotOutput(«график», высота = «100%»))