Style code

duke-malaria-collaboratory · Nov 17, 2023 · 71478a9 · 71478a9
1 parent 3437aaf
commit 71478a9
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 8 deletions.
diff --git a/R/bistro.R b/R/bistro.R
@@ -105,7 +105,7 @@ bistro <-
            seed = 1,
            time_limit = 3,
            return_lrs = FALSE) {
-    check_pkg_version('tidyr', utils::packageVersion('tidyr'), '1.3.0')
+    check_pkg_version("tidyr", utils::packageVersion("tidyr"), "1.3.0")
     check_bistro_inputs(
       bloodmeal_profiles,
       human_profiles,

diff --git a/R/identify_matches.R b/R/identify_matches.R
@@ -9,7 +9,7 @@
 #' @inheritParams calc_one_log10_lr
 #' @keywords internal
 identify_one_match_set <- function(log10_lrs, bloodmeal_id) {
-  check_pkg_version('tidyr', utils::packageVersion('tidyr'), '1.3.0')
+  check_pkg_version("tidyr", utils::packageVersion("tidyr"), "1.3.0")
   bm_id <- bloodmeal_id
   log10_lrs <- log10_lrs |>
     dplyr::filter(bloodmeal_id == bm_id)

diff --git a/R/utils.R b/R/utils.R
@@ -48,9 +48,9 @@ ignore_unused_imports <- function() {
 #' @param version required package version
 #'
 #' @return nothing or error if package version too old
-check_pkg_version <- function(pkg, curr_version, version){
+check_pkg_version <- function(pkg, curr_version, version) {
   vers <- utils::compareVersion(as.character(curr_version), version)
-  if(vers == -1){
+  if (vers == -1) {
     stop("The ", pkg, " package is version ", curr_version, " but must be >= ", version, ". Please update the package to use this function.")
   }
 }
diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -3,8 +3,10 @@ test_that("ignore_unused_imports works", {
 })
 
 test_that("check_pkg_version works", {
-  expect_no_error(check_pkg_version('tidyr', '1.1.2', '1.1.1'))
-  expect_no_error(check_pkg_version('tidyr', '1.1.1', '1.1.1'))
-  expect_error(check_pkg_version('tidyr', '1.1.1', '1.1.2'),
-               "The tidyr package is version 1.1.1 but must be >= 1.1.2. Please update the package to use this function.")
+  expect_no_error(check_pkg_version("tidyr", "1.1.2", "1.1.1"))
+  expect_no_error(check_pkg_version("tidyr", "1.1.1", "1.1.1"))
+  expect_error(
+    check_pkg_version("tidyr", "1.1.1", "1.1.2"),
+    "The tidyr package is version 1.1.1 but must be >= 1.1.2. Please update the package to use this function."
+  )
 })