R/combine_shortcuts.R

In AltfunsMA/cptools: Tools for Consumer Pyramids and other Indian Data Wrangling

#' Turn a selection of space-separated bare strings into a base::combine statement
#'
#'#' Copied from hrbrmstr 
#' https://github.com/hrbrmstr/hrbraddins
#'
#' Turns \cr\cr
#' \code{a b c d e f}\cr\cr
#' into\cr\cr
#' \code{c("a", "b", "c", "d", "e", "f")}
#'
#' If the option `hrbraddins_uspace` is set TRUE, underscores will be
#' converted to spaces before the final combine statement is created.
#'
#' @export
bare_space_combine <- function() {
  
  
  
  ctx <- rstudioapi::getActiveDocumentContext()
  
  if (!is.null(ctx)) {
    
    if (ctx$selection[[1]]$text != "") {
      
      bits <- stri_trim_both(ctx$selection[[1]]$text)
      bits <- stri_split_regex(bits, "[[:space:]]+")
      bits <- unlist(bits, use.names = FALSE)
      
      qu <- options("useFancyQuotes")
      options(useFancyQuotes = FALSE)
      
      uspace <- as.logical(getOption("hrbraddins_uspace", FALSE))
      if (uspace) bits <- stri_replace_all_fixed(bits, "_", " ")
      
      bits <- sapply(bits, dQuote)
      
      options(qu)
      
      bits <- paste0(bits, collapse = ", ")
      bits <- sprintf("c(%s)", bits)
      
      rstudioapi::modifyRange(ctx$selection[[1]]$range, bits)
      
    }
    
  }
  
}



#' Turn a selection of comma-separated bare strings into a base::combine statement
#'
#' Turns \cr\cr
#' \code{a,b c,d,e f}\cr\cr
#' or\cr\cr
#' \code{a, b c, d, e f}\cr\cr
#' into\cr\cr
#' \code{c("a", "b c", "d", "e f")}
#'
#' @export
bare_combine <- function() {
  
  ctx <- rstudioapi::getActiveDocumentContext()
  
  if (!is.null(ctx)) {
    
    if (ctx$selection[[1]]$text != "") {
      
      bits <- utils::read.csv(text = ctx$selection[[1]]$text,
                              stringsAsFactors = FALSE,
                              header = FALSE)
      
      bits <- unlist(bits, use.names = FALSE)
      
      op <- options("useFancyQuotes")
      options(useFancyQuotes = FALSE)
      
      bits <- sapply(bits, trimws)
      bits <- sapply(bits, dQuote)
      
      options(op)
      
      bits <- paste0(bits, collapse = ", ")
      bits <- sprintf("c(%s)", bits)
      
      rstudioapi::modifyRange(ctx$selection[[1]]$range, bits)
      
    }
    
  }
  
}