Obtain the TCP ports currently in use
ports_in_use()
An integer vector of the TCP ports currently in use
## Not run: (active_ports <- ports_in_use()) ## End(Not run)