.packageName <- "GO" GO <- function() cat(GOQC) .no_S3_generics = TRUE ns <- asNamespace("GO") GOLOCUSIDfunc <- function() { GOLOCUSID <- function(){ .Deprecated("GOENTREZID") } GOLOCUSID() GOENTREZID } makeActiveBinding("GOLOCUSID", GOLOCUSIDfunc, ns) GOLOCUSID2GOfunc <- function() { GOLOCUSID2GO <- function(){ .Deprecated("GOENTREZID2GO") } GOLOCUSID2GO() GOENTREZID2GO } makeActiveBinding("GOLOCUSID2GO", GOLOCUSID2GOfunc, ns) GOALLLOCUSIDfunc <- function() { GOALLLOCUSID <- function(){ .Deprecated("GOALLENTREZID") } GOALLLOCUSID() GOALLENTREZID } makeActiveBinding("GOALLLOCUSID", GOALLLOCUSIDfunc, ns)