Shiny App ist nur die Hälfte des Browserfensters

Question

Ich habe vor kurzem angefangen, Shiny zu lernen und entwickle meine erste Praxis-App. Aus irgendeinem Grund nimmt meine App nicht das gesamte Browserfenster ein, sondern ist ungefähr auf halbem Weg abgeschnitten. Die Seite kann immer noch nach unten scrollen, um den Rest der Ausgabe zu sehen, aber es gibt eine hohe Faltung aus irgendeinem Grund. Unten ist mein Code:

library(foreign) 
library(dplyr) 
library(shiny) 
library(dplyr) 
library(ggplot2) 
library(shinythemes) 

thesis <- read.csv("thesis.csv", stringsAsFactors = T) 

ui <- fluidPage(theme = shinytheme("cerulean"), 

    # Application title 
    titlePanel("Annual Prices by City"), 

    # Sidebar with choice selected 
    sidebarLayout(
    sidebarPanel(
     selectInput("city","City",as.character(thesis$city)), 
     tableOutput("table") 
    ), 

    # Show a time series line plot 
    mainPanel(
     textOutput("cityheader"), 
     plotOutput("plot", width="100%") 

    ) 
) 
) 


server <- function(input, output, session) { 
    df <- reactive({ 
    thesis %>% 
     select(city, year, price) %>% 
     filter(city == input$city) 

    }) 

    output$plot <- renderPlot({ 
    ggplot(df(), aes(x=year, y=price)) + 
     labs(title=input$city, x="Year", y="Annual Avg Price") + 
     geom_line(col="blue") 

    }, height=400, width = 700) 

    output$table <- renderTable({ 
    df() 

    }) 

    output$cityheader <- renderText({ 
    input$city 
    }) 

} 

shinyApp(ui=ui,server=server) 

Hier ein Screenshot von dem weißen Raum:

Screenshot of the Shiny App

UPDATE:

Hier ist, wie es aus der Scheibe in Rstudio Betrachter aussieht:

Rstudio Screenshot

Danke.

Answer 1

hatte ich das gleiche Problem, versuchen

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