ignore/get_google_url.R

get_google_url <- function(search.term, domain = '.co.uk', quotes=TRUE)
{
  search.term <- gsub(' ', '%20', search.term)
  if(quotes) search.term <- paste('%22', search.term, '%22', sep='')
  get_google_url <- paste('http://www.google', domain, '/search?q=',
    search.term, sep='')
}
poldham/oldhammisc documentation built on May 25, 2019, 11:23 a.m.