How to set variable labels from labels stored in a dataframe?

set_varlabel_df.R

# from dataframes to variable labels?
library(tidyverse)
library(haven)
library(labelled)

set.seed(22)
new_db <- data_frame(age = floor(rnorm(6,25,10)), 
                     sex = gl(2,1,6, labels = c("f","m")))
var.labels <- data_frame(variable = c("age","sex"),
                           label= c("Age in Years","Sex of the participant"))
new_db %>% 
  labelled::set_variable_labels(
    age = var.labels$label[1], 
    sex = var.labels$label[2]
  ) %>% 
  haven::write_dta("data/new_db.dta")