График не отображается должным образом на странице в блестящем - PullRequest
Новая
       14

График не отображается должным образом на странице в блестящем

0 голосов
/ 14 апреля 2019

Я новичок в блеске, и у меня следующая проблема.Мой сюжет не отображается на всей странице.Я искал о 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.В моем коде есть данные из других стран, а не только из Австрии

...