reads multi-line and delimited text from the clipboard and inserts as values of a vector assignment, at the cursors position.

clip2vec

clip2Vec <- function(toPosition = TRUE, sep = " "){
  cb <- clipr::read_clip()
  txt <- str_c(
    "vec <- c('", 
    str_replace_all(
      string = str_squish(str_flatten(str_subset(cb, ".+"), sep)), 
      pattern = sep,
      replacement = str_c("\',\n", str_dup(' ', 9), "'")
    ), 
    "')\n\n"
  )
  if(toPosition){
    ctx <- rstudioapi::getActiveDocumentContext()
    row <- ctx$selection[[1]]$range[[c("start")]][1]
    pos <- rstudioapi::as.document_position(c(row-1, 0))
    rstudioapi::insertText(pos, txt, ctx$id)
    rstudioapi::setCursorPosition(pos, ctx$id)
  }
  return(invisible(txt))
}