\HeaderA{pm.titles}{Obtain the titles of the PubMed abstracts.}{pm.titles}
\keyword{manip}{pm.titles}
\begin{Description}\relax
This function returns the titles from a list of PubMed abstracts.
\end{Description}
\begin{Usage}
\begin{verbatim}
pm.titles(absts)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{absts}] The list of PubMed abstracts. 
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
It simply uses \code{sapply}
\end{Details}
\begin{Value}
A character vector of length equal to the number of abstracts. Each
element is the title of the corresponding abstract.
\end{Value}
\begin{Author}\relax
Robert Gentleman
\end{Author}
\begin{SeeAlso}\relax
\code{\LinkA{pm.abstGrep}{pm.abstGrep}}
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
 hoxa9 <- "37809_at"
   ## A bit of a hack to not have a package dependency on hgu95av2
   ## but need to fiddle w/ the warn level to not fail the example anyways.
   curWarn <- getOption("warn")
   options(warn=0)
   on.exit(options(warn=curWarn), add=TRUE)

 if( require(hgu95av2) ) {
    absts <- pm.getabst(hoxa9, "hgu95av2")
    pm.titles(absts)
 }
\end{ExampleCode}
\end{Examples}