#' ddir
#'
#' @export
ddir <- function(dir, ip, user, key) {
system(paste0("ssh -i ", key, " ", user, "@", ip, " ", "'cd ", dir, "; ", "dir -l'"))
}
#ddir("Marc", nu::c1, "ubuntu", "~/.ssh/GROUP-Modelling.pem")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.