Make redacted field more robust

[hadley]

Maybe encrypt/decrypt using httr2 local key? That would prevent automated tools from finding it.

[hadley]

Or I could create an external pointer so saveRDS can never capture it.

[hadley]

From @shikokuchuo

secret <- "some secret value"
key <- new.env()

ref <- rlang::new_weakref(key, secret)
rlang::wref_value(ref)
#> [1] "some secret value"
serialize(ref, NULL)
#>  [1] 58 0a 00 00 00 03 00 04 05 00 00 03 05 00 00 00 00 05 55 54 46 2d 38 00 00
#> [26] 00 17

ref1 <- rlang::new_weakref(key, NULL)
rlang::wref_value(ref1)
#> NULL
serialize(ref1, NULL)
#>  [1] 58 0a 00 00 00 03 00 04 05 00 00 03 05 00 00 00 00 05 55 54 46 2d 38 00 00
#> [26] 00 17