suggestGSQueries <- function (search_query, code_lang, level) {
if(length(search_query) == 1){
all_suggestion <- getGSQueries(search_query, code_lang)
Sys.sleep(runif(1, 0, 2))
getGSQueries(paste0(search_query," ", l), code_lang)
all_suggestion <- c(all_suggestion, local_suggestion)
Sys.sleep(1+runif(1, 0, 9))
message("level 3 ", l1, l2)
getGSQueries(paste0(search_query," ", l1, l2), code_lang)
all_suggestion <- c(all_suggestion, local_suggestion)
all_suggestion <- unique(all_suggestion)
message(1," ",search_query[1])
all_suggestion <- getGSQueries(search_query[1], code_lang)
for (word in 2:length(search_query)){
Sys.sleep(1+runif(1, 0, 9))
message(word," ",search_query[word])
all_suggestion <- c(all_suggestion,getGSQueries(search_query[word], code_lang))