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:
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