## Not run:
# # start server in another R session
# if (interactive()) {
# jsonapi_server()
#
# # Back in this session ...
# # Connect
# (conn <- jsonapi_connect("http://localhost:8000"))
#
# # Get data
# conn$url
# conn$version
# conn$content_type
# conn$routes()
# conn$route("authors")
# conn$route("chapters")
# conn$route("authors/1")
# conn$route("authors/1/books")
# conn$route("chapters/5")
# }
# ## End(Not run)
Run the code above in your browser using DataLab