Changed parameter name in jaccard_heatmap

Author: emouts

R/QCpanel.R

@@ -93,7 +93,7 @@ QCpanelServer <- function(id, expression.matrix, metadata, anno){
         top.annotation.ids = match(input[['jaccard.annotations']], colnames(meta)),
         n.abundant = input[['jaccard.n.abundant']], 
         show.values = input[["jaccard.show.values"]],
-        show.row.columns.names = (nrow(meta) <= 20)
+        show.row.column.names = (nrow(meta) <= 20)
       )
       myplot 
     })

R/QCplotFuns.R

@@ -24,7 +24,7 @@ jaccard_index <- function(a, b){
 #' of the metadata should become heatmap annotations
 #' @param n.abundant number of most abundant genes to use for the JSI calculation
 #' @param show.values whether to show the JSI values within the heatmap squares
-#' @param show.row.columns.names whether to show the row and column names below 
+#' @param show.row.column.names whether to show the row and column names below 
 #' the heatmap; default is TRUE
 #' @return The JSI heatmap as detailed in the ComplexHeatmap package.
 #' @export
@@ -45,7 +45,7 @@ jaccard_heatmap <- function(
   top.annotation.ids = NULL, 
   n.abundant = NULL, 
   show.values = TRUE,
-  show.row.columns.names = TRUE
+  show.row.column.names = TRUE
 ){
   n.abundant <- min(n.abundant, nrow(expression.matrix))
   n.samples <- ncol(expression.matrix)
@@ -57,7 +57,7 @@ jaccard_heatmap <- function(
       heatmat[i, j] <- heatmat[j, i] <- jaccard_index(i.gene.indices, j.gene.indices)
     }
   }
-  if(show.row.columns.names){
+  if(show.row.column.names){
     rownames(heatmat) <- colnames(heatmat) <- colnames(expression.matrix)
   }