##----style，echo=FALSE，results='asi'------------------------------------仿生风格：：markdown（）##----库，消息=FALSE---------------------------------------------------库（ExperimentHub）##----实验中心------------------------------------------------------------eh=实验中心（）##----显示---------------------------------------------------------------------嗯##----数据提供者-------------------------------------------------------------头（唯一的（eh$dataprovider））##----物种------------------------------------------------------------------头部（独特（eh$species））##----rdataclass---------------------------------------------------------------头部（唯一（eh$rdataclass））##----阿尔卑斯山-------------------------------------------------------------------apData<-query（eh，“alpineData”）apData（应用程序数据）##----演出2--------------------------------------------------------------------apData$preparerclassdf<-mcols（apData）##----长度-------------------------------------------------------------------长度（eh）##----子集-------------------------------------------------------------------mm<-query（呃，“小肌肉”）毫米##----BioHubsShiny，eval=FALSE------------------------------------------------#生物轮毂闪亮：：生物轮毂闪耀（）##----echo=FALSE，fig.cap=“BiocHubsShiny查询物种术语‘肌肉’”，out.width=“100%”----knitr:：include_graphics（“mm10_BiocHubsShiny.png”）##----dm2----------------------------------------------------------------------apData（应用程序数据）apData[“EH166”]##----立方分米----------------------------------------------------------------------apData[[“EH166”]]##----演出-2-------------------------------------------------------------------嗯##----快照-----------------------------------------------------------------快照日期（eh）##----可能的日期------------------------------------------------------------pd<-可能日期（eh）钯##----设置日期，评估=假------------------------------------------------------#快照日期（ah）<-pd[1]##----评估=错误---------------------------------------------------------------# ##确保您对缓存/文件具有权限##自担风险使用# # #moveFiles<-function（包）{#olddir＜-path.expand（rapadirs:：user_cache_dir（appname=软件包））#newdir<-tools:：R_user_dir（包，它=“缓存”）#dir.create（路径=newdir，递归=TRUE）#文件<-list.files（olddir，full.names=TRUE）#移动器<-vapply（文件，#FUN=功能（fl）{#文件名=基本名称（fl）#newname=文件路径（newdir，文件名）#file.rename（fl，新名称）# },#有趣。VALUE=逻辑（1）#if（所有（移动器））取消链接（olddir，recursive=TRUE）# }# # #package=“实验中心”#moveFiles（包）# ##----评估=错误---------------------------------------------------------------#path.expand（rapdirs:：user_cache_dir（appname=“ExperimentHub”））##----评估=错误---------------------------------------------------------------#库（ExperimentHub）#oldcache=path.expand（rapdirs:：user_cache_dir（appname=“ExperimentHub”））#setExperimentHubOption（“CACHE”，旧缓存）#eh=实验中心（localHub=真）# ###删除旧位置和所有资源#removeCache（eh，ask=FALSE）# ###创建新的默认缓存位置#newcache=tools:：R_user_dir（“ExperimentHub”，其中=“cache”）#setExperimentHubOption（“CACHE”，newcache）#eh=实验中心（）##----会话信息--------------------------------------------------------------sessionInfo（）