fork download
  1. s <- c("ABC1.2", "22A.2", NA)
  2. gsub("[.].*$", "", s)
Success #stdin #stdout 0.44s 22824KB
stdin
Standard input is empty
stdout
[1] "ABC1" "22A"  NA