library(curl)
library(shiny)

options(warn=-1)
#options(shiny.port = 1009)
#options(shiny.host = readLines(curl("http://myexternalip.com/raw")))