lint cleaning

RichardMN · Sep 19, 2021 · 9c35694 · 9c35694
1 parent 26cd8ad
commit 9c35694
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/Vietnam.R b/R/Vietnam.R
@@ -109,7 +109,7 @@ Vietnam <- R6::R6Class("Vietnam",
           self$data$raw$provinces %>%
             select(ncsc_region_code = id, level_1_region = name),
           by = c("ncsc_region_code")) %>%
-        select( -ncsc_region_code ) %>%
+        select(-ncsc_region_code) %>%
         mutate(
           date = dmy(date),
           cases_total = as.numeric(cases_total),
@@ -118,7 +118,7 @@ Vietnam <- R6::R6Class("Vietnam",
           level_1_region = str_replace_all(level_1_region,
                                         "TP HCM", "Hochiminh"),
         ) %>%
-        # 
+        #
         #tidyr::drop_na(date, region_name) %>%
         mutate(
           level_1_region = stri_trans_general(level_1_region, "latin-ascii"),

diff --git a/R/test-DataClass.R b/R/test-DataClass.R
@@ -103,7 +103,7 @@ test_download <- function(DataClass_obj, download, snapshot_path) {
           testthat::expect_s3_class(data, "data.frame")
           testthat::expect_true(nrow(data) > 0)
           testthat::expect_true(ncol(data) >= 2
-                                || typeof(data[[1]])=="list")
+                                || typeof(data[[1]]) == "list")
         })
       }
     )