meta <- metadata() |>
set_column_type("a", "numerical") |>
set_column_type("b", "numerical") |>
add_constraint(inequality_constraint("a", "b", type = "lt"))
json <- metadata_to_json(meta)
meta2 <- metadata_from_json(json)
Run the code above in your browser using DataLab