How to convert labelled columns from wide to long format and keep the labels? [R]

Question

I am working with a dataset with haven labelled columns (i.e., variables with labels). The dataset is in wide format, as follows:

df <- data.frame("Tr