R/helpers_from_threadr.R

In wacl-york/waclr: A Collection of Tools to Help at the Wolfson Atmospheric Chemistry Laboratories (WACL)

# 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"]))