title: How do I show the source code of an S4 function in a package?
body: <p>I used the packages topGO in R to analyze gene enrichment with the following code:  </p>
  
  <pre><code>sampleGOdata &lt;- new("topGOdata", description = "Simple session", ontology = "BP",
                      allGenes = geneList, geneSel = topDiffGenes, nodeSize = 10, 
                      annot = annFUN.db, affyLib = affyLib)
  resultFisher &lt;- runTest(sampleGOdata, algorithm = "classic", statistic = "fisher")
  allRes &lt;- GenTable(sampleGOdata, classicFisher = resultFisher, orderBy = "fisher", 
                     ranksOf = "classicFisher",topNodes = 10)
  </code></pre>
  
  <p>I want to see and change the <code>RunTest</code> function and the <code>GenTable</code> function to change the <code>ResultTable</code>, but I don't know how to show the function. With the <code>getAnywhere("GenTable")</code> I do not get the hard code I want.</p>
  
  <pre><code>getAnywhere("GenTable")
  </code></pre>
  
  <blockquote>
    <p>A single object matching ‘GenTable’ was found</p>
    
    <p>It was found in the following places</p>
  
  <pre><code>package:topGO
  
  namespace:topGO
  </code></pre>
    
    <p>with value</p>
  
  <pre><code>function (object, ...)
  standardGeneric("GenTable")
  &lt;environment: 0x16a30c10&gt;
  attr(,"generic")
  [1] "GenTable"
  attr(,"generic")attr(,"package")
  [1] "topGO"
  attr(,"package")
  [1] "topGO"
  attr(,"group")
  list()
  attr(,"valueClass")
  character(0)
  attr(,"signature")
  [1] "object"
  attr(,"default")
  `NULL`
  attr(,"skeleton")
  function (object, ...)
  stop("invalid call in method dispatch to \"GenTable\" (no default method)",
  domain = NA)(object, ...)
  attr(,"class")
  [1] "standardGeneric"
  attr(,"class")attr(,"package")
  [1] "methods"
  </code></pre>
  </blockquote>
  
  <p>How can I do this?</p>