SCM

SCM Repository

[inlinedocs] Diff of /pkg/inlinedocs/R/parsers.R
ViewVC logotype

Diff of /pkg/inlinedocs/R/parsers.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 302, Tue Jul 12 12:06:42 2011 UTC revision 303, Tue Jul 19 15:35:23 2011 UTC
# Line 131  Line 131 
131    for(i in seq_along(starts)){    for(i in seq_along(starts)){
132      start <- clines[starts[i]]      start <- clines[starts[i]]
133      end <- clines[ends[i]]      end <- clines[ends[i]]
134      lab <- if(all(grepl("^\\s*#",src[end:(length(src)-1)])))"value"      lab <- if(all(gsub("[ }]","",src[(end+1):length(src)])==""))"value"
135      else if(start==2)"description"      else if(start==2)"description"
136      else if(is.arg()){      else if(is.arg()){
137        ##twutz: strip leading white spaces and brackets and ,        ##twutz: strip leading white spaces and brackets and ,
# Line 503  Line 503 
503               }               }
504               ## Eliminate leading and trailing code               ## Eliminate leading and trailing code
505               ex <- ex[-c(1, length(ex))]               ex <- ex[-c(1, length(ex))]
506                 if(ex[1]=="{")ex <- ex[-1]
507               ## all the prefixes               ## all the prefixes
508               ex <- kill.prefix.whitespace(ex)               ex <- kill.prefix.whitespace(ex)
509               ## Add an empty line before and after example               ## Add an empty line before and after example

Legend:
Removed from v.302  
changed lines
  Added in v.303

root@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