Convert design to JSON — json

Convert a design list to JSON notation for archiving (e.g. in scienceverse)

Usage

json_design(design, filename = NULL, digits = 8, pretty = FALSE, ...)

Arguments

design: a design list including within, between, n, mu, sd, r, dv, id
filename: option name of file to save the json to
digits: number of digits to save
pretty: whether to print condensed or readable
...: other options to send to jsonlite::toJSON

Value

a JSON string

Examples

des <- check_design(2,2)

json_design(des)
#> {"within":{"W1":{"W1a":"W1a","W1b":"W1b"}},"between":{"B1":{"B1a":"B1a","B1b":"B1b"}},"dv":{"y":"value"},"id":{"id":"id"},"vardesc":{"W1":"W1","B1":"B1"},"n":{"B1a":100,"B1b":100},"mu":{"B1a":{"W1a":0,"W1b":0},"B1b":{"W1a":0,"W1b":0}},"sd":{"B1a":{"W1a":1,"W1b":1},"B1b":{"W1a":1,"W1b":1}},"r":{"B1a":[[1,0],[0,1]],"B1b":[[1,0],[0,1]]},"sep":"_"} 
json_design(des, pretty = TRUE)
#> {
#>   "within": {
#>     "W1": {
#>       "W1a": "W1a",
#>       "W1b": "W1b"
#>     }
#>   },
#>   "between": {
#>     "B1": {
#>       "B1a": "B1a",
#>       "B1b": "B1b"
#>     }
#>   },
#>   "dv": {
#>     "y": "value"
#>   },
#>   "id": {
#>     "id": "id"
#>   },
#>   "vardesc": {
#>     "W1": "W1",
#>     "B1": "B1"
#>   },
#>   "n": {
#>     "B1a": 100,
#>     "B1b": 100
#>   },
#>   "mu": {
#>     "B1a": {
#>       "W1a": 0,
#>       "W1b": 0
#>     },
#>     "B1b": {
#>       "W1a": 0,
#>       "W1b": 0
#>     }
#>   },
#>   "sd": {
#>     "B1a": {
#>       "W1a": 1,
#>       "W1b": 1
#>     },
#>     "B1b": {
#>       "W1a": 1,
#>       "W1b": 1
#>     }
#>   },
#>   "r": {
#>     "B1a": [
#>       [1, 0],
#>       [0, 1]
#>     ],
#>     "B1b": [
#>       [1, 0],
#>       [0, 1]
#>     ]
#>   },
#>   "sep": "_"
#> }