Vĩnh viễn thay thế một chức năng

Question

Ai đó có thể giải thích mã sau đây? Tôi đang thay thế các chức năng bố trí trong gói đồ họa với phiên bản của riêng tôi, nhưng nó dường như lại xuất hiện một cách kỳ diệu

env = environment(graphics:::layout) 
unlockBinding("layout" , env = env) 
assign("layout" , function(){} , envir = env) 
lockBinding("layout" , env = env) 

# this still shows the original layout function! how is that possible? 
layout 

# this shows function(){} as expected 
graphics:::layout 

Answer 1

Vấn đề là bạn đang gán phiên bản mới của bạn layout với đồ họa namespace, đó là những gì được trả về bởi environment(graphics:::layout). Bạn thay vì muốn chuyển nhượng thành đồ họa đính kèm gói (ví dụ: môi trường xuất hiện là "package:graphics" trên đường dẫn tìm kiếm của bạn).

Trong ví dụ của bạn, khi tìm kiếm layout, R tìm kiếm xuống danh sách các gói gắn liền trả về bởi search(), và tìm thấy bản gốc layout trong package:graphics, trước khi nó bao giờ được thực hiện chức năng bạn đã gán vào namespace:graphics.

Giải pháp là đơn giản, chỉ cần một sự thay đổi của môi trường giao cho env trong dòng đầu tiên: xây dựng hơn

# Assign into <environment: package:graphics> 
# rather than <environment: namespace:graphics> 
env <- as.environment("package:graphics") 

unlockBinding("layout" , env = env) 
assign("layout" , function(){} , envir = env) 
lockBinding("layout" , env = env) 

# Now it works as expected 
layout 
# function(){} 

Một chút, có thể hữu ích đối với một số:

search() # Shows the path along which symbols typed at the command 
      # will be searched for. The one named "package:graphics" 
      # is where 'layout' will be found. 

# None of these return the environment corresponding to "package graphics" 
environment(layout) 
environment(graphics::layout) 
environment(graphics:::layout) 

# This does 
as.environment("package:graphics")