Lint indentation

luomus · Nov 29, 2023 · c877de4 · c877de4
1 parent 9e9d9ab
commit c877de4
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/R/finbif_occurrence.R b/R/finbif_occurrence.R
@@ -1301,7 +1301,7 @@ compute_red_list_status <- function(fb_occurrence_df) {
 
   if (add && red_list_var %in% attr(fb_occurrence_df, "column_names", TRUE)) {
 
-    id <- vn[[ "unit.linkings.taxon.latestRedListStatusFinland.status", vtype]]
+    id <- vn[["unit.linkings.taxon.latestRedListStatusFinland.status", vtype]]
 
     id <- fb_occurrence_df[[id]]
 

diff --git a/R/finbif_occurrence_load.R b/R/finbif_occurrence_load.R
@@ -1686,7 +1686,7 @@ expand_lite_cols <- function(df) {
 
           if (no_col) {
 
-             df[[col]] <- split_cols[[i]]
+            df[[col]] <- split_cols[[i]]
 
           }
 

diff --git a/R/sysdata.R b/R/sysdata.R
@@ -370,7 +370,7 @@ informal_groups <- function() {
 
   sd_response <- api_get(request)
 
-  sd_response_content <- sd_response[[ c("content", "results")]]
+  sd_response_content <- sd_response[[c("content", "results")]]
 
   supported_langs <- sysdata("supported_langs")
 
@@ -415,7 +415,7 @@ primary_habitat <- function() {
 
 municipality <- function() {
 
- regions <- c(
+  regions <- c(
     ML.351 = "Ahvenanmaa",
     ML.352 = "Uusimaa",
     ML.353 = "Ahvenanmaa",

diff --git a/tests/testthat/test-finbif_coords.R b/tests/testthat/test-finbif_coords.R
@@ -1,8 +1,8 @@
 test_that(
   "returns valid data", {
 
-     expect_type(coords(list(67, 32, "ykj")), "character")
-     expect_type(coords(list(67, 32, "ykj", 1)), "character")
+    expect_type(coords(list(67, 32, "ykj")), "character")
+    expect_type(coords(list(67, 32, "ykj", 1)), "character")
 
   }
 )
diff --git a/tests/testthat/test-finbif_dates.R b/tests/testthat/test-finbif_dates.R
@@ -133,7 +133,7 @@ test_that(
     )
     expect_identical(
       dates(list(filter = "last_import_date_max", 2001)), "2001"
-      )
+    )
     expect_identical(
       dates(list(filter = "first_import_date_min", 2001)), "2001"
     )
-Original file line number
+Diff line change
@@ Expand Up / @@ -1686,7 +1686,7 @@ expand_lite_cols <- function(df) { @@
               if (no_col) {
-                 df[[col]] <- split_cols[[i]]
+                df[[col]] <- split_cols[[i]]
               }
@@ Expand Down @@