nc <- call_aio(ncurl_aio("https://postman-echo.com/get", timeout = 1000L))
is_aio(nc)
s <- socket()
is_nano(s)
n <- nano()
is_nano(n)
close(s)
n$close()
s <- ncurl_session("https://postman-echo.com/get")
is_ncurl_session(s)
if (is_ncurl_session(s)) close(s)
Run the code above in your browser using DataLab