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