I am running a simple shiny app
library(shiny)
library(DBI)
ui <- fluidPage(
textInput("ID", "Enter your ID:", "5"),
tableOutput("tbl")
)
server <- function(input, output, session) {
output$tbl <- renderTable({
conn <- dbConnect(
drv = RMySQL::MySQL(),
dbname = "shinydemo",
host = "shiny-demo.csa7qlmguqrf.us-east-1.rds.amazonaws.com",
username = "guest",
password = "guest")
on.exit(dbDisconnect(conn), add = TRUE)
query <- paste0("SELECT * FROM City WHERE ID = '", input$ID, "';")
dbGetQuery(conn, query)
})
}
shinyApp(ui, server)
It works fine locally in RStudio but when i try to publish it , the deployment fails with error :
Listening on http://127.0.0.1:4796
Error in function (type, msg, asError = TRUE) :
SSL certificate problem: unable to get local issuer certificate
Timing stopped at: 0.85 0.22 1.99
Can someone please help