R/ai_tool_run_r_command.R

In myownrobs: AI Coding Agent for 'RStudio'

#' @importFrom utils capture.output
run_r_command <- function(args) {
  if (!validate_command_args(ai_tool_run_r_command, args)) {
    stop("Invalid arguments for RunRCommand")
  }
  output <- paste(
    capture.output(eval(parse(text = args$command), envir = new.env(parent = .GlobalEnv))),
    collapse = "\n"
  )
  list(output = output)
}

ai_tool_run_r_command <- list(
  name = "RunRCommand",
  parameters = list(
    list(name = "command")
  ),
  display_title = "Run R Command",
  would_like_to = "Run the R command: `{command}`",
  is_currently = "Running the R command: `{command}`",
  has_already = "Ran the R command: `{command}`",
  readonly = FALSE,
  execute = run_r_command
)