Как я могу определить определение функции S4? Например, я хотел бы увидеть определение TSconnect в пакете TSdbi. Команда
showMethods("TSconnect")
показывает, что существует, в частности, функция для drv = "histQuoteDriver", dbname = "character".
Как я могу определить определение этой функции? Если бы это была функция S3, был бы только первый определяемый аргумент (drv), который можно было бы проверить с помощью печати (TSconnect.histQuoteDriver).
Изменить. Из r-forge я обнаружил желаемый результат:
setMethod("TSconnect", signature(drv="histQuoteDriver", dbname="character"),
definition= function(drv, dbname, user="", password="", host="", ...){
# user / password / host for future consideration
if (is.null(dbname)) stop("dbname must be specified")
if (dbname == "yahoo") {
con <- try(url("http://quote.yahoo.com"), silent = TRUE)
if(inherits(con, "try-error"))
stop("Could not establish TShistQuoteConnection to ", dbname)
close(con)
}
else if (dbname == "oanda") {
con <- try(url("http://www.oanda.com"), silent = TRUE)
if(inherits(con, "try-error"))
stop("Could not establish TShistQuoteConnection to ", dbname)
close(con)
}
else
warning(dbname, "not recognized. Connection assumed working, but not tested.")
new("TShistQuoteConnection", drv="histQuote", dbname=dbname, hasVintages=FALSE, hasPanels=FALSE,
user = user, password = password, host = host )
} )
Есть ли способ получить это определение из R-сессии?
