什麼時候由invisible（）返回的對象停止不可見？

Question

?invisible說

Return a (temporarily) invisible copy of an object.

這括號意味着隱形不會永遠持續下去，但我無法找到任何東西，當它消失瞭解釋。我特別想知道像這樣的（從this old answer of mine）結構：

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

，其中外invisible是可能不必要的（因爲print已經標明其返回值不可見的）。 withVisible()報告說，這個函數的返回值是不可見的，但我不知道這是否由語言保證，或者只是它在當前實現中發生的方式。

Answer 1

通過試驗和錯誤：

# 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