Logical values not handled correctly

[tkstring]

If a single logical value is stored without encryption, it isn't recovered correctly and throws an error in line 9 of encrypt.R. I discovered this while storing a binary checkbox input value in a Shiny app. The problem is actually a bigger one with RJSONIO (I think), but it would be easily worked around on your end. A simplified version of what's going on:

> fromJSON(toJSON(list(encV=FALSE,data=FALSE)))$data
Error in fromJSON(toJSON(list(encV = FALSE, data = FALSE)))$data : $ operator is invalid for atomic vectors

As opposed to this:

> fromJSON(toJSON(list(encV=FALSE,data=FALSE)))[["data"]]
[1] FALSE

RJSONIO seems to return lists of only logicals as a named logical vector. This could be fixed by changing return(js$data) in line 9 of encrypt.R to return(js[["data"]]). Or by switching to jsonlite.

[aquacalc]

"If a single logical value is stored without encryption..."

Just came across this today. Very good explanation. Have you found a work-around with the package as it now stands?

[tkstring]

Yes, I convert the logical values to numeric for storage and then back again when retrieved.

[aquacalc]

Of course! Thanks. (Just trying to do that now using reactiveValues().)