Merge pull request #11 from jimhester/readr-1.3.0

Revert "Fix for readr 1.2.0"
kassambara · Dec 19, 2018 · e729f21 · e729f21
2 parents 9cf0f40 + 6415c98
commit e729f21
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -24,7 +24,7 @@ Imports:
     gridExtra,
     ggplot2,
     magrittr,
-    readr (>= 1.2.0),
+    readr (>= 1.3.0),
     rmarkdown(>= 1.4),
     rvest,
     tibble,

diff --git a/R/qc_read.R b/R/qc_read.R
@@ -100,7 +100,7 @@ qc_read <- function(file, modules = "all", verbose = TRUE){
   res <- lapply(modules,
                 function(module, all.data){
                   index <- grep(module, all.data, ignore.case = TRUE)
-                  skip <- ifelse(module == "Sequence Duplication Levels", 2, 1)
+                  skip <- ifelse(module == "Sequence Duplication Levels", 3, 2)
                   if(length(index) >0) readr::read_tsv(all.data[index[1]], skip = skip)
                   else tibble::tibble()
                 },
@@ -110,7 +110,7 @@ qc_read <- function(file, modules = "all", verbose = TRUE){
   if("Sequence Duplication Levels" %in% modules){
     index <- grep("Sequence Duplication Levels", all.data, ignore.case = TRUE)
     if(length(index) >0)
-      res$total_deduplicated_percentage <- readr::read_tsv(all.data[index[1]], skip = 1, n_max = 0) %>%
+      res$total_deduplicated_percentage <- readr::read_tsv(all.data[index[1]], skip = 2, n_max = 0)%>%
         colnames(.) %>%
         .[2] %>%
         as.numeric() %>%