Renamed has.calendar to has.calendars

wilsonfreitas · Apr 11, 2017 · e2e7c1c · e2e7c1c
1 parent 655dafd
commit e2e7c1c
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 8 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -38,7 +38,7 @@ export(bizseq)
 export(calendars)
 export(create.calendar)
 export(following)
-export(has.calendar)
+export(has.calendars)
 export(is.bizday)
 export(load_quantlib_calendars)
 export(load_rmetrics_calendars)

diff --git a/R/calendar.R b/R/calendar.R
@@ -278,7 +278,7 @@ check_calendar <- function(cal) {
 #' @export
 #' @rdname calendar-register
 #' @examples
-#' has.calendar(c("actual", "weekends"))
-has.calendar <- function(cals) {
+#' has.calendars(c("actual", "weekends"))
+has.calendars <- function(cals) {
   cals %in% ls(.CALENDAR_REGISTER)
 }
diff --git a/man/calendar-register.Rd b/man/calendar-register.Rd
diff --git a/tests/testthat/test-register.R b/tests/testthat/test-register.R
@@ -46,7 +46,7 @@ test_that('it should remove a calendar', {
 
 test_that("it should check if a calendar exists", {
   create.calendar("actual")
-  expect_true(has.calendar("actual"))
-  expect_false(has.calendar("nama"))
-  expect_equal(has.calendar(c("actual", "weekends", "nama")), c(TRUE, TRUE, FALSE))
+  expect_true(has.calendars("actual"))
+  expect_false(has.calendars("nama"))
+  expect_equal(has.calendars(c("actual", "weekends", "nama")), c(TRUE, TRUE, FALSE))
 })