R: Examples for 'haven::zap

### ** Examples

x1 <- labelled(1:5, c(good = 1, bad = 5), label = "rating")
x1

<labelled<integer>[5]>: rating
[1] 1 2 3 4 5

Labels:
 value label
     1  good
     5   bad

zap_label(x1)

<labelled<integer>[5]>
[1] 1 2 3 4 5

Labels:
 value label
     1  good
     5   bad

x2 <- labelled_spss(c(1:4, 9), label = "score", na_values = 9)
x2

<labelled_spss<double>[5]>: score
[1] 1 2 3 4 9
Missing values: 9

zap_label(x2)

<labelled_spss<double>[5]>
[1] 1 2 3 4 9
Missing values: 9

# zap_label also works with data frames
df <- tibble::tibble(x1, x2)
str(df)

tibble [5 × 2] (S3: tbl_df/tbl/data.frame)
 $ x1: int+lbl [1:5] 1, 2, 3, 4, 5
   ..@ labels: Named int [1:2] 1 5
   .. ..- attr(*, "names")= chr [1:2] "good" "bad"
   ..@ label : chr "rating"
 $ x2: hvn_lbl_ [1:5] 1, 2, 3, 4, 9
   ..@ label    : chr "score"
   ..@ na_values: num 9

str(zap_label(df))

tibble [5 × 2] (S3: tbl_df/tbl/data.frame)
 $ x1: int+lbl [1:5] 1, 2, 3, 4, 5
   ..@ labels: Named int [1:2] 1 5
   .. ..- attr(*, "names")= chr [1:2] "good" "bad"
 $ x2: hvn_lbl_ [1:5] 1, 2, 3, 4, 9
   ..@ na_values: num 9

Examples for 'haven::zap_label'

Zap variable labels