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

Как я могу просмотреть определение функции S4? Например, я хотел бы видеть определение TSconnect в пакете TSdbi. Команда

showMethods("TSconnect")

показывает, что существует, среди других, функции для drv = "histQuoteDriver", dbname = "символ".

Как я могу видеть определение этой функции? Если бы это была функция S3, то был бы только первый аргумент, определимый (drv), который мог быть осмотрен с печатью (TSconnect.histQuoteDriver).

Править: От r-штамповочного-пресса я узнал желаемый вывод:

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?