This keeps everything before a period:
gsub(\"\\\\..*\",\"\", data$column )
how to keep everything after the period?
use this :
gsub(".*\\.","", data$column )
this will keep everything after period