I have a short R script which creates with the beakr-Package (but it could be Shiny as well) a server instance listening on port 4000.
beakr
4000