path split

DESCRIPTION

@@ -28,6 +28,7 @@ Imports:
     knitr,
     twitteR,
     rtweet,
+    fs,
     dplyr,
     tidyr,
     uuid,

NAMESPACE

@@ -6,6 +6,7 @@ export(check_package_urls)
 export(cleanAndGo)
 export(enslave)
 export(join_rows)
+export(pathSplit)
 export(rantAddin)
 export(refresh_renviron)
 export(run_tiny_test)
@@ -31,6 +32,7 @@ importFrom(dplyr,full_join)
 importFrom(dplyr,left_join)
 importFrom(dplyr,mutate)
 importFrom(dplyr,progress_estimated)
+importFrom(fs,path_split)
 importFrom(gistr,gist_create)
 importFrom(httr,GET)
 importFrom(httr,status_code)

R/hrbraddins-package.R

@@ -17,4 +17,5 @@
 #' @importFrom tidyr gather
 #' @importFrom uuid UUIDgenerate
 #' @importFrom urltools scheme
+#' @importFrom fs path_split
 "_PACKAGE"

R/path-split.R

@@ -0,0 +1,27 @@
+#' Path Split
+#'
+#' @export
+pathSplit <- function() {
+
+  ctx <- rstudioapi::getActiveDocumentContext()
+
+  print(str(ctx$selection))
+
+  if (!is.null(ctx)) {
+
+    if (ctx$selection[[1]]$text != "") {
+
+      found <- stri_match_first_regex(ctx$selection[[1]]$text, '"([^"]*)"')
+
+      repl <- paste0(sprintf('"%s"', unlist(fs::path_split(found[2]))), collapse = ", ")
+
+      rstudioapi::modifyRange(
+        ctx$selection[[1]]$range,
+        stri_replace_first_fixed(ctx$selection[[1]]$text, found[1], repl)
+      )
+
+    }
+
+  }
+
+}

inst/rstudio/addins.dcf

@@ -52,3 +52,8 @@ Name: Zap Gremlins
 Description: Find R source files with non-ASCII characters
 Binding: zapGremlins
 Interactive: false
+
+Name: Path Split
+Description: Split a / path to quoted commas
+Binding: pathSplit
+Interactive: false

man/pathSplit.Rd

@@ -0,0 +1,11 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/path-split.R
+\name{pathSplit}
+\alias{pathSplit}
+\title{Path Split}
+\usage{
+pathSplit()
+}
+\description{
+Path Split
+}