demo.R

getParseData() failure for installed packages

Parse data not found for f

nrow(getParseData(covr.dummy::f))

## NULL

…only for g

nrow(getParseData(covr.dummy::g))

## [1] 47

f_srcref <- getSrcref(covr.dummy::f)
f_srcfile <- attr(f_srcref, "srcfile")

f_srcfile doesn’t have parseData

ls(f_srcfile)

## [1] "filename" "original"

f_srcfile$original

## /home/muelleki/R/x86_64-pc-linux-gnu-library/3.2/covr.dummy/R/covr.dummy

original doesn’t have parseData, but probably should

ls(f_srcfile$original)

## [1] "Enc"           "filename"      "fixedNewlines" "isFile"       
## [5] "lines"         "timestamp"     "wd"

g_srcref <- getSrcref(covr.dummy::g)
g_srcfile <- attr(g_srcref, "srcfile")

g_srcfile has parseData, which probably belongs in g_srcfile$original

ls(g_srcfile)

## [1] "filename"  "original"  "parseData"

g_srcfile$original

## /home/muelleki/R/x86_64-pc-linux-gnu-library/3.2/covr.dummy/R/covr.dummy

ls(g_srcfile$original)

## [1] "Enc"           "filename"      "fixedNewlines" "isFile"       
## [5] "lines"         "timestamp"     "wd"

both original are identical

stopifnot(identical(f_srcfile$original, g_srcfile$original))