gpu_output <-
  foreach (
    i = 1:nrow(gpu),
    .combine = "rbind"
    ) %dopar% {
    model_i <- 
			gpu[i, ] %>% 
			dplyr::pull(model)
    release_i <- 
			gpu[i, ] %>% 
			dplyr::pull(release) 
    time_i <- paste(release_i, current_date)
    trend_i <- 
      gtrendsR::gtrends(
        keyword = model_i,
        time = time_i
      )
    trend_i <- trend_i$interest_over_time
    return(trend_i)
  }