# -------------------------------------------------------------- #
# Author: Marius D. PASCARIU
# Last Update: Wed Jul 19 17:43:27 2023
# -------------------------------------------------------------- #
remove(list = ls())
AL = availableLaws()
expect_true(class(AL) == "availableLaws")
expect_false(is.null(AL$table))
expect_false(is.null(AL$legend))
expect_output(print(AL))
AL2 = availableLaws(law = 'rogersplanck')
expect_output(print(AL2))
A <- availableLaws()
law <- 'rogersplanck'
expect_error(availableLaws(law = "notavailable"))
AF = availableLF()
expect_true(class(AF) == "availableLF")
expect_false(is.null(AF$table))
expect_false(is.null(AF$legend))
expect_output(print(AF))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.