Вы можете попробовать использовать команду history:
history(pattern = "a <-")
, чтобы попытаться найти в своей истории строки, в которых вы что-то присвоили переменной a.Я думаю, что это точно соответствует, хотя, поэтому вам, возможно, придется остерегаться пробелов.
В самом деле, если вы наберете history в командной строке, то, похоже, не будет ничего сложнее, чем сохранитьтекущую историю в временном файле, загрузив ее обратно с помощью readLines и затем выполнив поиск с использованием grep.Должно быть достаточно просто изменить эту функцию, чтобы она включала больше функций ... например, эта модификация заставит ее вернуть совпадающие строки, чтобы вы могли сохранить ее в переменной:
myHistory <- function (max.show = 25, reverse = FALSE, pattern, ...)
{
file1 <- tempfile("Rrawhist")
savehistory(file1)
rawhist <- readLines(file1)
unlink(file1)
if (!missing(pattern))
rawhist <- unique(grep(pattern, rawhist, value = TRUE,
...))
nlines <- length(rawhist)
if (nlines) {
inds <- max(1, nlines - max.show):nlines
if (reverse)
inds <- rev(inds)
}
else inds <- integer()
#file2 <- tempfile("hist")
#writeLines(rawhist[inds], file2)
#file.show(file2, title = "R History", delete.file = TRUE)
rawhist[inds]
}