from_yaml.RdRestore a serialized deident from file
from_yaml(path)
deident <- deident(ShiftsWorked, Pseudonymizer, Employee)
.tempfile <- tempfile(fileext = ".yml")
deident$to_yaml(.tempfile)
deident.yaml <- from_yaml(.tempfile)
deident.yaml$mutate(ShiftsWorked)
#> # A tibble: 3,100 × 7
#> `Record ID` Employee Date Shift `Shift Start` `Shift End` `Daily Pay`
#> <int> <chr> <date> <chr> <chr> <chr> <dbl>
#> 1 1 XMjVS 2015-01-01 Night 17:01 00:01 78.1
#> 2 2 FOaSU 2015-01-01 Day 08:01 16:01 155.
#> 3 3 xlxRN 2015-01-01 Day 08:01 16:01 77.8
#> 4 4 U24bO 2015-01-01 Day 08:01 15:01 203.
#> 5 5 Pzd7c 2015-01-01 Night 16:01 23:01 211.
#> 6 6 3dsCm 2015-01-01 Night 17:01 00:01 142.
#> 7 7 XpP9G 2015-01-01 Rest NA NA 0
#> 8 8 WZJYO 2015-01-01 Night 17:01 00:01 213.
#> 9 9 Wul2m 2015-01-01 Night 16:01 00:01 219.
#> 10 10 Fu4VB 2015-01-01 Night 16:01 00:01 242.
#> # ℹ 3,090 more rows