how to remove whitespace introduced due to tidyr separate() - r

Question

I am a beginner in R and working on the titanic dataset.
I wanted to split the fullnames which are like this
into :
but the separate function in tidyr is also adding a whitspace during the split. How to i avoid this?
Thanks in advance.
here is my code
require('ggplot2') # visualization
require('ggthemes') # visualization
require('scales') # visualization
require('dplyr') # data manipulation
require('mice') # imputation
require('randomForest') # classification algorithm
require('tidyr')
setwd('~/Downloads/Titanic dataset/')
train <- read.csv('./train.csv')
test <- read.csv('./test.csv')
full <- bind_rows(train,test)
names<-full["Name"]
names$Name<-gsub('\\"','',names$Name)
names$Name<-gsub('\\(.*\\)','',names$Name)
names<-separate(names,Name,into =c("lastname","firstname"),sep="[\\,]")
names<-separate(names,firstname,into =c("title","firstname"),sep="[\\.]")
full<-bind_cols(names,full)
#full$title<-gsub(" ",'',full$title)
full$title<-trimws(x,'b')
rare_title<- c('Capt','Don','Dona','Jonkheer','Lady','Sir',
'the Countess','Major','col','Major','Rev')
full$title[full$title =="Mlle"] <- "Miss"
full$title[full$title =='Ms'] <- 'Miss'
full$title[full$title =='Mme'] <- 'Mrs'
full$title[full$title %in% rare_title] <- "rare_title"
table(full$Sex, full$title)