httr2_pkg/410_httpuv_start_server.R

In jimrothstein/yt_api: R functions to use Google Youtube API

# R
#
#

library(httpuv)	
httpuv::listServers()

     # A very basic application
s <- httpuv::startServer("127.0.0.1",	8080,
       list(
         call = function(req) {
           list(
             status = 200L,
             headers = list(
               'Content-Type' = 'text/html'
             ),
             body = "Hello world!"
           )
         }
       ) # end outer list
     )
s     
##  open browser:   http://127.0.0.1:8080