# NOT RUN {
library(svHttp)
# Try to start the HTTP server on default port with default name
res <- try(start_http_server(), silent = TRUE)
if (!inherits(res, "try-error")) {
# Get the port
http_server_port()
# Get the name
http_server_name()
# Get the list of clients... empty, unless you connect a client in between
http_server_clients()
}
# Stop the server now
stop_http_server()
# }
Run the code above in your browser using DataLab