style adjusts

hsvab · Oct 11, 2023 · 955ae08 · 955ae08
1 parent f8eeaea
commit 955ae08
Show file tree

Hide file tree

Showing 5 changed files with 13 additions and 13 deletions.
diff --git a/R/read_dictionary.R b/R/read_dictionary.R
@@ -35,9 +35,9 @@ read_dictionary <- function(city = "S\u00E3o Paulo",
 
   # Validate if there is any metadata entry for the given arguments
   if (nrow(odbr::metadata[clean_string(odbr::metadata$city) == city_clean &
-                            odbr::metadata$year == year &
-                            odbr::metadata$harmonized == harmonize &
-                            odbr::metadata$language == language, ]) == 0) {
+    odbr::metadata$year == year &
+    odbr::metadata$harmonized == harmonize &
+    odbr::metadata$language == language, ]) == 0) {
     usethis::ui_stop("There is no dictionary for:
                         - city: {city}
                         - year: {year}

diff --git a/R/read_map.R b/R/read_map.R
@@ -52,8 +52,8 @@ read_map <- function(city = "S\u00E3o Paulo",
 
   # Validate if there is any metadata entry for the given arguments
   if (nrow(odbr::metadata[clean_string(odbr::metadata$city) == city_clean &
-                            odbr::metadata$year == year &
-                            odbr::metadata$harmonized == harmonize, ]) == 0) {
+    odbr::metadata$year == year &
+    odbr::metadata$harmonized == harmonize, ]) == 0) {
     usethis::ui_stop("There is no geometry data for:
                         - city: {city}
                         - year: {year}

diff --git a/R/read_od.R b/R/read_od.R
@@ -31,8 +31,8 @@ read_od <- function(city = "S\u00E3o Paulo",
 
   # Validate if there is any metadata entry for the given arguments
   if (nrow(odbr::metadata[clean_string(odbr::metadata$city) == city_clean &
-                            odbr::metadata$year == year &
-                            odbr::metadata$harmonized == harmonize, ]) == 0) {
+    odbr::metadata$year == year &
+    odbr::metadata$harmonized == harmonize, ]) == 0) {
     usethis::ui_stop("There is no data for:
                         - city: {city}
                         - year: {year}

diff --git a/README.Rmd b/README.Rmd
@@ -59,23 +59,23 @@ df <- read_od(
   city = "Sao Paulo",
   year = 2017,
   harmonize = FALSE
-  )
+)
 
 # Return zone data from OD Surveys database as sf object at a given city and year
 df <- read_map(
   city = "Sao Paulo",
   year = 2017,
   harmonize = FALSE,
   geometry = "zone"
-  )
+)
 
 # Return data dictionary from OD Surveys, as data.frame, at a given city and year
 df <- read_dictionary(
   city = "Sao Paulo",
   year = 1977,
   harmonize = FALSE,
   language = "pt"
-  )
+)
 ```
 
 ## Available non-harmonized datasets:

diff --git a/README.md b/README.md
@@ -54,23 +54,23 @@ df <- read_od(
   city = "Sao Paulo",
   year = 2017,
   harmonize = FALSE
-  )
+)
 
 # Return zone data from OD Surveys database as sf object at a given city and year
 df <- read_map(
   city = "Sao Paulo",
   year = 2017,
   harmonize = FALSE,
   geometry = "zone"
-  )
+)
 
 # Return data dictionary from OD Surveys, as data.frame, at a given city and year
 df <- read_dictionary(
   city = "Sao Paulo",
   year = 1977,
   harmonize = FALSE,
   language = "pt"
-  )
+)
 ```
 
 ## Available non-harmonized datasets: