Nothing
#' @title Separate a character column into two columns using
#' a regular expression separator
#' @description Given either regular expression,
#' \code{separate()} turns a single character column into two columns.
#' Analogous to \code{tidyr::separate}, but only split into two columns only.
#' @param .data A data frame.
#' @param separated_colname Column name, string only.
#' @param into Character vector of length 2.
#' @param sep Separator between columns.
#' @param remove If \code{TRUE}, remove input column from output data frame.
#' @return A data.table
#' @seealso \code{\link[tidyr]{separate}}, \code{\link[tidyfst]{unite_dt}}
#' @examples
#' df <- data.table(x = c(NA, "a.b", "a.d", "b.c"))
#' df %>% separate(x, c("A", "B"))
#' # equals to
#' df <- data.table(x = c(NA, "a.b", "a.d", "b.c"))
#' df %>% separate("x", c("A", "B"))
#' @export
separate = function(.data,separated_colname,into,
sep = "[^[:alnum:]]+",
remove = TRUE){
dt = .data
substitute(separated_colname) %>% deparse() -> parse_name
if(!str_detect(parse_name,"^\"")) separated_colname = parse_name
dt[[separated_colname]] %>%
tstrsplit(split = sep) %>%
setDT() %>%
setnames(names(.),into) -> split_columns
if(remove)
dt[,(separated_colname):=NULL][,names(split_columns):=split_columns][]
else dt[,names(split_columns):=split_columns][]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.