if (FALSE) {
# establish a connection, you will be asked for a password
r <- wd_connect("https://example.com/remote.php/dav/files/myname","myname")
# establish a connection, use keyring package to retrieve the password
keyring::key_set("dav", "myname") # call only once
r <- wd_connect("https://example.com/remote.php/dav/files/myname",
"myname",
keyring::key_get("dav", "myname"))
}
Run the code above in your browser using DataLab