← Back to branch summary

~l3on/ubuntu/precise/rkward/rebuild1

« back to all changes in this revision

Viewing changes to rkward/rbackend/rpackages/rkward/R/public.R

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Friedrichsmeier
  • Date: 2009-10-26 14:30:00 UTC
  • mfrom: (1.1.13 upstream) (6.1.4 sid)
  • Revision ID: james.westby@ubuntu.com-20091026143000-wzwt6cryjnwce23k
Tags: 0.5.2-1
http://bugs.debian.org/551306
* new upstream release
  closes: #551306 (added support for the new dynamic help system)
* Add "DM-Upload-Allowed: yes" in control
* bump standards version to 3.8.3 (no changes needed)

Show diffs side-by-side

added added

removed removed

Lines of Context:
rkward/rbackend/rpackages/rkward/R/public.R
156
156
        }
157
157
}
158
158
 
159
 
"rk.header" <- function (title, parameters=list ()) {
 
159
"rk.header" <- function (title, parameters=list (), level=1) {
160
160
        sink (rk.get.output.html.file(), append=TRUE)
161
161
        on.exit (sink ())
162
162
 
163
 
        cat (paste ("<h1>", title, "</h1>\n", sep=""))
 
163
        cat ("<h", level, ">", title, "</h", level, ">\n", sep="")
 
164
        # legacy handling: parameter=value used to be passed as parameter, value
 
165
        if (!is.null (names (parameters))) {
 
166
                pnames <- names (parameters)
 
167
                p <- list ()
 
168
                for (i in 1:length (parameters)) {
 
169
                        p[i*2-1] <- pnames[i]
 
170
                        p[i*2] <- parameters[i]
 
171
                }
 
172
                parameters <- p
 
173
        }
164
174
        if (length (parameters)) {
165
 
                cat ("<h2>Parameters</h2>\n<ul>")
 
175
                cat ("<h", level + 1, ">Parameters</h", level + 1, ">\n<ul>", sep="")
166
176
                len <- length (parameters)
167
177
                i <- 2
168
178
                while (i <= len) {
169
 
                        cat (paste ("<li>", parameters[i-1], ": ", parameters[i], "</li>\n", sep=""))
 
179
                        cat ("<li>", parameters[[i-1]], ": ", parameters[[i]], "</li>\n", sep="")
170
180
                        i <- i + 2
171
181
                }
172
182
                cat ("</ul>\n")
173
183
        }
174
 
        cat (date ())
 
184
        if (level==1) cat (date ())
175
185
        cat ("<br>\n")
176
186
}
177
187