Skip to contents

User commands


data_request_access(path_data = NULL, path_user = NULL, quiet = FALSE)

  path_data = NULL,
  path_user = NULL,
  test = TRUE,
  quiet = FALSE,
  cache = TRUE



Path to the data. If not given, then we look recursively down below the working directory for a ".cyphr" directory, and use that as the data directory.


Path to the directory with your user key. Usually this can be omitted. This argument is passed in as both pub and key to keypair_openssl(). Briefly, if this argument is not given we look at the environment variables USER_PUBKEY and USER_KEY - if set then these must refer to path of your public and private keys. If these environment variables are not set then we fall back on ~/.ssh/ and ~/.ssh/id_rsa, which should work in most environments. Alternatively, provide a path to a directory where the file and id_rsa can be found.


Suppress printing of informative messages.


Test that the encryption is working? (Recommended)


Cache the key within the session. This will be useful if you are using ssh keys that have passwords, as if the key is found within the cache, then you will not have to re-enter your password. Using cache = FALSE neither looks for the key in the cache, nor saves it.


# The workflow here does not really lend itself to an example,
# please see the vignette.

# Suppose that Alice has created a data directory:
path_alice <- tempfile()
cyphr::ssh_keygen(path_alice, password = FALSE)
path_data <- tempfile()
dir.create(path_data, FALSE, TRUE)
cyphr::data_admin_init(path_data, path_user = path_alice)
#> Generating data key
#> Authorising ourselves
#> Adding key fb:12:8a:7a:c2:44:78:a2:e4:1f:1a:6d:8c:3c:02:25:21:52:eb:2a:0c:c7:40:d3:d6:7e:a1:24:99:74:24:54
#>   user: root
#>   host: a07fc6233936
#>   date: 2022-06-20 13:44:47
#> Verifying

# If Bob can also write to the data directory (e.g., it is a
# shared git repo, on a shared drive, etc), then he can request
# access
path_bob <- tempfile()
cyphr::ssh_keygen(path_bob, password = FALSE)
hash <- cyphr::data_request_access(path_data, path_user = path_bob)
#> A request has been added
#> Email someone with access to add you
#>     hash: 20:e5:ca:55:d2:e7:34:24:bb:44:32:3d:7e:74:01:20:ca:ed:c6:9f:eb:4c:13:41:27:f4:73:90:c4:17:ad:4d
#> If you are using git, you will need to commit and push first:
#>     git add .cyphr
#>     git commit -m "Please add me to the dataset"
#>     git push

# Alice can authorise Bob
cyphr::data_admin_authorise(path_data, path_user = path_alice, yes = TRUE)
#> There is 1 request for access
#> Adding key 20:e5:ca:55:d2:e7:34:24:bb:44:32:3d:7e:74:01:20:ca:ed:c6:9f:eb:4c:13:41:27:f4:73:90:c4:17:ad:4d
#>   user: root
#>   host: a07fc6233936
#>   date: 2022-06-20 13:44:47
#> Added 1 key
#> If you are using git, you will need to commit and push:
#>     git add .cyphr
#>     git commit -m "Authorised root"
#>     git push

# After which Bob can get the data key
cyphr::data_key(path_data, path_user = path_bob)
#> <cyphr_key: sodium>

# See the vignette for more details.  This is not the best medium
# to explore this.

# Cleanup
unlink(path_alice, recursive = TRUE)
unlink(path_bob, recursive = TRUE)
unlink(path_data, recursive = TRUE)