revise descripton, reformat tests

johnmackintosh · Apr 26, 2020 · c10b2b7 · c10b2b7
1 parent 3574f09
commit c10b2b7
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 17 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: patientcounter
-Title: Fast Flexible Census Tables To Count Hospital Patients Quickly
+Title: Count Hospital Patients Quickly
 Version: 0.1.0
 Authors@R: 
     person(given = "John",

diff --git a/tests/testthat/test_outputs.R b/tests/testthat/test_outputs.R
@@ -55,10 +55,10 @@ test_that("`interval_census function` works with input and returns expected data
                         base_date = c('2020-01-01','2020-01-02'),
                         base_hour = c(0,0))
 
-  checkDT$start_time <-  lubridate::as_datetime(checkDT$start_time)
-  checkDT$end_time <-  lubridate::as_datetime(checkDT$end_time)
-  checkDT$interval_beginning <-  lubridate::as_datetime(checkDT$interval_beginning)
-  checkDT$interval_end <-  lubridate::as_datetime(checkDT$interval_end)
+  checkDT$start_time <- lubridate::as_datetime(checkDT$start_time)
+  checkDT$end_time <- lubridate::as_datetime(checkDT$end_time)
+  checkDT$interval_beginning <- lubridate::as_datetime(checkDT$interval_beginning)
+  checkDT$interval_end <- lubridate::as_datetime(checkDT$interval_end)
   checkDT$base_date <- data.table::as.IDate(checkDT$base_date)
 
   setkey(checkDT, interval_beginning, interval_end)
@@ -97,10 +97,10 @@ test_that("`interval_census function` works with input and returns expected data
                         base_date = c('2020-01-01','2020-01-02'),
                         base_hour = c(0,0))
 
-  checkDT$start_time <-  lubridate::as_datetime(checkDT$start_time)
-  checkDT$end_time <-  lubridate::as_datetime(checkDT$end_time)
-  checkDT$interval_beginning <-  lubridate::as_datetime(checkDT$interval_beginning)
-  checkDT$interval_end <-  lubridate::as_datetime(checkDT$interval_end)
+  checkDT$start_time <- lubridate::as_datetime(checkDT$start_time)
+  checkDT$end_time <- lubridate::as_datetime(checkDT$end_time)
+  checkDT$interval_beginning <- lubridate::as_datetime(checkDT$interval_beginning)
+  checkDT$interval_end <- lubridate::as_datetime(checkDT$interval_end)
   checkDT$base_date <- data.table::as.IDate(checkDT$base_date)
 
   setkey(checkDT, interval_beginning, interval_end)
@@ -136,10 +136,10 @@ test_that("`interval_census function` works with input and returns expected data
                         base_date = c('2020-01-01','2020-01-02'),
                         base_hour = c(0,0))
 
-  checkDT$start_time <-  lubridate::as_datetime(checkDT$start_time)
-  checkDT$end_time <-  lubridate::as_datetime(checkDT$end_time)
-  checkDT$interval_beginning <-  lubridate::as_datetime(checkDT$interval_beginning)
-  checkDT$interval_end <-  lubridate::as_datetime(checkDT$interval_end)
+  checkDT$start_time <- lubridate::as_datetime(checkDT$start_time)
+  checkDT$end_time <- lubridate::as_datetime(checkDT$end_time)
+  checkDT$interval_beginning <- lubridate::as_datetime(checkDT$interval_beginning)
+  checkDT$interval_end <- lubridate::as_datetime(checkDT$interval_end)
   checkDT$base_date <- data.table::as.IDate(checkDT$base_date)
 
   setkey(checkDT, interval_beginning, interval_end)
@@ -176,10 +176,10 @@ test_that("`interval_census function` works with input and returns expected data
                         base_date = c('2020-01-01','2020-01-02'),
                         base_hour = c(0,0))
 
-  checkDT$start_time <-  lubridate::as_datetime(checkDT$start_time)
-  checkDT$end_time <-  lubridate::as_datetime(checkDT$end_time)
-  checkDT$interval_beginning <-  lubridate::as_datetime(checkDT$interval_beginning)
-  checkDT$interval_end <-  lubridate::as_datetime(checkDT$interval_end)
+  checkDT$start_time <- lubridate::as_datetime(checkDT$start_time)
+  checkDT$end_time <- lubridate::as_datetime(checkDT$end_time)
+  checkDT$interval_beginning <- lubridate::as_datetime(checkDT$interval_beginning)
+  checkDT$interval_end <- lubridate::as_datetime(checkDT$interval_end)
   checkDT$base_date <- data.table::as.IDate(checkDT$base_date)
 
   setkey(checkDT, interval_beginning, interval_end)