SCM

SCM Repository

[rmetrics] Annotation of /pkg/fImport/R/methods-show.R
ViewVC logotype

Annotation of /pkg/fImport/R/methods-show.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3300 - (view) (download)

1 : wuertz 2911
2 :     # This library is free software; you can redistribute it and/or
3 :     # modify it under the terms of the GNU Library General Public
4 :     # License as published by the Free Software Foundation; either
5 :     # version 2 of the License, or (at your option) any later version.
6 :     #
7 :     # This library is distributed in the hope that it will be useful,
8 :     # but WITHOUT ANY WARRANTY; without even the implied warranty of
9 :     # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 :     # GNU Library General Public License for more details.
11 :     #
12 :     # You should have received a copy of the GNU Library General
13 :     # Public License along with this library; if not, write to the
14 :     # Free Foundation, Inc., 59 Temple Place, Suite 330, Boston,
15 :     # MA 02111-1307 USA
16 :    
17 :     # Copyrights (C)
18 :     # for this R-port:
19 :     # 1999 - 2008, Diethelm Wuertz, Rmetrics Foundation, GPL
20 :     # Diethelm Wuertz <wuertz@itp.phys.ethz.ch>
21 :     # www.rmetrics.org
22 :    
23 :    
24 :     ################################################################################
25 :     # FUNCTION: DESCRIPTION:
26 :     # show.fWEBDATA S4 Show Method for WEB downloaded data
27 :     ################################################################################
28 :    
29 :    
30 : wuertz 2923 setMethod("show", signature(object = "fWEBDATA"), definition =
31 : wuertz 2911 function(object)
32 :     {
33 :     # A function implemented by Diethelm Wuertz
34 :    
35 :     # FUNCTION:
36 :    
37 :     # Unlike print the argument for show is 'object'.
38 :     x = object
39 :    
40 :     # Title:
41 : wuertz 3296 cat("\nTitle:\n ", object@title, "\n", sep = "")
42 : wuertz 2911
43 :     # Parameter:
44 : wuertz 3300 cat("\nParameter:\n ")
45 : wuertz 2911 param = cbind(object@param)
46 :     colnames(param) = "Value:"
47 :     print(param, quotes = FALSE)
48 :    
49 :     # Description:
50 : wuertz 3296 cat("\nDescription:\n ", object@description, sep = "")
51 : wuertz 2911 cat("\n\n")
52 :    
53 :     # Return Value:
54 :     invisible()
55 : wuertz 2923 })
56 : wuertz 2911
57 :    
58 :     ################################################################################
59 :    

R-Forge@R-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge