tests/testthat/test_ReadHMD.R

rm(list = ls())

# Wrong user & password
expect_error(availableHMD(username = "fake_user", password = "fake_password"))
expect_error(ReadHMD(what = "Dx", 
                     username = "fake_user", 
                     password = "fake_password"))

# Wrong index
expect_error(ReadHMD(what = "DxDD", 
                     username = "username", password = "password"))
# Wrong country
expect_error(ReadHMD(what = "Dx", countries = "AUSS", 
                     username = "username", password = "password"))

# Wrong interval
expect_error(ReadHMD(what = "Dx", countries = "AUS", interval = "1x50", 
                     username = "username", password = "password"))

# Wrong country for the index
expect_error(ReadHMD(what = "LT_fc", countries = "AUS", interval = "1x1", 
                     username = "username", password = "password"))

# Wrong interval for the index
expect_error(ReadHMD(what = "e0", countries = "SWE", interval = "5x1", 
                     username = "username", password = "password"))
expect_error(ReadHMD(what = "e0c", countries = "SWE", interval = "5x1", 
                     username = "username", password = "password"))

# Marius D. Pascariu --- Sun Oct  7 14:37:24 2018 ------------------------------

# cntr <- c('SWE')  
# int <- c("1x10")
# wht <- c("births", "population", "Dx_lexis", "Ex_lexis", "Dx", 
#          "mx", "Ex", "LT_f", "LT_m", "LT_t", "e0", 
#          "mxc", "Exc", "LT_fc", "LT_mc", "LT_tc", "e0c")
# u = "..."
# p = "..."
# expand.grid(wht, int)
# 
# 
# for (w in wht) {
#   cat(w, "\n")
#   assign(w, ReadHMD(what = w, countries = cntr, interval  = int,
#                     username  = u, password  = p))
# }
# 
# 
# births
# population 
# Dx_lexis 
# Ex_lexis 
# Dx 
# mx 
# Ex 
# LT_f 
# LT_m 
# LT_t 
# e0 
# mxc 
# Exc 
# LT_fc 
# LT_mc 
# LT_tc 
# e0c

Try the MortalityLaws package in your browser

Any scripts or data that you put into this service are public.

MortalityLaws documentation built on Nov. 6, 2018, 5:04 p.m.