为什么在此R Shiny App中缺少复选框

Question

当我在默认的R studio R Shiny App查看器中运行此R Shiny App时，没有显示任何复选框，我也不知道为什么。 库（发光）

library(shiny)

# Define UI for application
ui <- fluidPage(

   # Application title
   titlePanel("Fake App"),

   # Input
   sidebarLayout(
      sidebarPanel(
        checkboxGroupInput('disp', 'Display:', c(1, 2, 3, 4), 
                           selected = c(1))
      ),
      mainPanel(
         plotOutput("distPlot")
      )
   )
)

# Draw plot
server <- function(input, output) {

   output$distPlot <- renderPlot({
     ggplot()+ geom_point(aes(x=input$disp, y=input$disp)) 
   })
}

shinyApp(ui = ui, server = server)

脚本输出：

> runApp('test')

Listening on http://127.0.0.1:6460

这是我运行应用时的外观：

可能是我要在其上运行的端口吗？我连接到的网络？ （不，对吗？它在本地运行吗？）非常感谢您对此的见解！

其他版本信息：

> R.version
           _                           
platform       x86_64-apple-darwin15.6.0   
arch           x86_64                      
os             darwin15.6.0                
system         x86_64, darwin15.6.0        
status                                     
major          3                           
minor          4.3                         
year           2017                        
month          11                          
day            30                          
svn rev        73796                       
language       R                           
version.string R version 3.4.3 (2017-11-30)
nickname       Kite-Eating Tree     
> packageVersion("shiny")
[1] ‘1.1.0’

Answer 1

一些额外的调查显示，在浏览器中查看应用程序显示了复选框，因此认为问题一定出在RStudio中。重新启动计算机解决了我的问题，因此这些复选框现在显示在RStudio闪亮的应用查看器中。

...您是否尝试过再次打开和关闭它？ XD

感谢所有发表评论的人！