R/originize_selection.R

In origin: Explicitly Qualifying Namespaces by Automatically Adding 'pkg::' to Functions

#' Wrapper function to be used as an RStudio addin
#'
#' @param context information of marked editor section in RStudio
#' @template pkgs
#' @template overwrite
#' @template ask_before_applying_changes
#' @template check_conflicts
#' @template check_base_conflicts
#' @template add_base_packages
#' @template excluded_functions
#' @template verbose
#' @template use_markers
#' @template check_local_conflicts
#' @template path_to_local_functions
#'
#' @return No return value, called for side effects
originize_selection <-
  function(
    context = rstudioapi::getSourceEditorContext(),
    pkgs = getOption("origin.pkgs", .packages()),
    overwrite = getOption("origin.overwrite"),
    ask_before_applying_changes =
      getOption("origin.ask_before_applying_changes"),
    check_conflicts = getOption("origin.check_conflicts"),
    check_base_conflicts = getOption("origin.check_base_conflicts"),
    add_base_packages = getOption("origin.add_base_packages"),
    excluded_functions = getOption("origin.excluded_functions"),
    verbose = getOption("origin.verbose"),
    use_markers = getOption("origin.use_markers_for_logging"),
    path_to_local_functions = getOption("origin.path_to_local_functions"),
    check_local_conflicts = getOption("origin.check_local_conflicts")
  ) {
    
    if (is.null(context)) {
      message("Nothing selected")
      return(invisible(NULL))
    }
    
    file <- context$path
    
    # if function is run in a unsaved script, use root path a dummy path
    # needed for sourceMarkers
    if (file == "") {
      # TODO: .
      file <- "."
    }
    
    init_text <- context$selection[[1]]$text
    
    # read file
    script <- strsplit(init_text, split = "\\n")[[1]]
    if (grepl(pattern = "\\.rmd$|\\.qmd$",
              x = file) &&
        any(startsWith(script, "```"))) {
      stop("when originizing rmd/qmd files by selection, ",
           "do not select parts of non-R chunks")
    }
    
    if (verbose) {
      selected_context <- context$selection[[1]]$range
      selected_lines <- selected_context$start[1]:selected_context$end[1]
    }
    
    originize_wrap(scripts = list(script),
                   files = file,
                   type = "insertText",
                   pkgs = pkgs,
                   overwrite = overwrite,
                   ask_before_applying_changes = ask_before_applying_changes,
                   check_conflicts = check_conflicts,
                   check_base_conflicts = check_base_conflicts,
                   add_base_packages = add_base_packages,
                   excluded_functions = excluded_functions,
                   verbose = verbose,
                   use_markers = use_markers,
                   path_to_local_functions = path_to_local_functions,
                   check_local_conflicts = check_local_conflicts,
                   selected_lines = selected_lines,
                   context = context)
    
    return(invisible(NULL))
  }