R 패키지의 마스킹 충돌을 올바르게 처리하는 방법은 무엇입니까?

Question

충돌하는 패키지가 내 패키지가 아닌 경우 마스킹을 처리하는 가장 좋은 방법이 올바른 방법으로 충돌하는지 궁금합니다. 다음 예제를 고려하십시오. 나는 시계열 과 함께 일을 많이하며 일반적으로 quarter, year 등과 같은 함수 이름이 꽤 자주 사용됩니다. 따라서 과 data.table을로드하면 R의 기능은 패키지가로드되는 순서에 따라 분명히 다릅니다.

library(tis) 
library(data.table) 
# this masks: between, month, quarter, year 
library(TSfame) # loads TSdbi 
con <- TSconnect("somefame.db") 
# the following fails when data.table was loaded after tis 
ts1 <- TSget("somekeyInYourDB",con) 

및 TSdbi 패키지의 TSget이 더 이상 작동하지 않습니다. 패키지를 포크하고 :: 구문을 구현해야합니까? 예는 구체적 일지 모르지만 질문은 꽤 일반적입니다. 경험 많은 사용자는 무엇을 할 것입니까?

편집 : 아마도 이것을 더 명확하게 명시해야합니다. 문제는 TSget이 명시 적으로 호출되어야하는 함수를 호출하기 때문에 함수를 명시 적으로 호출 할 기회가 없으며 오직 tis 만 있다고 가정합니다.

EDIT2는 리치면의 요청에 따라 호출 스택을 첨가하는 것은 :

Tracing year(actualStart) on entry 
[[1]] 
TSget("kofbauindikator_total", con) 

[[2]] 
    TSget("kofbauindikator_total", con) 

[[3]] 
.local(serIDs, con, ...) 

[[4]] 
    getfame(serIDs[i], dbname[i], save = FALSE, envir = parent.frame(), 
    start = NULL, end = NULL, getDoc = FALSE) 

    [[5]] 
    year(actualStart) 

    [[6]] 
    .doTrace((function() 
    print(sys.calls()))(), "on entry") 

[[7]] 
eval.parent(exprObj) 

[[8]] 
eval(expr, p) 

[[9]] 
eval(expr, envir, enclos) 

[[10]] 
(function() 
    print(sys.calls()))() 

Error in as.POSIXlt.default(x) : 
    do not know how to convert 'x' to class “POSIXlt” 

Answer 1

호출 스택은 모호라는 함수 year가 getfame 의해 호출되는 것을 나타낸다. getAnywhere("getfame")은 이것이 fame 패키지에 있음을 나타냅니다.

packageDescription("fame")은 fame이 가져 오는 것이 아니라 tis인데 문제가있는 곳입니다. 권고 된 바와 같이 here, 패키지 관리자 (Jeff Hallman)에게 수입에 대한 종속성을 변경하도록 요청하는 이메일을 보내는 것이 좋습니다. 즉 패키지 재 작업의 비트를 요구할 수있다, 그래서 당신이 필요 같은

startYear <- as.integer(tis::year(actualStart)) 

(있을 수있는 다른 변화에 라인을 getfame에서

startYear <- as.integer(year(actualStart)) 

을 변경하는 단기 수정을 제안 할 수 있습니다.)

관리자가 수정을 기다리는 동안 assignInNamespace을 사용하여 기능을 무시할 수 있습니다. 즉, 패키지를로드하기 전에 다음을 입력하십시오.

assignInNamespace(
    "getfame", 
    function(sernames, db, connection = NULL, save = FALSE, envir = parent.frame(), 
    start = NULL, end = NULL, getDoc = TRUE) 
    { 
    # your fixed function definition with tis::year 
    }, 
    "fame" 
)