test aut

idem-lab · Dec 18, 2024 · 439bd58 · 439bd58
1 parent b468a05
commit 439bd58
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -4,7 +4,8 @@ Version: 0.0.0.9000
 Authors@R: c(
     person("Gerry", "Ryan", , "gerard.ryan@telethonkids.org.au", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-0183-7630")),
-    person("Daniel", "Weiss", role = "aut", comment = c(ORCID = "0000-0002-6175-5648"))
+    person("Daniel", "Weiss", role = "aut", comment = c(ORCID = "0000-0002-6175-5648")),
+    person("Nicholas", "Tierney", role = "ctb", comment = c(ORCID = "0000-0000-0000-0000"))
   )
 Description: Calculate travel time over a friction surface from a specified set of locations.
 License: MIT + file LICENSE

diff --git a/R/calculate_travel_time.R b/R/calculate_travel_time.R
@@ -75,7 +75,10 @@ calculate_travel_time <- function(
     if(file.exists(filename) & !overwrite){
 
       warning(sprintf(
-        "%s exists\nUsing existing file\nto re-generate, change overwrite to TRUE %s",
+        "%s exists\n
+        Using existing file\n
+        to re-generate,
+        change overwrite to TRUE %s",
         filename,
         filename
       ))

diff --git a/man/traveltime-package.Rd b/man/traveltime-package.Rd
diff --git a/tests/testthat/test-ext_from_terra.R b/tests/testthat/test-ext_from_terra.R
@@ -6,7 +6,9 @@ test_that("extent is extent", {
 
   x <- ext_from_terra(r)
 
-  expect_is(x, "matrix")
+  #expect_is(x, "matrix")
+  expect_type(x, "double")
+  #expect_s3_class(x, "matrix")
 
   expect_equal(dim(x), c(2, 2))
 })