Wann verschwindet das von unsichtbare() zurückgegebene Objekt nicht mehr?

Question

?invisible sagt

Return a (temporarily) invisible copy of an object.

Das klammert bedeutet, dass die Unsichtbarkeit nicht ewig dauern wird, aber ich kann nichts finden, dass, wenn es geht weg erklärt. Ich frage mich besonders über Konstrukte wie diese (von this old answer of mine):

printf <- function(...) invisible(print(sprintf(...))) 

, wo der äußere invisiblewahrscheinlich unnötig ist (weil print bereits markiert den Rückgabewert unsichtbar). withVisible() meldet, dass der Rückgabewert dieser Funktion in beiden Fällen nicht sichtbar ist, aber ich weiß nicht, ob dies durch die Sprache oder die Art und Weise garantiert wird, wie sie in der aktuellen Implementierung funktioniert.

Answer 1

durch Versuch und Irrtum:

# invisible 
withVisible(invisible())$visible 
[1] FALSE 

### passing the invisible value through a function seems to 
# preserve the invisibility 
withVisible(identity(invisible()))$visible 
[1] FALSE 

# the <- operator just returns its arguments, so it confirms the above 
withVisible(i <- invisible())$visible 
[1] FALSE 
# but the assigned value is no longer invisible 
withVisible(i)$visible 
[1] TRUE 

### passing an invisible value as argument keeps the invisibility 
f <- function(x) withVisible(x)$visible 
f(1) 
[1] TRUE 
f(invisible(1)) 
[1] FALSE 

### every other operation seems to cancel the invisibility. 
# e.g. assigning an invisible value cancels the it 
i <- invisible() 
withVisible(i)$visible 
[1] TRUE 

withVisible(invisible(1) + 1)$visible 
[1] TRUE