### Name: tangleToR
### Title: An Sweave driver to retrieve code chunks
### Aliases: tangleToR tangleToRSetup tangleToRRuncode tangleToRFinish
### Keywords: utilities

### ** Examples

    library(tools)
    testfile <- file.path(.path.package("tools"),
                           "Sweave", "Sweave-test-1.Rnw")
    if (file.exists(testfile))
        z <- Stangle(testfile,driver=tangleToR)