Hi folks,
my IT support don't know how to help me, so I came here to see if you guys have any solution.
When logged on the shiny server,
ping www.google.com
PING www.google.com (216.58.222.100) 56(84) bytes of data
But my shiny app can't GET www.google.com.
library(shiny)
library(shinydashboard)
require(httr)
ui <- dashboardPage(
dashboardHeader(title = "Internet Test"),
dashboardSidebar(),
dashboardBody(
h2("Why!?"),
verbatimTextOutput("mybox")
)
)
server <- function(input, output, session) {
output$mybox <- renderPrint({
x <- tryCatch({
x <- GET("https://google.com/", verbose())
}, error = function(err) {
x <- err$message
})
x
})
}
shinyApp(ui, server)
mybox shows:
[1] "Timeout was reached: [google.com] Operation timed out after 10001 milliseconds with 0 out of 0 bytes received"
Does anyone know how to config shiny-server to solve that? Or is just a shiny app setup?