From d764e7832ea650674a0044c460612cf18cbade65 Mon Sep 17 00:00:00 2001
From: Indrajeet Patil <patilindrajeet.science@gmail.com>
Date: Sun, 19 May 2024 17:09:34 +0200
Subject: [PATCH] Remove unused internal utility: `calls_sys()`

---
 R/utils.R        | 16 ----------------
 man/calls_sys.Rd | 18 ------------------
 2 files changed, 34 deletions(-)
 delete mode 100644 man/calls_sys.Rd

diff --git a/R/utils.R b/R/utils.R
index 6602efd75..972e22286 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -93,22 +93,6 @@ is_windows <- function() {
   identical(.Platform$OS.type, "windows")
 }
 
-#' Invoke a system command
-#'
-#' Wraps a system command into [shell()] or [system()], depending on the
-#' operating system.
-#' @param sys_call The call to be executed.
-#' @param ... Arguments passed to [shell()] or [system()].
-#' @keywords internal
-calls_sys <- function(sys_call, ...) {
-  if (is_windows()) {
-    error <- shell(sys_call, ...)
-  } else {
-    error <- system(sys_call, ...)
-  }
-  error
-}
-
 #' Get the value of an option
 #'
 #' Basically a `getOptions()` that fails fast by default.
diff --git a/man/calls_sys.Rd b/man/calls_sys.Rd
deleted file mode 100644
index 14899a3dc..000000000
--- a/man/calls_sys.Rd
+++ /dev/null
@@ -1,18 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utils.R
-\name{calls_sys}
-\alias{calls_sys}
-\title{Invoke a system command}
-\usage{
-calls_sys(sys_call, ...)
-}
-\arguments{
-\item{sys_call}{The call to be executed.}
-
-\item{...}{Arguments passed to \code{\link[=shell]{shell()}} or \code{\link[=system]{system()}}.}
-}
-\description{
-Wraps a system command into \code{\link[=shell]{shell()}} or \code{\link[=system]{system()}}, depending on the
-operating system.
-}
-\keyword{internal}