Nothing
# --------------------------------------------------- #
# Author: Marius D. PASCARIU
# Last update: Sun May 02 17:37:09 2021
# --------------------------------------------------- #
remove(list = ls())
# Wrong index
expect_error(ReadJMD(what = "DxDD"))
# Wrong region
expect_error(ReadJMD(what = "Dx",
regions = "Kyotooooooo"))
# Wrong interval
expect_error(ReadJMD(what = "Dx",
regions = "Kyoto",
interval = "1x50"))
# Wrong interval for the index
expect_error(ReadJMD(what = "Ex_lexis",
regions = "Japan",
interval = "1x1"))
expect_error(ReadJMD(what = "e0",
regions = "Japan",
interval = "5x1"))
expect_error(ReadJMD(what = "LT_f",
regions = "Kyoto",
interval = "1x1"))
expect_output(
print(JMD_sample)
)
# The tests below have been removed because in case the internet source is
# temporary not working the CRAN will consider it as a software failure and will
# demand correction. Unfortunately, we can test only the error messages i.e. the
# automated checks put in place.
# expect_output(ReadJMD(what = "e0",
# regions = "Japan",
# interval = "1x5"))
#
# expect_output(ReadJMD(what = "LT_f",
# regions = "Kyoto",
# interval = "5x5"))
#
# expect_silent(D <- ReadJMD(what = "LT_f",
# regions = "Kyoto",
# interval = "5x5",
# show = FALSE))
# expect_output(print(D))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.