data-raw/internal_dataset_save.R

In BPijuanSala/anSeq: Tools to analyse RNA-seq data

########################################################################################
## Title: external_data_save.R
## Author: Blanca Pijuan-Sala
## Description: Save external data.
## Date: 30 September 2017
## **anSeq package**
########################################################################################

###SAVE INTERNAL DATASET.
#http://r-pkgs.had.co.nz/data.html

wd <- "/Users/blancap/Documents/repos_bitbucket/r-packages/00.PACKAGES/anSeq_development/anSeq/"

geneTable <- read.csv(paste0(wd,"inst/extdata/mm10_mart_export.txt"))


setwd(paste0(wd,"R/"))
library(devtools)

#####

tableRef="/Users/blancap/Documents/PhD_CAMBRIDGE/PhD/Experiments/bin_data/surfaceomeproteins_wlabethz_File.xlsx"
species="Mouse"
tab = "Table B"

tableRef <- xlsx::read.xlsx(tableRef,sheetName = tab)

MouseSurface <- tableRef$CSPA.category
names(MouseSurface) <- tableRef$ENTREZ.gene.symbol

#============

tableRef="/Users/blancap/Documents/PhD_CAMBRIDGE/PhD/Experiments/bin_data/surfaceomeproteins_wlabethz_File.xlsx"
species="Human"
tab = "Table A"

tableRef <- xlsx::read.xlsx(tableRef,sheetName = tab)

HumanSurface <- tableRef$CSPA.category
names(HumanSurface) <- tableRef$ENTREZ.gene.symbol




setwd(paste0(wd,"R/"))
library(devtools)

devtools::use_data(MouseSurface,HumanSurface,geneTable, internal = TRUE,
                   overwrite = TRUE)