special.kw<-gtrends("special")

special.kw<-gtrends(c("special", "speciality", "specially", "specialization"))

library(gtrendsR)

ch <- gconnect("xxxx@xxx.com", "xxxxxx")
special.kw<-gtrends("special")