Remove mdc() function

ropensci · May 23, 2021 · d54c3bf · d54c3bf
1 parent 17a6d9e
commit d54c3bf
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 7 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -25,8 +25,6 @@ midday_change <- function(x) {
     x
 }
 
-mdc <- function(x) midday_change(x)
-
 clock_roll <- function(x) {
     classes <- c("Duration", "Period", "difftime", "hms")
     checkmate::assert_multi_class(x, classes)

diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -39,11 +39,6 @@ test_that("midday_change() | general test", {
                   lubridate::ymd_hms("1970-01-02 06:00:00"))
     expect_equal(object, expected)
 
-    # Wrapper function
-    x <- lubridate::ymd_hms("2000-05-04 18:00:00")
-    object <- mdc(x)
-    expect_equal(object, lubridate::ymd_hms("1970-01-01 18:00:00"))
-
     # Error test
     expect_error(midday_change(1))
 })