inst/data-raw/process/PMID24514745_Engin-2014/process.R

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

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

dataset <- read_xlsx("nPOD samples.xlsx", sheet = "Sci Rep")
dataset <- dataset %>%
  extract(`ATF6 RFI (SEM)`, into = c("ATF6.RFI", "ATF6.RFI_SE"),  regex = "([0-9.]+).*\\( ?([0-9.]+)\\)") %>%
  extract(`XBP1 RFI (SEM)`, into = c("XBP1.RFI", "XBP1.RFI_SE"),  regex = "([0-9.]+).*\\( ?([0-9.]+)\\)") %>%
  extract(`peIF2a (SEM)`, into = c("peIF2a.RFI", "peIF2a.RFI_SE"),  regex = "([0-9.]+).*\\( ?([0-9.]+)\\)")

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