#' Sabali Guide: System
#'
#' This function activates the Sabali Help Guide for Operators
#' @param activate Do you need help? Defaults to TRUE.
#' @keywords help
#' @export
#' @examples
#' guide.sys()
guide.sys <- function(activate = TRUE){
if(activate == TRUE){
guide.clear <- data.frame("Description" = c("Get System Info", "Get System Username", "Get Working Directory", "Set Working Directory", "List Files in Working Directory"), "Command" = c(paste0("Sys.info()"), paste0("Sys.getenv('LOGNAME')"), paste0("getwd()"), paste0("setwd('..')"), paste0("list.files()")))
print(guide.clear)
} else {
print("Cannot Access Guide")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.