How to export R dataframes with character vectors to Stata?

set_varlabel-chr_fct.R

if(!require("tidyverse")) install.packages("tidyverse")
if(!require("haven")) install.packages("haven")
if(!require("labelled")) install.packages("labelled")

library(tidyverse)
library(haven)
library(labelled)

#crear data frame
set.seed(22)
data_frame(age = floor(rnorm(6,25,10)), 
           sex = gl(2,1,6, labels = c("f","m")),
           edu = rep(c("primaria","secundaria"),each=3)) %>% 
  
  #transformar vectores chr a fct
  mutate_if(is.character,as.factor) %>% 
  
  #asignar etiquetas a variables
  labelled::set_variable_labels(
    age = "Edad (años)", 
    sex = "Sexo de participantes",
    edu = "Nivel educativo") %>% 
  
  #grabar en dta
  haven::write_dta("data/new_db.dta")