Merge pull request #692 from MichaelChirico/patch-1

lorenzwalthert · web-flow · commit 4fdbfd18d3b0 · 2020-11-09T08:08:41.000+01:00
- simplify set_arg_paths (#682).
diff --git a/R/set-assert-args.R b/R/set-assert-args.R
@@ -115,7 +115,5 @@ assert_tokens <- function(tokens) {
 #' @examples
 #' styler:::set_arg_paths(c("./file.R", "file.R", "../another-file.R"))
 set_arg_paths <- function(path) {
-  starts_with_. <- substr(path, 1, 2) == "./"
-  path[starts_with_.] <- substring(path[starts_with_.], 3)
-  path
+  gsub("^[.]/", "", path)
 }

Original file line number	Diff line number	Diff line change
`@@ -115,7 +115,5 @@ assert_tokens <- function(tokens) {`
`115`	`115`	`#' @examples`
`116`	`116`	`#' styler:::set_arg_paths(c("./file.R", "file.R", "../another-file.R"))`
`117`	`117`	`set_arg_paths <- function(path) {`
`118`		`- starts_with_. <- substr(path, 1, 2) == "./"`
`119`		`- path[starts_with_.] <- substring(path[starts_with_.], 3)`
`120`		`- path`
	`118`	`+ gsub("^[.]/", "", path)`
`121`	`119`	`}`