Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----load---------------------------------------------------------------------
library(strex)
## ----can-be-numeric-----------------------------------------------------------
str_can_be_numeric(c("1a", "abc", "5", "2e7", "seven"))
## ---- error=TRUE--------------------------------------------------------------
string <- c("Alan paid £5", "Joe paid $7")
str_first_currency(string)
string <- c("€1 is $1.17", "£1 is $1.29")
str_nth_currency(string, n = c(1, 2))
str_last_currency(string) # only gets the first mentioned
str_extract_currencies(string)
## ----str-elem-----------------------------------------------------------------
string = "abcdefg"
str_sub(string, 3, 3)
str_elem(string, 3) # simpler and more exressive
## ----extract-num-non-num------------------------------------------------------
string <- c("aa1bbb2ccc3", "xyz7ayc8jzk99elephant")
str_extract_numbers(string)
str_extract_non_numerics(string)
## ----split-by-numbers---------------------------------------------------------
string <- c("aa1bbb2ccc3", "xyz7ayc8jzk99elephant")
str_split_by_numbers(string)
## ----giv-ext------------------------------------------------------------------
string <- c("spreadsheet1.csv", "spreadsheet2")
str_give_ext(string, "csv")
## ----give-ext-replace---------------------------------------------------------
str_give_ext(string, "xls") # append
str_give_ext(string, "csv", replace = TRUE) # replace
## ----before-last-dot----------------------------------------------------------
string <- c("spreadsheet1.csv", "spreadsheet2")
str_before_last_dot(string)
## ----str-remove-quoted--------------------------------------------------------
string <- "I hate having these \"quotes\" in the middle of my strings."
cat(string)
str_remove_quoted(string)
## ----camel--------------------------------------------------------------------
string <- c("CamelVar1", c("CamelVar2"))
str_split_camel_case(string)
## ----to-vec-------------------------------------------------------------------
string <- "R is good."
str_to_vec(string)
## ----trim-anything------------------------------------------------------------
string <- "(((Why all the parentheses?)))"
string %>%
str_trim_anything(coll("("), side = "left") %>%
str_trim_anything(coll(")"), side = "r")
## ----singleize----------------------------------------------------------------
string <- c("I often write the word *my* twice in a row in my my sentences.")
str_singleize(string, " my")
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.