R/server.R

In localshiny/localshiny: Deployment tool of distributing Shiny apps on LocalShiny web.

setServer <- function() {
  url    <- paste( getOption("protocol"), 
                   "://", 
                   getOption("server"), 
                   getOption("path"), sep="")
                   
  info   <- list(name = getOption("server"), url = url)

  info
}