R/rstudio_addin_beautify_table.R

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

#' Beatuify Table Addin
#'
#' Addin for beautifyR. It collects the selected markdown table and hands it off
#' to the `beautifyR` function.
#'
#' @import rstudioapi
#' @keywords internal

beautifytableaddin <- function(){
  con <- rstudioapi::getActiveDocumentContext()

  # Get selection text
  con_text <- con$selection[[1]]$text

  # beautify and return the selection
  rstudioapi::insertText(beautifyR(con_text))
}