if (FALSE) {
r <- wd_connect("https://example.com/remote.php/dav/files/johndoe")
# add a password to a mail share and notify the user
ocs_modify_share(r, 12342, password = "super_secret")
ocs_send_mail(r, 12342, password = "super_secret")
}
Run the code above in your browser using DataLab