setRepository(annotate)
setRepository()所属R语言包:annotate
Functions to add arbitrary repositories
功能添加任意的库
译者:生物统计家园网 机器人LoveR
描述----------Description----------
These functions allow end users to add arbitrary repositories for use with the htmlpage function.
这些功能允许最终用户添加任意库与htmlpage功能使用。
用法----------Usage----------
setRepository(repository, FUN, ..., verbose=TRUE)
getRepositories()
clearRepository(repository, verbose=TRUE)
参数----------Arguments----------
参数:repository
A character name for the repository.
一个仓库字符的名称。
参数:FUN
A function to build hyperlinks for the repository. See details for more information.
函数,以建立资料库中的超链接。详情请参阅更多信息。
参数:...
Allows one to pass arbitrary code to underlying functions.
允许一个人通过基本功能任意代码。
参数:verbose
Output warning messages?
输出警告消息?
Details
详情----------Details----------
These functions allow end users to add, view, and remove repositories for use with the htmlpage function. getRepositories will output a vector of names for available repositories. clearRepository can be used to remove a repository if so desired. setRepository can be used to add a repository. See the examples section for the format of the FUN argument.
这些功能允许最终用户添加,查看,删除使用htmlpage函数库。 getRepositories将输出一个可用库名的向量。 clearRepository可以用来删除一个库,如果需要的话。 setRepository可以用来添加一个仓库。看到的乐趣参数的格式的例子。
Once a new repository has been set, the htmlpage function can be called using the name of the new repository as a value in the repository argument (e.g., htmlpage(<other args>, repository = list("newrepositoryname"))
一旦一个新的仓库已定,htmlpage函数可以被称为使用的新资料库的名称作为一个库中的参数值(例如,htmlpage(库=列表<其他args>,(“newrepositoryname” ;))
作者(S)----------Author(s)----------
Martin Morgan <mtmorgan@fhcrc.org>
举例----------Examples----------
## A simple fake URI[#一个简单的假的URI]
repofun <- function(ids, ...)
paste("http://www.afakeuri.com/", ids, sep = "")
setRepository("simple", repofun)
## More complicated, we want to make sure that[#更复杂的,我们要确保]
## NAs get converted to empty cells[#定居地转化为空单元格]
repofun <- function(ids, ...){
bIDs <- which(is.na(ids))
out <- paste("http://www.afakeuri.com/", ids, sep = "")
out[bIDs] <- "&nbsp;"
out
}
setRepository("complex", repofun)
## More complicated URI where we need to pass more information[#更复杂的URI的地方,我们需要传递更多的信息]
## An example is Ensembl, which requires a species as part of the URI[#一个例子是Ensembl的,这就要求作为URI的一部分,一个物种]
## Since htmlpage() has an '...' argument, we can pass arbitrary[#,由于htmlpage()有一个“...”参数,我们可以通过任意]
## arguments to this function that will be passed down to our[#此功能将传递到我们的论点]
## repfun. Here we assume the argument species="Homo_sapiens" has been[#repfun。在这里,我们假设参数物种=“Homo_sapiens的”一直]
## included in the call to htmlpage().[#包括在通话到htmlpage()。]
repofun <- function(ids, ...){
if(!is.null(list(...)$species))
species <- list(...)$species
else
stop("To make links for Ensembl, you need to pass a 'species' argument.",
call. = FALSE)
out <- paste("http://www.ensembl.org/", species, "/Search/Summary?species=",
species, ";idx=;q=", ids, sep = "")
out
}
setRepository("species_arg", repofun)
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|