# #设置,包括= FALSE ----------------------------------------------------- knitr: opts_chunk美元集(崩溃= TRUE, = " # > "发表评论,警告= FALSE,错误= FALSE, eval = FALSE ) ## ---- 图书馆,消息= FALSE,警告= FALSE,错误= FALSE ----------------------- # 库(BiocStyle) #库(HPAanalyze) #库(dplyr) #库(jsonlite ) ## ----------------------------------------------------------------------------- # 数据< - hpaDownload (downloadList =“组织学”,version = "示例”)# data_subset < - # hpaSubset(数据,# targetGene = c (TP53,表皮生长因子受体,CD44, PTEN, IDH1 ')) ## ----------------------------------------------------------------------------- # data_json < -拉普(data_subset jsonlite: toJSON) # # str (data_json) # # # 3 # # $ normal_tissue列表:json空空的”[{\“运用\”,\“ENSG00000026508 \”,\“基因\”:\“CD44 \”,\“组织\”:\“肾上腺\”,\“cell_type \”,\“腺细胞”| __truncated__ # # $病理:json空空的”[{\“运用\”,\“ENSG00000026508 \”,\“基因\”:\“CD44 \”,\“癌症\”,\“乳腺癌\”,\“\”:1,\“媒介\”:6,\“低\”| __truncated__ # # $ subcellular_location:json空空的”[{\“运用\”,\“ENSG00000026508 \”,\“基因\”:\“CD44 \”,\“可靠性\”:\“强化\”,\“增强\”:\“高尔基体”| __truncated __ ## ----------------------------------------------------------------------------- # (我在seq_along (data_json)){#写(data_json[[我]],#文件= paste0(“hpa_data_”,名字(data_json[我])," . json ")) # } ## ----------------------------------------------------------------------------- # ## 函数(注意,你不需要把. json文件名称)# hpaExportJSON < -功能(数据文件名){# data_json < -拉普(数据,jsonlite:: toJSON) #(我在seq_along (data_json)){#写(data_json[[我]],#文件= paste0(文件名,“_”,名字(data_json[我])," . json ")) # } # } # # ## 出口数据子集# hpaExportJSON (data_subset文件名=“hpa_data”)