@@ -1,6 +1,6 @@

 Package: crisprDesign

 Title: Comprehensive design of CRISPR gRNAs for nucleases and base editors

-Version: 1.7.0

+Version: 1.7.1

 Authors@R: c(

     person("Jean-Philippe", "Fortin", email = "[email protected]", role = c("aut", "cre")),

     person("Luke", "Hoberecht", email = "[email protected]", role = c("aut"))

@@ -24,13 +24,14 @@ getTssObjectFromTxObject <- function(txObject){

     tss <- tss[!duplicated(mcols(tss)[,cols])]

     tss$promoter <- tss$tx_id

     tss$ID <- paste0(tss$gene_id, "_", tss$promoter, recycle0=TRUE)

+

     # Making sure we only retain one coordinate:

-    if (length(tss) > 0){

-        if (as.character(strand(tss))[[1]]=="+"){

-            end(tss) <- start(tss)

-        } else {

-            start(tss) <- end(tss)

-        }

-    }

+    whPos <- which(strand(tss) == "+")

+    whNeg <- which(strand(tss) == "-")

+    end(tss)[whPos] <- start(tss)[whPos]

+    start(tss)[whNeg] <- end(tss)[whNeg]

+    

     return(tss)

 }

+

+

@@ -3,6 +3,13 @@

 \encoding{UTF-8}

+\section{Version 1.7.1}{

+\itemize{

+    \item Fixed getTssObjectFromTxObject for negative strand.

+}

+}

+

+

 \section{Version 1.5.2}{

 \itemize{

     \item Added function addReinitiationFlag.