R/add_slash_n.R

Defines functions add_slash_n

Documented in add_slash_n

#' Adding Slash_n inside Strings
#' 
#' This function simply adds change-line
#' signs inside strings, so 
#' that they can be put vertically as the texts 
#' of x-axis.
#' 
#' @param x a character vector
#' @param delete_space whether to delete spaces.
#' Default is TRUE.
#' @param vertical_line whether to 
#' change \code{-} into \code{|}. 
#' Default is TRUE.
#' 
#' @export
#' @examples
#' lab=add_slash_n(c("a b-c", "d - ef ", "n"))
add_slash_n=function(x, delete_space=TRUE, vertical_line=TRUE){
	if (delete_space == TRUE) x=gsub(" ", "", x)
	x=gsub("", "\n", x)
	# nnn="\n"
	# x=gsub(paste("^", nnn, "|", nnn, "$", sep=""), "", x)
	x=gsub("^\n|\n$", "", x)
	if (vertical_line == TRUE) x=gsub("-", "\\|", x)
	x
}

Try the plothelper package in your browser

Any scripts or data that you put into this service are public.

plothelper documentation built on Feb. 1, 2020, 9:07 a.m.