Как выполнить strsplit с помощью '|' символ, он ведет себя неожиданно?

Я хотел бы разделить строку символов по шаблону" | "

, но

unlist(strsplit("I am | very smart", " | "))

[1] "I"     "am"    "|"     "very"  "smart"

или

gsub(pattern="|", replacement="*", x="I am | very smart")    

[1] "*I* *a*m* *|* *v*e*r*y* *s*m*a*r*t*"