R/rstudio_addin_beautify_comment.R

In mwip/beautifyR: RStudio Addin to format Markdown tables and R comments

#' Beatuify Comment Addin
#'
#' Addin for beautifyR. It collects the selected R code and hands it off
#' to the `beautifyComment` function.
#'
#' @import rstudioapi
#' @keywords internal

beautifycommentaddin <- function(){
  con <- rstudioapi::getActiveDocumentContext()
  
  # Get selection text
  con_text <- con$selection[[1]]$text
  
  # beautify and return the selection
  rstudioapi::insertText(beautifyComment(con_text))
}