In [1]:

library(tidyverse)
library(stringr)

info.dir="../info"
list.files(info.dir)
old.metadata=file.path(info.dir, "2018_pilot_metadata.tsv")
anon.metadata=file.path(info.dir, "2018_pilot_metadata_anon.tsv")

Warning message:
“package ‘tidyverse’ was built under R version 3.4.2”── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 3.0.0     ✔ purrr   0.2.5
✔ tibble  1.4.2     ✔ dplyr   0.7.6
✔ tidyr   0.8.1     ✔ stringr 1.3.1
✔ readr   1.1.1     ✔ forcats 0.3.0
Warning message:
“package ‘ggplot2’ was built under R version 3.4.4”Warning message:
“package ‘tibble’ was built under R version 3.4.3”Warning message:
“package ‘tidyr’ was built under R version 3.4.4”Warning message:
“package ‘purrr’ was built under R version 3.4.4”Warning message:
“package ‘dplyr’ was built under R version 3.4.4”Warning message:
“package ‘forcats’ was built under R version 3.4.3”── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
  1. '2018_pilot_metadata_anon.tsv'
  2. '2018_pilot_metadata.md'
  3. '2018_pilot_metadata.tsv'
  4. 'neb_E7600_adapters_withrc.fasta'
In [2]:

read_tsv(old.metadata) %>%
    mutate(experiment_person = str_replace_all(experiment_person, c("S" = "expA", "C" = "expB"))) %>%
    mutate(libprep_person = str_replace_all(libprep_person, c("C" = "prepA", "J" = "prepB", "P" ="prepC"))) %>%
    write_tsv(anon.metadata)

Parsed with column specification:
cols(
  Label = col_character(),
  RNA_sample_num = col_integer(),
  Media = col_character(),
  Strain = col_character(),
  Replicate = col_integer(),
  experiment_person = col_character(),
  libprep_person = col_character(),
  enrichment_method = col_character(),
  RIN = col_double(),
  concentration_fold_difference = col_double(),
  `i7 index` = col_character(),
  `i5 index` = col_character(),
  `i5 primer` = col_character(),
  `i7 primer` = col_character(),
  `library#` = col_integer()
)
Warning message:
“package ‘bindrcpp’ was built under R version 3.4.4”