# adds leading zero
normalize_issn("3785955") # "03785955"
# adds X to 7 digit ISSN if valid
normalize_issn("2434561") # "2434561X"
normalize_issn("2434561", pretty=TRUE) # "2434-561X"
# finds correct sequence
normalize_issn("21335212434561X") # "2434561X"
# vectorized
normalize_issn(c("__2434__561X", "2434561", "21335212434561X"))
# "2434561X" "2434561X" "2434561X"
Run the code above in your browser using DataLab