Remove this.path.

DESCRIPTION

@@ -28,8 +28,7 @@ Suggests:
     glue, 
     box
 Enhances: base
-Imports: this.path (< 2.0),
-         utils
+Imports: utils
 Config/testthat/edition: 3
 RoxygenNote: 7.2.1
 VignetteBuilder: knitr

NAMESPACE

@@ -6,7 +6,6 @@ export("%eq%")
 export("%p%")
 export("labels<-")
 export(Sys.path)
-export(Sys.path.experimental)
 export(copy.attributes)
 export(dir.find)
 export(file.find)

R/file_functions.R

@@ -3,25 +3,25 @@
 # File Operations ---------------------------------------------------------
 
 
-#' @title Returns the path of the current program
-#' @description A function that gets the full path of the currently running
-#' program.  If the function fails to retrieve the path for some reason,
-#' it will return a NULL.  The function takes no parameters.
-#' @returns The full path of the currently running program, or a NULL.
-#' @family fileops
-#' @examples
-#' # Get current path
-#' pth <- Sys.path()
-#' pth
-#' # [1] "C:/programs/myprogram.R"
-#' @export
-Sys.path <- function() {
-
-  ppth <- Sys.path.internal()
-
-  return(ppth)
-
-}
+# @title Returns the path of the current program
+# @description A function that gets the full path of the currently running
+# program.  If the function fails to retrieve the path for some reason,
+# it will return a NULL.  The function takes no parameters.
+# @returns The full path of the currently running program, or a NULL.
+# @family fileops
+# @examples
+# # Get current path
+# pth <- Sys.path()
+# pth
+# # [1] "C:/programs/myprogram.R"
+# export
+# Sys.path_back <- function() {
+#
+#   ppth <- Sys.path.internal()
+#
+#   return(ppth)
+#
+# }
 
 
 # File Find ---------------------------------------------------------------

R/syspath.R

@@ -2,42 +2,42 @@
 
 
 
-Sys.path.internal <- function() {
-
-  ppth <- NULL
-
-  tryCatch({
-
-    # if (utils::packageVersion("this.path")  >= "2.0.0")
-    #   ppth <- this.path::sys.path()
-    # else {
-      ppth <- this.path::this.path()
-
-    # }
-
-  }, error = function(e) { ppth <- NULL})
-
-
-  return(ppth)
-
-}
-
-
-
-
-#' @title EXPERIMENTAL: Returns the path of the current program
+# Sys.path.internal <- function() {
+#
+#   ppth <- NULL
+#
+#   tryCatch({
+#
+#     # if (utils::packageVersion("this.path")  >= "2.0.0")
+#     #   ppth <- this.path::sys.path()
+#     # else {
+#       ppth <- this.path::this.path()
+#
+#     # }
+#
+#   }, error = function(e) { ppth <- NULL})
+#
+#
+#   return(ppth)
+#
+# }
+
+
+
+
+#' @title Returns the path of the current program
 #' @description A function that gets the full path of the currently running
 #' program.  If the function fails to retrieve the path for some reason,
 #' it will return a NULL.  The function takes no parameters.
 #' @returns The full path of the currently running program, or a NULL.
 #' @family fileops
 #' @examples
 #' # Get current path
-#' pth <- Sys.path.experimental()
+#' pth <- Sys.path()
 #' pth
 #' # [1] "C:/programs/myprogram.R"
 #' @export
-Sys.path.experimental <- function() {
+Sys.path <- function() {
 
   ret <- NULL
 

_pkgdown.yml

@@ -15,7 +15,6 @@ reference:
   desc: Functions that help with file management.
   contents:
   - Sys.path
-  - Sys.path.experimental
   - file.find
   - dir.find
 

tests/testthat/test-file_functions.R

@@ -259,14 +259,14 @@ test_that("file8: Sys.path() works as expect.", {
 })
 
 
-test_that("file9: Sys.path.experimental() works as expect.", {
-
-
-  res <- Sys.path.experimental()
-
-  expect_equal(is.null(res), FALSE)
-
-})
+# test_that("file9: Sys.path.experimental() works as expect.", {
+#
+#
+#   res <- Sys.path.experimental()
+#
+#   expect_equal(is.null(res), FALSE)
+#
+# })