sock <- socket(listen = "inproc://isaio")
r <- recv_aio(sock)
s <- send_aio(sock, "test")
is_aio(r)
is_aio(s)
close(sock)
s <- socket()
is_nano(s)
n <- nano()
is_nano(n)
close(s)
n$close()
s <- ncurl_session("https://www.r-project.org/")
is_ncurl_session(s)
if (is_ncurl_session(s)) close(s)
Run the code above in your browser using DataLab