# # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # .onLoad < -函数(库名,pkgname) {# fl < -系统。文件(“extdata”、“元数据。csv”,包= pkgname) #标题< -阅读。csv (fl, stringsAsFactors = FALSE)标题#美元createHubAccessors (pkgname、标题)#}# # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #库(ExperimentHub) #呃< - ExperimentHub () # myfile < -查询(呃,“PACKAGENAME”) # myfile[[1]] # #负载列表中的第一个资源# myfile [[“EH123”]] # #负载通过呃id # # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # resourceA(元数据= FALSE) # #数据加载# resourceA(元数据= TRUE) # #元数据显示