R/strings.R

In mikebesso/two.laws.big.bang:

#' @include plyrs.R
#' @include functoids.R
NULL

#' @export
str_Upper <- toupper
#' @export
str_upper <- toupper

#' @export
str_Lower <- tolower
#' @export
str_lower <- tolower

#' #' @export
#' str_replace_all <- stringr::str_replace_all

#' #' @export
#' str_replace <- stringr::str_replace

#' #' @export
#' str_split_fixed <- stringr::str_split_fixed

#' #' @export
#' str_split <- stringr::str_split


#' @export
str_Detect <- stringr::str_detect
#' #' @export
#' str_detect <- stringr::str_detect

#' #' @export
#' fixed <- stringr::fixed

#' #' @export
#' str_split <- stringr::str_split


#' @export
str_Trim <- partial(stringr::str_trim, side = "both")

#' @export
str_TrimLeft <- partial(stringr::str_trim, side = "left")


#' @export
str_TrimRight <- partial(stringr::str_trim, side = "right")




#' @export
str_CleanDates <- function(.string, .output_format = "%Y-%m-%d", .input_format = c('Ymd', 'mdY')){
  retval <-
    ifelse(
      !is.null(.string),
      ifelse(
        !is.na(.string),
        format(
          parse_date_time(.string, orders = .input_format),
          .output_format
        ),
        ""
      ),
      ""
    );

  return(paste(retval));
}



#' @export
str_AddSpaceBetweenCollapsedWords <- function(.string){

  retval <- gsub("([[:lower:]])([[:upper:]])", "\\1 \\2", .string);
  retval <- gsub("([[:lower:]])([[:digit:]])", "\\1 \\2", retval);

  return(retval);


}




#' @export
str_ExtractDate <- function(strings, date_pattern = "[[:digit:]]{4}.[[:digit:]]{2}.[[:digit:]]{2}", date_format = "%Y_%m_%d"){
  date_strings <- str_extract(strings, date_pattern);
  dates <- as.Date(date_strings);

}


#' @export
str_MidString <- function(.string, .start, .nchars){
  substring(.string, start = .start, last = .nchars);
}


#' @export
str_SubString <- function(.string, .start, .stop){
  substr(.string, start = .start, stop = .stop);
}




#' @export
str_Now <- function(.format = "%Y-%m-%d %H:%M:%S"){
  format(Sys.time(), .format)
}



#' @export
str_StartsWith <- function(string, match, ignoreCase = FALSE, trim = FALSE){
  if (trim){
    string <- str_Trim(string);
    match <- str_Trim(match);
  }

  if (ignoreCase) {
    string <- toupper(string)
    match <- toupper(match)
  }
  substr(string, start = 1, stop = nchar(match)) == match
}



#' @export
str_EndsWith <- function(string, match, ignoreCase = FALSE, trim = FALSE){

  if (trim){
    string <- str_Trim(string);
    match <- str_Trim(match);
  }

  if (.ignore_case) {
    string <- toupper(string)
    match <- toupper(match)
  }
  substr(string, start = nchar(string) - nchar(match) + 1, stop = nchar(string)) == match

}




#' @export
str_Replace <- function(.str, .pattern, .replacement, .all = TRUE, .fixed = FALSE){

  retval <- .str;

  pattern <- ifelse(.fixed, fixed(.pattern), .pattern);

  if(.all){
    retval <- stringr::str_replace_all(.str, pattern, .replacement);
  } else {
    retval <- stringr::str_replace(.str, pattern, .replacement);
  }

  return(retval);
}


str_IsDoubleQuoted <- function(text){
  str_BeginsWith('"') | str_EndsWith('"')
}

str_IsSingleQuoted <- function(text){
  str_BeginsWith("'") | str_EndsWith("'")
}

#' @export
str_DoubleQuote <- function(text){
  paste0('"', text, '"')
}

#' @export
str_SingleQuote <- function(text){
  paste0("'", text, "'")
}

#' @export
str_IsFixed <- function(text){
  return(is(text, "fixed"))
}

#' @export
str_Fixed <- function(text){
  if(str_IsFixed(text))
    return(text)

  return(fixed(text))
}

#' @export
str_SplitCSV <- function(text, sep = ","){

  Separator <- str_Fixed(sep)

  CSV <- llply(
    text,
    function(text){
      str_Trim(
        str_split_fixed(text, Separator, Inf)[1,]
      )
    }
  )

  if (length(CSV) == 1){
    CSV <- CSV[[1]]
  }

  return(CSV)
}


#' @export
str_SplitPipeSeparatedValues <- function(text){
  str_SplitCSV(text, sep = "|")
}

#' @export
str_RemoveWhitespace <- function(text){
  str_replace_all(text, "\\s", "")
}