R 如何在Shining应用程序中绘制图片？

我想在滑块旁边绘制谷歌地图，但是当我尝试这段代码时，我得到了一个巨大的空白：

ui <- fluidPage(
 sidebarLayout(
   sidebarPanel(
     actionButton("bb","bb"),
     sliderInput("aa","aa",value=1,min=0,max=10),
     sliderInput("aa1","aa1",value=1,min=0,max=10),
     sliderInput("aa2","aa2",value=1,min=0,max=10),
     sliderInput("aa3","aa3",value=1,min=0,max=10)
   )
   ,

   mainPanel(
     plotOutput("rys")
   )
 ) 
)


server <- function (input, output){
  output$rys <- renderPlot({qmap('Europe',zoom=4)})
}

shinyApp(ui = ui, server = server)

---

ui绘图输出的默认外观是
width=“100%”和
height=“400”

如果你在桌面上，100%大约是1200像素，因为地图是正方形的，它受到最小尺寸的限制，高度=400到400x400

它居中，所以你有一个大约400px的空白

要解决此问题，您可以使用更大的高度，例如height=“1000”，或同时设置高度和宽度：

plotOutput("rys", width = "400", height="400")

你能看看我的新帖子吗？我这样做了，现在我有了上面的空白：(