RShiny不生产情节

Question

我无法在html页面上从我的Shiny代码中生成任何图表。但是，当我在本地系统上尝试以下代码时，它会生成图表。服务器和本地位置的软件包版本相同。

闪亮服务器日志文件没有特定错误。

代码已从教程网站之一复制，以方便from here：

library(shiny)

ui <- fluidPage(
  titlePanel("BC Liquor Store prices"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("priceInput", "Price", 0, 100, c(25, 40), pre = "$"),
      radioButtons("typeInput", "Product type",
                   choices = c("BEER", "REFRESHMENT", "SPIRITS", "WINE"),
                   selected = "WINE"),
      selectInput("countryInput", "Country",
                  choices = c("CANADA", "FRANCE", "ITALY"))
    ),
    mainPanel(
      plotOutput("coolplot")
    )
  )
)

server <- function(input, output) {
  output$coolplot <- renderPlot({
    plot(1:10)
  })
}

shinyApp(ui = ui, server = server)

我的输出：

这可能是什么问题？许可问题？ js问题？