成功将我的闪亮应用程序部署到shinyapp.io后，如何解决此错误？

Question

所以我有这个简单的闪亮应用程序代码：

#setwd("C:/Users/Utilizador/Desktop/script/directory/app1")
#install.packages("shiny")
#if (!require("devtools"))
  #install.packages("devtools")
#devtools::install_github("shiny", "rstudio")
#install.packages('rsconnect')

#library(rsconnect)
#library(shiny)
#rsconnect::setAccountInfo(name='jtadeusfontes', token='50F7221CC3111A15FDBC6A492A5195C5', secret='UtiaRJK4JMOBKeW8na3/i3CxT5CTyVNlYK/QcbSt')
#rsconnect::deployApp("C:/Users/Utilizador/Desktop/script/directory/app1")

library(shiny)
library(rsconnect)
ui <- fluidPage(
  textInput(inputId="taxa", 
            label="Enter the name of the taxon:",placeholder="Example: Cetacea"),
  numericInput(inputId="num",label="Enter a number",value=25),
  plotOutput("bar1")
)

server <- function(input, output){
  output$bar1<-renderPlot({
    title="Random numbers normal distribution"
    hist(rnorm(input$num),main=title)
  })
}

shinyApp(ui=ui,server=server)

但是，当我通过Shinyapps.io部署它之后，当我尝试打开URL时，它将返回以下错误：

感谢您的任何提前答复