R 闪亮的内置程序正在抛出错误

我试图使用shiny（通过runExample（）方法）运行内置程序（示例），并得到以下错误

输出$dynamicCassets输出中出错

此代码应该可以工作：

library(shiny)
server <- function(input, output) {
  output$myname <- renderText(input$name)
  output$myage <- renderText(input$age)


}

ui <- fluidPage(titlePanel("Enter Personal Details"),
                sidebarLayout(
                  sidebarPanel(("Enter the personal Details"),
                               textInput("name", "Enter your name", ""),
                               textInput("age", "Enter your age", "")
                  ),
                  mainPanel(("Your Entered information is : "),
                            textOutput("myname"),
                            textOutput("myage")
                  )
                ))

shinyApp(ui = ui, server = server)      

库（闪亮）
服务器此代码应该可以工作：

library(shiny)
server <- function(input, output) {
  output$myname <- renderText(input$name)
  output$myage <- renderText(input$age)


}

ui <- fluidPage(titlePanel("Enter Personal Details"),
                sidebarLayout(
                  sidebarPanel(("Enter the personal Details"),
                               textInput("name", "Enter your name", ""),
                               textInput("age", "Enter your age", "")
                  ),
                  mainPanel(("Your Entered information is : "),
                            textOutput("myname"),
                            textOutput("myage")
                  )
                ))

shinyApp(ui = ui, server = server)      

库（闪亮）
服务器如果理解正确，是否尝试运行示例？正确的运行方式是：
library（shinny）runExample（“01_hello”）
ya这是正确的，我正在尝试运行示例，是的，我添加了库，但我仍然得到一个无响应的web显示（灰色窗口，通常是应用程序终止时的情况）以及前面提到的错误@MikaelJumppanendon在
Output$myname
中不使用大写字母leter，并尝试
Output$myname仅以它开头，但运气不好@MikaelJumppanen和示例也没有响应：/如果理解正确，您是否尝试运行示例？正确的运行方式是：
library（shinny）runExample（“01_hello”）
ya这是正确的，我正在尝试运行示例，是的，我添加了库，但我仍然得到一个无响应的web显示（灰色窗口，通常是应用程序终止时的情况）以及前面提到的错误@MikaelJumppanendon在
Output$myname
中不使用大写字母leter，并尝试
Output$myname仅以它开头，但运气不好@MikaelJumppanen和示例也没有响应：/
library(shiny)
server <- function(input, output) {
  output$myname <- renderText(input$name)
  output$myage <- renderText(input$age)


}

ui <- fluidPage(titlePanel("Enter Personal Details"),
                sidebarLayout(
                  sidebarPanel(("Enter the personal Details"),
                               textInput("name", "Enter your name", ""),
                               textInput("age", "Enter your age", "")
                  ),
                  mainPanel(("Your Entered information is : "),
                            textOutput("myname"),
                            textOutput("myage")
                  )
                ))

shinyApp(ui = ui, server = server)