| #=============================================================================# |
| # Copyright (c) 2010, 2018 Stephan Wahlbrink and others. |
| # |
| # This program and the accompanying materials are made available under the |
| # terms of the Eclipse Public License 2.0 which is available at |
| # https://www.eclipse.org/legal/epl-2.0, or the Apache License, Version 2.0 |
| # which is available at https://www.apache.org/licenses/LICENSE-2.0. |
| # |
| # SPDX-License-Identifier: EPL-2.0 OR Apache-2.0 |
| # |
| # Contributors: |
| # Stephan Wahlbrink <sw@wahlbrink.eu> - initial API and implementation |
| #=============================================================================# |
| |
| |
| .console.loadHistory <- function(filename = ".Rhistory") { |
| if (!is.character(filename) || length(filename) != 1) { |
| stop("Illegal argument: filename") |
| } |
| .rj_ui.execCommand("console/loadHistory", list( |
| filename = filename ), TRUE) |
| return (invisible()) |
| } |
| .console.saveHistory <- function(filename = ".Rhistory") { |
| if (!is.character(filename) || length(filename) != 1) { |
| stop("Illegal argument: filename") |
| } |
| .rj_ui.execCommand("console/saveHistory", list( |
| filename = filename ), TRUE) |
| return (invisible()) |
| } |
| .console.addtoHistory <- function(line) { |
| if (missing(line) || !is.character(line) || length(line) != 1) { |
| stop("Illegal argument: line") |
| } |
| .rj_ui.execCommand("console/addtoHistory", list( |
| line = line ), FALSE) |
| return (invisible()) |
| } |
| |