From 9c35694df1cf9c5d77176f94febfd5a2014e1288 Mon Sep 17 00:00:00 2001
From: Richard Martin-Nielsen <richard.martin@alumni.utoronto.ca>
Date: Sun, 19 Sep 2021 21:23:51 +0300
Subject: [PATCH] lint cleaning

---
 R/Vietnam.R        | 4 ++--
 R/test-DataClass.R | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/Vietnam.R b/R/Vietnam.R
index f1d98afd..ebc35abb 100644
--- 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
index 3c1408f3..e6f7f2fd 100644
--- 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")
         })
       }
     )