final styling

R/graph_methods.R

@@ -67,7 +67,6 @@ topological_sort <- function(graph) {
 # get the descendants (all children) of node and their distances,
 # given list mapping parent to children
 get_descendants_distance <- function(parents_to_children, starting_node) {
-
   # implement BFS
   nodes_to_treat <- c(starting_node) # ordered queue
   distances <- list()

R/utils.R

@@ -143,7 +143,6 @@ check_dir_exists <- function(direc, prefix = "") {
 # validate the contents of the yaml file (after conversion into R)
 # return NULL if valid throw error if not
 validate_staged_deps_yaml <- function(content, file_name = "") {
-
   # A simplified schema object to capture the schema for the yaml file
   # each entry of the list contains the top level field, with their name
   # whether they can be NULL and their subfields. If array is TRUE then each element
@@ -185,7 +184,6 @@ validate_staged_deps_yaml <- function(content, file_name = "") {
 
   # next check the contents of the fields is as expected
   lapply(required_schema, function(field) {
-
     # extract the contents for this field
     sub_content <- content[[field$name]]
 

R/zzz.R

@@ -27,7 +27,6 @@ set_storage_dir <- function(storage_dir) {
 }
 
 .onLoad <- function(libname, pkgname) {
-
   storage_dir <- getOption(
     "staged.dependencies._storage_dir",
     path.expand("~/.staged.dependencies")

tests/testthat/test-caching.R

@@ -33,7 +33,6 @@ test_that("clear_cache", {
 
 
 test_that("rec_checkout_internal_deps works (with mocking checkout)", {
-
   # mock checkout_repo by copying the appropriate directory to the repo_dir directory
   mockery::stub(rec_checkout_internal_deps, "checkout_repo", function(repo_dir, repo_url, select_ref_rule, ...) {
     repo_name <- basename(repo_url)
@@ -108,7 +107,6 @@ test_that("rec_checkout_internal_deps works (with mocking checkout)", {
 })
 
 test_that("rec_checkout_internal_deps works for inaccessible repos (with mocking checkout)", {
-
   # mock checkout_repo by copying the appropriate directory to the repo_dir directory
   # but stageddeps.water is not accessible
   mockery::stub(rec_checkout_internal_deps, "checkout_repo", function(repo_dir, repo_url, select_ref_rule, ...) {

tests/testthat/test-dependencies.R

@@ -300,7 +300,6 @@ test_that("build_check_install works", {
 
 
 test_that("get_all_external_deps works", {
-
   # dummy dependency_structure object
 
   deps <- list(
@@ -368,12 +367,13 @@ test_that("get_all_external_deps works", {
   expect_equal(results, c("Q", "W", "U", "X", "V", "Y", "T", "Z", "S"))
 
   # message and unsorted list if not all of Depends, Imports and LinkingTo are `from_external_dependencies`
-  expect_message(results <- get_all_external_dependencies(x,
-    package_list = "B",
-    available_packages = available_packages,
-    from_external_dependencies = c("Depends", "Imports")
-  ),
-  regexp = "Packages will not be ordered as this requires"
+  expect_message(
+    results <- get_all_external_dependencies(x,
+      package_list = "B",
+      available_packages = available_packages,
+      from_external_dependencies = c("Depends", "Imports")
+    ),
+    regexp = "Packages will not be ordered as this requires"
   )
 
   expect_equal(sort(results), c("T", "Z"))

tests/testthat/test-dependencies_helper.R

@@ -137,7 +137,6 @@ test_that("yaml_from_dep_table works", {
 
 
 test_that("parse_remote_project works", {
-
   # repo@host
   expect_equal(
     parse_remote_project("x@y"),
@@ -229,7 +228,6 @@ test_that("run_package_actions works", {
 
 # parse_deps_table ----
 test_that("parse_deps_table works as expected", {
-
   # empty/NA returns character(0)
   expect_length(parse_deps_table(""), 0)
   expect_length(parse_deps_table(NA), 0)

tests/testthat/test-utils.R

@@ -84,8 +84,12 @@ test_that("rep_with_names works", {
 })
 
 test_that("setting verbosity works", {
-  f <- function() return(verbose_sd_get())
-  f2 <- function() return(f())
+  f <- function() {
+    return(verbose_sd_get())
+  }
+  f2 <- function() {
+    return(f())
+  }
   expect_identical(f2(), 1) # Default
 
   # Assignment

tests/testthat/test-zzz.R

@@ -11,7 +11,12 @@ test_that("setup_storage_dir works", {
   # modify storage directory to a new random one
   new_storage_dir <- tempfile("random_storage_dir")
   set_storage_dir(new_storage_dir)
-  on.exit({setup_storage_dir(TESTS_STORAGE_DIR)}, add = TRUE)
+  on.exit(
+    {
+      setup_storage_dir(TESTS_STORAGE_DIR)
+    },
+    add = TRUE
+  )
   setup_storage_dir(new_storage_dir)
 
   expect_equal(get_storage_dir(), new_storage_dir)