# NOT RUN {
req <- request()
req['Accept'] # NULL
req['From'] # NULL, boring
mkup_checkin <- mockup(
route(
'POST',
'^$',
function(req) {
print(req[['Accept']])
print(req[['From']])
response()
}
)
)
# More interesting output
mkup_checkin(
'POST',
'/',
headers = list(
Accept = 'text/html',
From = 'Russia w/ Love'
)
)
# }
Run the code above in your browser using DataLab