Как сделать R игнорировать повторяющиеся записи в истории?

Question

R, похоже, помнит все команды в истории, включая дубликаты, что очень раздражает. Как можно изменить это поведение?

Например, если я запускать эти команды

y = 3 
    x = rnorm(15) 
    x = rnorm(15) 

Я должен нажать вверх три раза, чтобы добраться до первой команды.

Answer 1

Предполагая, что дубликат команды является вызов идентичен предыдущему, независимо от того, вы могли бы просто сделать что-то вроде этого:

tmp <- tempfile() 
savehistory(tmp) 
hist <- readLines(tmp) 
hist[! duplicated(hist)] 

или это, чтобы сохранить последний экземпляр команды

hist[! duplicated(hist, fromLast=TRUE)] 

Answer 2

Если вы фильтруете дубликаты вне зависимости от порядка, проще всего добавить pattern аргумент history(), например history(pattern=""). Из-за особенностей history реализации, даже имея pattern="" будет иметь эффект фильтрации дубликатов:

> history 
... 
    if (!missing(pattern)) 
     rawhist <- unique(grep(pattern, rawhist, value = TRUE, 
      ...)) 
... 

И если вы заботитесь о порядке, а затем просто модифицируют функцию запас history, например:

history_new = function(max.show = 25, reverse = FALSE, filter = FALSE, pattern, ...) 
{ 
    file1 <- tempfile("Rrawhist") 
    savehistory(file1) 
    rawhist <- readLines(file1) 
    unlink(file1) 

    # the modification to stock 
    if (filter) 
     rawhist <- rawhist[cumsum(rle(rawhist)$lengths)] 
    # end of modification 

    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) 
}