R/helpers_from_threadr.R

Defines functions os_type str_drop_xml_tags

# Pulled from threadr package
# No export
str_drop_xml_tags <- function(string) {
  
  string <- stringr::str_replace_all(string, "<.*?>", "")
  string <- stringr::str_trim(string)
  string
  
}


os_type <- function() stringr::str_to_lower(unname(Sys.info()["sysname"]))
skgrange/waclr documentation built on Dec. 8, 2022, 3:52 a.m.