serpValueRank <- function(myKwd, glang, hlang, nbr, tld){
all_full_txt <- data.frame(matrix(ncol = 2, nrow = 0))
colnames(all_full_txt) <- c("kwd", "POS1")
for (i in 1:length(myKwd)) {
`google_domain` = paste0('google', tld)
message(i, " ", myKwd[i])
all_full_txt[i, "kwd"] <- myKwd[i]
res <- httr::GET(url = 'https://api.valueserp.com/search', query = params)
res_text <- httr::content(res, "text")
res_json <- jsonlite::fromJSON(res_text, flatten = TRUE)
for (rslt in 1:length(res_json[["organic_results"]][["link"]])) {
all_full_txt[i, paste0("POS", rslt)] <-
res_json[["organic_results"]][["link"]][[rslt]]