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 197, Fri Feb 18 14:09:37 2011 UTC revision 198, Fri Feb 18 14:17:08 2011 UTC
# Line 569  Line 569 
569            # as.data.frame.matrix must be split into: m1 = as.data.frame and            # as.data.frame.matrix must be split into: m1 = as.data.frame and
570            # m2 = matrix... here you got m1 = as, and m2 = data.frame.matrix!!!            # m2 = matrix... here you got m1 = as, and m2 = data.frame.matrix!!!
571                    pattern <- "^([^\\.]+)\\.(.*)$"                    pattern <- "^([^\\.]+)\\.(.*)$"
572            doc$s3method=c(m1 <- gsub(pattern,"\\1",on,perl=TRUE),            doc$.s3method=c(m1 <- gsub(pattern,"\\1",on,perl=TRUE),
573                m2 <- gsub(pattern,"\\2",on,perl=TRUE))                m2 <- gsub(pattern,"\\2",on,perl=TRUE))
574            if ( grepl("\\W",m1,perl=TRUE) ){            if ( grepl("\\W",m1,perl=TRUE) ){
575                            m1 <- paste("`",m1,"`",sep="")                            m1 <- paste("`",m1,"`",sep="")
# Line 873  Line 873 
873              if (any(generic %in% utils:::getKnownS3generics()) ||              if (any(generic %in% utils:::getKnownS3generics()) ||
874                  utils:::findGeneric(generic, e) != "") {                  utils:::findGeneric(generic, e) != "") {
875                  object <- paste(parts[(i + 1):l], collapse = ".")                  object <- paste(parts[(i + 1):l], collapse = ".")
876                  docs[[name]]$s3method <- c(generic, object)                  docs[[name]]$.s3method <- c(generic, object)
877                  break                  break
878              }              }
879          }          }
# Line 895  Line 895 
895    ## post-process to collapse all character vectors    ## post-process to collapse all character vectors
896    for(i in seq_along(docs)){    for(i in seq_along(docs)){
897      for(j in seq_along(docs[[i]])){      for(j in seq_along(docs[[i]])){
898        if(names(docs[[i]])[j]!="s3method")        if(names(docs[[i]])[j]!=".s3method")
899        docs[[i]][[j]] <- paste(docs[[i]][[j]],collapse="\n")        docs[[i]][[j]] <- paste(docs[[i]][[j]],collapse="\n")
900      }      }
901    }    }

Legend:
Removed from v.197  
changed lines
  Added in v.198

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