आर यूनरी ऑपरेटर अधिभार: जोखिम?

Question

कुछ सरल आदेशों के लिए कोष्ठक का उपयोग करने से बचने के लिए मेरी निरंतर खोज में, मैंने एक नई ग्राफिक्स विंडो बनाने के लिए निम्न ऑपरेटर लिखा है। मेरा सवाल है: क्या मुझे अपने चर "newdev" ​​पर "नहीं" फ़ंक्शन निष्पादित करने में स्पष्ट अक्षमता के अलावा, आर में कुछ भी "तोड़ने" का खतरा है?

# function to overload "!" for one purpose only 
#this is adapted from the sos package code for "???", credited to Duncan Murdoch. 
# Example of how to create a specialized unary operator that doesn't require 
# parentheses for its argument. So far as I can tell, 
#the only way to do this is to overload an existing function or 
# operator which doesn't require parentheses. "?" and "!" meet this requirement. 
`!` <- function (e1, e2) { 
call <- match.call() 
# match.call breaks out each callable function in argument list (which was "??foo" for the sos package "???", 
# which allows topicExpr1 to become a list variable w/ callable function "!" (or "?" in sos) 
original <- function() { 
    call[[1]]<-quote(base::`!`) 
    return(eval(call, parent.frame(2))) 
} 

    # this does preclude my ever having an actual 
    # variable called "newdev" (or at least trying to create the actual NOT of it) 
if(call[[2]] =='newdev') { 
    windows(4.5,4.5,restoreConsole=T) 
}else{ 
    return(original()) # do what "!" is supposed to do 
} 
} 

Answer 1

मैं "!" = function(a){stop("'NOT' is used")} मार डाला और replications समारोह है, जो का उपयोग करता है निष्पादित! ऑपरेटर, और यह ठीक काम किया। तो ऐसा लगता है कि "!" ओवरराइड करना सुरक्षित है।

फिर भी आप शायद इस प्रकार कक्षाएं, जो आप कर सकते हैं का उपयोग करना चाहते:

# Create your object and set the class 
A = 42 
class(A) = c("my_class") 

# override ! for my_class 
"!.my_class" = function(v){ 
    cat("Do wathever you want here. Argument =",v,"\n") 
} 

# Test ! on A 
!A 

Answer 2

साथ

makeActiveBinding 

आप ls() जैसे लोकसभा द्वारा डब्ल्यू की जगह ले सकता/एकल ऑपरेटरों की जरूरत ओ