inst/tinytest/test_to_json_factor.R

factor_var <- iris$Species
factor_var_json <- paste0("[\"", paste0(as.character(factor_var), collapse="\",\""),
                          "\"]")

expect_equal(to_json(factor_var), factor_var_json)
expect_equal(to_json(factor_var[1], auto_unbox=TRUE), "\"setosa\"")

Try the QuickJSR package in your browser

Any scripts or data that you put into this service are public.

QuickJSR documentation built on April 13, 2025, 5:12 p.m.