Error while opening the shiny app webpage

shiny
1

Hi, I'm trying to deploy my first shiny app and it's a pretty simple one. I sucessfully deploy it on Rstudio, but when the link opens it returns an error:

image
image928×443 23.7 KB

The code for my app is the following:

#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)
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){
  library(rsconnect)
  output$bar1<-renderPlot({
    title="Random numbers normal distribution"
    hist(rnorm(input$num),main=title)
  })
}

shinyApp(ui=ui,server=server)



#?shinyThemes
#?sliderInput
#?actionButton()
#?sumbitButton()

Thanks so much in advance for any responses