Осмотрите методы S4

Как я могу определить определение функции 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-сессии?

ОТВЕТЫ

Ответ 1

S4 классы относительно сложны, поэтому я бы предложил прочитать это введение.

В этом случае TSdbi является примером общего класса S4, который расширяется всеми конкретными пакетами баз данных (например, TSMySQL, TSPostgreSQL и т.д.). Больше нет метода TSconnect() в TSdbi, чем то, что вы видите: drv = "character", dbname = "character" являются параметрами функции, а не функциями сами по себе. Если вы устанавливаете некоторые из конкретных пакетов баз данных и используете showMethods ( "TSconnect" ), вы увидите все конкретные экземпляры этой функции. Если вы затем вызовете TSconnect() с определенным драйвером базы данных, он пойдет и будет использовать соответствующую функцию.

Вот как работают такие функции, как сводная работа. Например, попробуйте позвонить showMethods(summary). В зависимости от того, какие пакеты загружены, вы должны увидеть несколько возвращенных методов.

Вы можете легко увидеть исходный код для R-Forge: http://r-forge.r-project.org/plugins/scmsvn/viewcvs.php/pkg/TSdbi/R/TSdbi.R?rev=70&root=tsdbi&view=markup. Это степень этой функции:

setGeneric("TSconnect", def= function(drv, dbname, ...) standardGeneric("TSconnect"))

setMethod("TSconnect",   signature(drv="character", dbname="character"),
   definition=function(drv, dbname, ...)
             TSconnect(dbDriver(drv), dbname=dbname, ...))