inst/data-raw/process/PMID22923498_Yip-2012/process.R

In avucoh/nPOD: What the Package Does (One Line, Title Case)

library(readxl)
library(tidyr)
library(dplyr)

EIF4G3 <- read_xlsx("Fathman nPOD data-PMID 22923498.xlsx", range = cell_rows(9:29), col_names = c("ID", "EIF4G3.PLN"))
EIF4G1 <- read_xlsx("Fathman nPOD data-PMID 22923498.xlsx", range = cell_rows(34:61), col_names = c("ID", "EIF4G1.PLN"))
CASP3 <- read_xlsx("Fathman nPOD data-PMID 22923498.xlsx", range = cell_rows(66:92), col_names = c("ID", "CASP3.PLN"))

dataset <- EIF4G3 %>% 
  full_join(EIF4G1) %>% 
  full_join(CASP3) %>% 
  mutate(ID = as.integer(ID)) %>%
  drop_na(ID)

write.table(dataset, "PMID22923498_Yip-2012.tsv", sep = "\t", quote = F, row.names = F)