RosettaCodeData/Task/Hello-world-Web-server/R/hello-world-web-server.r

library(httpuv)

runServer("0.0.0.0", 5000,
	list(
		call = function(req) {
		  list(status = 200L,	headers = list('Content-Type' = 'text/html'), body = "Goodbye, world!")
	        }
	)
)