Merge pull request #44 from Nowosad/master

HajkD · web-flow · commit 9e171b253f76 · 2025-12-14T11:20:16.000Z
specifies philentropy::getDistMethods()
diff --git a/R/distance.R b/R/distance.R
@@ -264,7 +264,7 @@ distance <- function(
     stop(
       "Method '",
       method,
-      "' is not implemented in this function. Please consult getDistMethods().",
+      "' is not implemented in this function. Please consult philentropy::getDistMethods().",
       call. = FALSE
     )
   }
diff --git a/tests/testthat/test-dist-euclidean.R b/tests/testthat/test-dist-euclidean.R
@@ -26,7 +26,7 @@ test_that(
                 distMat <- rbind(rep(0.2, 5), rep(0.1, 10))
                 expect_error(
                         distance(distMat, method = "euclidien"),
-                        "Method 'euclidien' is not implemented in this function. Please consult getDistMethods()."
+                        "Method 'euclidien' is not implemented in this function. Please consult philentropy::getDistMethods()."
                 )
         }
 )

Original file line number	Diff line number	Diff line change
`@@ -264,7 +264,7 @@ distance <- function(`
`264`	`264`	`stop(`
`265`	`265`	`"Method '",`
`266`	`266`	`method,`
`267`		`- "' is not implemented in this function. Please consult getDistMethods().",`
	`267`	`+ "' is not implemented in this function. Please consult philentropy::getDistMethods().",`
`268`	`268`	`call. = FALSE`
`269`	`269`	`)`
`270`	`270`	`}`
Original file line number	Diff line number	Diff line change
`@@ -26,7 +26,7 @@ test_that(`
`26`	`26`	`distMat <- rbind(rep(0.2, 5), rep(0.1, 10))`
`27`	`27`	`expect_error(`
`28`	`28`	`distance(distMat, method = "euclidien"),`
`29`		`- "Method 'euclidien' is not implemented in this function. Please consult getDistMethods()."`
	`29`	`+ "Method 'euclidien' is not implemented in this function. Please consult philentropy::getDistMethods()."`
`30`	`30`	`)`
`31`	`31`	`}`
`32`	`32`	`)`