R delete everything after space in column code example

Example: r remove spaces in column names

d<-read_delim(urltxt,delim='\t',)
names(d)<-make.names(names(d),unique = TRUE)