> x1 <- labelled_spss_survey(x = 1:10, labels = c(Good = 1, Bad = 8), na_values = c(
+   9, 10), id = "survey1")
> pillar::pillar_shaft(tibble(v1 = x1))
<pillar_ornament>
# A tibble: 10 x 1
   v1             
   <retroh_int>   
 1  1 [Good]      
 2  2             
 3  3             
 4  4             
 5  5             
 6  6             
 7  7             
 8  8 [Bad]       
 9  9 (NA)        
10 10 (NA)        

