#'
#' Left- or right-most element(s)
#'
#' Extract the \code{n} left-most (\code{left}) or right-most
#' (\code{right}) elements of \code{x}.
#'
#' @aliases left right
#' @param x a vector that you wish to extract from.
#' @param n an optional integer indicating the number of
#' elements you wish to extract from \code{x} starting from the
#' left-most (\code{left}) or right-most (\code{right}) element.
#' @return A character vector containing the \code{n} left-most
#' (\code{left}) or right-most (\code{right}) elements of
#' \code{x}.
#' @author Gerhard Nachtmann \email{kpm.nachtmann@@gmail.com}
#' @seealso \code{\link{substr}}, \code{\link{nchar}}
#' @keywords left right
#' @export
#' @examples
#'
#' x <- c("abcde", "12345")
#' left(x)
#' left(x, n = 3)
#' right(x)
#' right(x, n = 2)
left <-
function(x, n = 1){
x <- as.character(x)
begin <- 1
end <- begin + n - 1
substring(x, begin, end)
}
#' @export
#' @rdname left
right <-
function(x, n = 1){
x <- as.character(x)
end <- nchar(x)
begin <- end - n + 1
substring(x, begin, end)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.