inst/apps/brapi/utils/safe_split.R

In c5sire/brapiTS: Breeding API Test Server

safe_split <- function(s, sep = ";"){
  if(is.null(s)) return("")
  sep = paste0(sep, "[\\s]*")
  if(stringr::str_detect(s, sep) ) {
    s = stringr::str_split(s, sep)[[1]]
  }
  s
}