Exemplo simples de como detectar e extrair determinada string utilizando o pacote `stringr` (Jeito nutella)

detectar_e_extrair_string.R

library(stringr)
# Neste exemplo vamos obter tudo que venha apos 
# a string "&token=":

# Link de exemplo:
link <- "http://www.google.com/aclk?sa=l&ai=DChcSEwi2vazh_ujhAhWHDJEKHcJaBWYYABAAGgJjZQ&token=AOD64_2roKLol2MibXGLfO6uavtAm10Hhw&ved=0ahUKEwiN26fh_ujhAhV7GLkGHUZSD6cQ0QwIFA&adurl="

# Primeiro vamos localizar a posicao 
# inicial da string desejada 
posicao_inicial <- str_locate(link ,"&token=")[,"start"]

# Obter tudo que venha apos a posicao detectada:
link %>% str_sub(posicao_inicial) %>% str_remove("&token=")

# TODO: Transformar em uma funcao
# Fazer o mesmo usando regex