[R-wiki] R Wiki: What do you want me to do now about tips?

Sat Jun 10 06:08:07 CEST 2006

Nevermind.  Found a trial and error solution for testing numeric(0)

I'm getting closer to an "alltips.html" output I can enjoy.

http://pj.freefaculty.org/R/alltips.html

I really think we should consider showing only this main document, or
perhaps even just this one

http://wiki.r-project.org/rwiki/doku.php?id=tips:tips

to visitors on the web site.  Only people who want to edit things
should ever have to look at the Wiki part.

Why?  Now there is a tangle of menus.  I got lost several times
pointing on links and tables of contents and couldn't find my way
around.  You know if I'm lost, visitors will be lost too.

My alltips version  has the "fonts too small" problem that affects the
Wiki because this just steals the style sheet, and you are fixing
that, right?  There are some unexpected "tables of contents" that
appear throughout. I can't say why, but will find out.  And there is
some crap at the top and bottom of this document that I'm going to
eliminate, I'm not sure how, but you better bet it will be tedious and
stupid.  Because, this code makes me feel tedious and stupid.

Anyway, the internal links work.  And here's how I did this:

# head of the page
wikihead <-
 c("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\"",
   " \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">",
   "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\"",
   " lang=\"en\" dir=\"ltr\">", "<head>",
   "  <meta http-equiv=\"Content-Type\" content=\"text/html;
charset=utf-8\" />",
   "  <title>All R wiki tips</title>", "",
   "  <link rel=\"stylesheet\" media=\"screen\" type=\"text/css\" ",
   "  href=\"http://wiki.r-project.org/rwiki/lib/exe/css.php\" />",
   "  <link rel=\"stylesheet\" media=\"print\" type=\"text/css\" ",
   "   href=\"http://wiki.r-project.org/rwiki/lib/exe/css.php?print=1\" />",
   "",
   "</head>",
   "<body>")

rawimport <- readLines("http://wiki.r-project.org/rwiki/doku.php?id=tips:tips&do=export_raw")

htmlout <- "alltips.html"

cat( wikihead, file=htmlout, sep="\n")

whatlinkstoatip <-  grep('\\* \\[\\[', rawimport)

majorHeadings <- grep('====', rawimport)

whatlinkstoatip <- sort(c(whatlinkstoatip, majorHeadings))

cleanedlines <- gsub( " \\* \\[\\[","", gsub("]]", "" ,
rawimport[whatlinkstoatip]))

# tiplist  <- strsplit( gsub('    \\* \\[\\[', '',
rawimport[whatlinkstoatip]),'\\|')

#tipnames <- unlist(lapply(tiplist, function(x){
#  gsub('\\]\\].*','',x[2])
#}))

## tiplinks <- unlist(lapply(tiplist,'[', 1))

# write a table of contents in the
# beginning of the file

is.numeric0 <- function(x){length(x)==0 & is.numeric(x)}

cat('<h1>Table of Contents</h1>\n', file=htmlout, append=TRUE)
##for(i in seq(along=tipnames)){
#  cat('<a href="#', tiplinks[i],
#      '">', tipnames[i],'</a>, \n',
#      sep="", file=htmlout, append=T)
#}
#cat('...\n', file=htmlout, append=TRUE)

for (item in cleanedlines) {
  itsaheading <- is.numeric0 (grep("====", item ))
  if (isTRUE(itsaheading)) {
    print (item)
    tipitem <- unlist( strsplit ( item, "\\|" ) )
    print(tipitem)

    tipName <- gsub("\ ","",tipitem[1])
    tipTitle <- tipitem[2]
    dlthis <- paste("http://wiki.r-project.org/rwiki/doku.php?id=",
tipName, "&do=export_xhtml",sep="")
    print(dlthis)
    xhtml <- readLines(dlthis)
    content <- ( grep('<body', xhtml)+1) :   ( grep('</body', xhtml)+1)
    cat('<a href="#', tipName,'">', tipTitle,'</a><br>\n', sep="",
file=htmlout, append=TRUE)
   }else{
    reviseditem <- sub("====","<H2>",item)
    reviseditem <- sub("====","</H2>",reviseditem)
    cat(reviseditem, file=htmlout, append=TRUE, sep="\n")
  }
}

for (item in cleanedlines) {
  itsaheading <- is.numeric0 (grep("====", item ))
  if (isTRUE(itsaheading)) {
    print (item)
    tipitem <- unlist( strsplit ( item, "\\|" ) )
    print(tipitem)

    tipName <- gsub("\ ","",tipitem[1])
    tipTitle <- tipitem[2]
    dlthis <- paste("http://wiki.r-project.org/rwiki/doku.php?id=",
tipName, "&do=export_xhtml",sep="")
    print(dlthis)
    xhtml <- readLines(dlthis)
    content <- ( grep('<body', xhtml)+1) :   ( grep('</body', xhtml)+1)
    cat('<a name="', tipName,'" id="', tipName,'>tipTitle</a>\n',
sep="", file=htmlout, append=TRUE)
    cat(xhtml[content], file=htmlout, append=TRUE, sep="\n")
  }else{
    reviseditem <- sub("====","<H2>",item)
    reviseditem <- sub("====","</H2>",reviseditem)
    cat(reviseditem, file=htmlout, append=TRUE, sep="\n")
  }
}

-- 
Paul E. Johnson
Professor, Political Science
1541 Lilac Lane, Room 504
University of Kansas