How to get a hyperlink for the words in a description in an r dataframe?

library(stringr)
data = data.frame("word"=c('python py', 'java'), 
 "description"=c('Java is a statically typed and Python py is a dynamically typed',
     'java is a programming language'), stringsAsFactors = FALSE)

pat <- str_c("\\b(?i)(", data$word, ")\\b")
str_replace(data$description, pat, "http://www.google.com/\\1") 
#[1] "Java is a statically typed and http://www.google.com/Python py is a dynamically typed"
#[2] "http://www.google.com/java is a programming language"  

data$new <- data$description
for(i in seq_len(nrow(data))) for(j in seq_along(ll)) {
   url <- paste0("http://www.google.com/",ll[[j]])
   data$new[i] <- sub(ll[[j]], url, data$new[i], ignore.case = TRUE)
   }

data$new
#[1] "http://www.google.com/java is a statically typed and http://www.google.com/python py is a dynamically typed"
#[2] "http://www.google.com/java is a programming language"