आर। Last.call सुविधा - समान .Last.value

Question

इसी प्रकार .Last.value पर अंतिम कॉल तक पहुंचने का कोई तरीका है? संभावित .Last.call के अनुमानित परिणामों के नीचे।

sum(1, 2) 
# [1] 3 
str(.Last.call) 
# language sum(1, 2) 

bests यह फाइल सिस्टम से फ़ाइल को पार्स करने की आवश्यकता नहीं होगी अगर।

Answer 1

last.call पैकेज Cran पर नहीं रह गया है, लेकिन आप अभी भी कोड प्राप्त कर सकते हैं:

# ----------------------------------------------------------------------- 
# FUNCTION: last.call 
# Retrieves a CALL from the history and returns an unevaluated 
# call. 
# 
# There are two uses for such abilities. 
# - To be able to recall the previous commands, like pressing the up key 
#  on the terminal. 
# - The ability to get the line that called the function. 
# 
# TODO: 
# - does not handle commands seperated by ';' 
# 
# ----------------------------------------------------------------------- 

last.call <- 
function(n=1) { 

f1 <- tempfile() 
try(savehistory(f1), silent=TRUE) 
try(rawhist <- readLines(f1), silent=TRUE) 
unlink(f1) 

if(exists('rawhist')) { 

    # LOOK BACK max(n)+ LINES UNTIL YOU HAVE n COMMANDS 
    cmds <- expression() 
    n.lines <- max(abs(n)) 
    while(length(cmds) < max(abs(n))) { 
     lines <- tail(rawhist, n=n.lines) 
     try(cmds <- parse(text=lines), silent=TRUE) 
     n.lines <- n.lines + 1 
     if(n.lines > length(rawhist)) break 
    } 
    ret <- rev(cmds)[n] 
    if(length(ret) == 1) return(ret[[1]]) else return(ret) 

} 

return(NULL) 

} 

अब, यह उपयोग करने के लिए:

sum(1, 2) 
# [1] 3 
last.call(2) 
# sum(1, 2)