R/is_blank_line_needed_above.R

In GegznaV/addin.tools: Helper Functions to Create RStudio Add-ins

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#' Check if a blank line is needed above.
#'
#' Check if a blank line should be added above the selection.
#' @return Logical value.
#'
#' @inheritParams rs_get_index
#'
#' @export
is_blank_line_needed_above <- function(context = rs_get_context()) {
  row <- rs_get_index_first_selected_row(context = context)

  # Contents of row above the selection:
  txt <- context$contents[row - 1]
  # Remove spaces and check if string is empty:
  cond <- is_empty_or_spaces(txt)
  # If not empty (result: FALSE) and not the first row (result: logical(0)),
  # then an empty row needs to be added:
  isTRUE(!cond)
}

is_empty_str <- function(str) {
  nchar(str) == 0
}

is_empty_or_spaces <- function(str) {
  is_empty_str(gsub("[[:space:]]", "", str))
}