パッケージを調べて、各関数のヘルプ ファイルに記載されている作成者を特定したいと考えています。
R のヘルプ ファイルから要素を抽出する関数を探したところ、見つかりました。私が見つけることができる最も近いものは、Noam Ross からのこの投稿です。
そのような機能は存在しますか？(そうでない場合は、Rd ファイルを解析し、関心のある特定の要素を見つけるために、Noam のコードをハックすると思います)。
ありがとう、タル。
考えられるコード例:
get_field_from_r_help(topic="lm", field = "Description") #
# output:
'lm' は、線形モデルを近似するために使用されます。回帰、分散の単一層分析、および共分散の分析を実行するために使用できます (ただし、'aov' はこれらのより便利なインターフェイスを提供する場合があります)。
Rd ファイルの解析に関する Duncan Murdoch によるこのドキュメントは、この SO 投稿と同様に役立ちます。
これらから、おそらく次のようなことを試すことができます。
getauthors <- function(package){
db <- tools::Rd_db(package)
authors <- lapply(db,function(x) {
tags <- tools:::RdTags(x)
if("\\author" %in% tags){
# return a crazy list of results
#out <- x[which(tmp=="\\author")]
# return something a little cleaner
out <- paste(unlist(x[which(tags=="\\author")]),collapse="")
}
else
out <- NULL
invisible(out)
})
gsub("\n","",unlist(authors)) # further cleanup
}
次に、これを 1 つまたは 2 つのパッケージで実行できます。
> getauthors("knitr")
d:/RCompile/CRANpkg/local/3.0/knitr/man/eclipse_theme.Rd
" Ramnath Vaidyanathan"
d:/RCompile/CRANpkg/local/3.0/knitr/man/image_uri.Rd
" Wush Wu and Yihui Xie"
d:/RCompile/CRANpkg/local/3.0/knitr/man/imgur_upload.Rd
" Yihui Xie, adapted from the imguR package by Aaron Statham"
d:/RCompile/CRANpkg/local/3.0/knitr/man/knit2pdf.Rd
" Ramnath Vaidyanathan, Alex Zvoleff and Yihui Xie"
d:/RCompile/CRANpkg/local/3.0/knitr/man/knit2wp.Rd
" William K. Morris and Yihui Xie"
d:/RCompile/CRANpkg/local/3.0/knitr/man/knit_theme.Rd
" Ramnath Vaidyanathan and Yihui Xie"
d:/RCompile/CRANpkg/local/3.0/knitr/man/knitr-package.Rd
" Yihui Xie <http://yihui.name>"
d:/RCompile/CRANpkg/local/3.0/knitr/man/read_chunk.Rd
" Yihui Xie; the idea of the second approach came from Peter Ruckdeschel (author of the SweaveListingUtils package)"
d:/RCompile/CRANpkg/local/3.0/knitr/man/read_rforge.Rd
" Yihui Xie and Peter Ruckdeschel"
d:/RCompile/CRANpkg/local/3.0/knitr/man/rst2pdf.Rd
" Alex Zvoleff and Yihui Xie"
d:/RCompile/CRANpkg/local/3.0/knitr/man/spin.Rd
" Yihui Xie, with the original idea from Richard FitzJohn (who named it as sowsear() which meant to make a silk purse out of a sow's ear)"
そして多分ツール：
> getauthors("tools")
D:/murdoch/recent/R64-3.0/src/library/tools/man/bibstyle.Rd
" Duncan Murdoch"
D:/murdoch/recent/R64-3.0/src/library/tools/man/checkPoFiles.Rd
" Duncan Murdoch"
D:/murdoch/recent/R64-3.0/src/library/tools/man/checkRd.Rd
" Duncan Murdoch, Brian Ripley"
D:/murdoch/recent/R64-3.0/src/library/tools/man/getDepList.Rd
" Jeff Gentry "
D:/murdoch/recent/R64-3.0/src/library/tools/man/HTMLlinks.Rd
"Duncan Murdoch, Brian Ripley"
D:/murdoch/recent/R64-3.0/src/library/tools/man/installFoundDepends.Rd
"Jeff Gentry"
D:/murdoch/recent/R64-3.0/src/library/tools/man/makeLazyLoading.Rd
"Luke Tierney and Brian Ripley"
D:/murdoch/recent/R64-3.0/src/library/tools/man/parse_Rd.Rd
" Duncan Murdoch "
D:/murdoch/recent/R64-3.0/src/library/tools/man/parseLatex.Rd
"Duncan Murdoch"
D:/murdoch/recent/R64-3.0/src/library/tools/man/Rd2HTML.Rd
" Duncan Murdoch, Brian Ripley"
D:/murdoch/recent/R64-3.0/src/library/tools/man/Rd2txt_options.Rd
"Duncan Murdoch"
D:/murdoch/recent/R64-3.0/src/library/tools/man/RdTextFilter.Rd
" Duncan Murdoch"
D:/murdoch/recent/R64-3.0/src/library/tools/man/SweaveTeXFilter.Rd
"Duncan Murdoch"
D:/murdoch/recent/R64-3.0/src/library/tools/man/texi2dvi.Rd
" Originally Achim Zeileis but largely rewritten by R-core."
D:/murdoch/recent/R64-3.0/src/library/tools/man/tools-package.Rd
" Kurt Hornik and Friedrich Leisch Maintainer: R Core Team R-core@r-project.org"
D:/murdoch/recent/R64-3.0/src/library/tools/man/vignetteDepends.Rd
" Jeff Gentry "
D:/murdoch/recent/R64-3.0/src/library/tools/man/vignetteEngine.Rd
"Duncan Murdoch and Henrik Bengtsson."
D:/murdoch/recent/R64-3.0/src/library/tools/man/writePACKAGES.Rd
" Uwe Ligges and R-core."
一部の関数には作成者フィールドがないためunlist、 の最後で呼び出したときに削除getauthorsされますが、コードを少し変更しNULLてそれらの値を返すことができます。
また、パッケージ作成者はこのフィールドを非常に異なる方法で使用しているように見えるため、さらに解析することは少し難しくなります。devtoolsには author フィールドが 1 つしかありません。carにはたくさんあり、それぞれにメールアドレスが含まれています。などなど。ただし、これにより、さらに作業できるはずの利用可能な情報が得られます。
注: この回答の以前のバージョンでは、Rd ファイルのフル パスがある場合は解決策が提供されましたが、インストール済みのパッケージに対してこれを実行しようとした場合は機能しませんでした。Tyler のアドバイスに従って、私はより完全な解決策を考え出しました。
これは、他の人が行ったいくつかの提案を使用した私のアプローチです。
package <- "qdap"
funs <- unclass(lsf.str(envir = asNamespace(package)))
out <- sapply(funs, function(x) {
x <- try(capture.output(tools:::Rd2txt(utils:::.getHelpFile(as.character(help(x, help_type="text"))))))
Auth_lines <- grep("_\bA_\bu_\bt_\bh_\bo_\br(_\bs):", x, fixed = TRUE)
if (identical(Auth_lines, integer(0))) {
return(NA)
}
gsub("^\\s+|\\s+$", "", x[Auth_lines +2])
})
## To look at just the ones with author fields:
out[!sapply(out, is.na)]
## > out[!sapply(out, is.na)]
## beg2char
## "Josh O'Brien, Justin Haynes and Tyler Rinker"
## bracketX
## "Martin Morgan and Tyler Rinker <tyler.rinker@gmail.com>."
## bracketXtract
## "Martin Morgan and Tyler Rinker <tyler.rinker@gmail.com>."
## char2end
## "Josh O'Brien, Justin Haynes and Tyler Rinker"
## cm_df.transcript
## "DWin, Gavin Simpson and Tyler Rinker <tyler.rinker@gmail.com>."
## gantt
## "DigEmAll (<URL: stackoverflow.com>) and Tyler Rinker"
## gantt_wrap
## "Andrie de Vries and Tyler Rinker <tyler.rinker@gmail.com>."
## genX
## "Martin Morgan and Tyler Rinker <tyler.rinker@gmail.com>."
## genXtract
## "Martin Morgan and Tyler Rinker <tyler.rinker@gmail.com>."
## hash
## "Bryan Goodrich and Tyler Rinker <tyler.rinker@gmail.com>."
## name2sex
## "Dason Kurkiewicz and Tyler Rinker <tyler.rinker@gmail.com>."
## read.transcript
## "Bryan Goodrich and Tyler Rinker <tyler.rinker@gmail.com>."
## sentCombine
## "Dason Kurkiewicz and Tyler Rinker <tyler.rinker@gmail.com>."
## sentSplit
## "Dason Kurkiewicz and Tyler Rinker <tyler.rinker@gmail.com>."
## TOT
## "Dason Kurkiewicz and Tyler Rinker <tyler.rinker@gmail.com>."
## v.outer
## "Vincent Zoonekynd and Tyler Rinker <tyler.rinker@gmail.com>."