#' dps
#'
#' @export
dps <- function(ip, user, key) {
system(paste0("ssh -i ", key, " ", user, "@", ip, " ps -u ubuntu'"))
}
#dps("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.