Update R/distances.R

code compression Co-authored-by: Hugo Flávio <[email protected]>
hugomflavio · Dec 6, 2024 · 1c63547 · 1c63547
1 parent e3fdca4
commit 1c63547
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/distances.R b/R/distances.R
@@ -618,9 +618,10 @@ distancesMatrix <- function(t.layer, starters = NULL, targets = NULL,
                                  " distances matrix as 'distances.csv'?(y/n)"),
                           choices = c("y", "n"))
     if (decision == "y") {
-       dir_decision <- userInput(paste0("Would you like 'distances.csv' saved in",
-                                    " the current working directory?(y/n)"),
-                          choices = c("y", "n"))
+       dir_decision <- userInput(paste0("Would you like 'distances.csv'",
+                                        " saved in the current working",
+                                        " directory?(y/n)"),
+                                 choices = c("y", "n"))
        if (dir_decision == "n") {
 
          target_dir <- ""