odfweave setup and counting logicals

Two short items in this blogpost. Since it was not obvious how to run odfWeave() in my particular setup, the call I am using. Then there were several people crosstabulating logical vectors, so I wanted to play along, 80 times faster than table().

odfWeave

My particular setup consists of R, 7-zip, libreoffice. Somehow they don’t 100% play along when using odfWeave. I had that problem this spring and decided to put my solution in a post at some point. In terms of versions therefore, I had that with my previous versions, and tested that it still runs with my new setup (R 3.1.1, Libreoffice  4.2.5.2). The only loose end, is that odfWeave complains I am re-using a directory, and that I need to empty said directory manually.
# the standard example call that works for me
demoFile <- system.file(“examples”, “simple.odt”, package = “odfWeave”)
outputFile <- gsub(“simple.odt”, “output.odt”, demoFile)
odfWeave(demoFile, outputFile,
    workDir=’C:\\Users\\Kees\\Documents\\tmp’,
    odfWeaveControl(zipCmd = 
            c(“C:\\Progra~1\\7-Zip\\7z a -tzip $$file$$ . -r”, 
                “C:\\Progra~1\\7-Zip\\7z x -tzip $$file$$ -yr”) ))
# removing files
file.remove(dir(‘C:\\Users\\Kees\\Documents\\tmp’,
        recursive=TRUE,
        full.names=TRUE))

# using a different directory
odfWeave(‘C:\\Users\\Kees\\Documents\\test\\testcases.odt’,
    ‘C:\\Users\\Kees\\Documents\\test\\testout.odt’,
    workDir=’C:\\Users\\Kees\\Documents\\tmp’,
    odfWeaveControl(zipCmd = 
            c(“C:\\Progra~1\\7-Zip\\7z a -tzip $$file$$ . -r”, 
                “C:\\Progra~1\\7-Zip\\7z x -tzip $$file$$ -yr”) ))

Cross table of logical vectors

This was started in Sometimes Table is not the Answer – a Faster 2×2 Table and carried on with Sometimes I feel (some) need for speed. So, I wanted to add my own attempts. The aim is to make a cross table of two logical vectors with a minimum of time. Which becomes important if these vectors are long. Solutions from previous posts.