在名称很重要的情况下获取对象

Question

我有一个想要为其制作文档的函数列表。我的问题不是关于如何做到这一点，而是提供了一个我很好奇的方便示例。

prompt 将函数和字符串作为参数，并将该函数的帮助文件写入由字符串路径表示的文件。在循环文件时，使用 prompt(f,filename=...) 不起作用，因为 f 是字符类型。我试过get(f)，它把函数拉出来就好了，但没有提供足够的信息来使用（见下文）。那么如何强制一个字符元素返回整个对象而不仅仅是它命名的函数呢？

files <- c("current.market","current.portfolio.bond","fund","genAccount","genHistory.market","history.market","maRketSim.version","summary.vasicek.discrete","vasicek.discrete")
for(f in files) {
  prompt( get(f), filename=paste("c:/myproject/man/",f,".Rd",sep="") )
}
Error in prompt.default(get(f), filename = paste("F:/Documents/R-projects/maRketSim/man/",  : 
  cannot determine a usable name

Answer 1

?prompt 告诉我们

Arguments:

  object: an R object, typically a function for the default method.
          Can be ‘missing’ when ‘name’ is specified.

所以我认为prompt() 已经做了你想要的：

> prompt(name = "print", filename = "print.Rd")
Created file named 'print.Rd'.
Edit the file and move it to the appropriate directory.

生成相关的 Rd 文件：

> writeLines(readLines("~/print.Rd"))
\name{print}
\alias{print}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{
%%  ~~function to do ... ~~
}
\description{
%%  ~~ A concise (1-5 lines) description of what the function does. ~~
}
\usage{
print(x, ...)
}
%- maybe also 'usage' for other objects documented here.
\arguments{
  \item{x}{
%%     ~~Describe \code{x} here~~
....

我应该补充一点，get("foo") 确实返回实际函数，这正是 prompt() 的编码方式，它不能与 @987654329 返回的匿名函数一起使用@。