altering-shiny-http-response.R

library(shiny)

ui <- fluidPage()

server <- function(input, output, session) { 
}

# Creating the shiny object
res <- shinyApp(ui, server)

# Altering the httpHandler
res$httpHandler <- function(req){
  # getting shiny:::httpResponse
  httpResponse <- getFromNamespace("httpResponse", "shiny")
  # Doing a 301 redirect
  return(httpResponse(
    status = 301,
    headers = list(
      Location = "https://colinfay.me"
    )
  ))
}
# Run the app
print(res)