Error if One Nearest Neighbour

[DarioS]

Needs drop = FALSE somewhere to prevent tabular data to vector collapsing.

data("scClassify_example")
cellTypes <- scClassify_example$xin_cellTypes
exprsMat <- scClassify_example$exprsMat_xin_subset     
scClassify(exprsMat, cellTypes, exprsMat, k = 1)
Error in apply(topKNN_cor, 2, function(x) { : 
  dim(X) must have a positive length
  
> letters <- data.frame(alphabet = LETTERS[1:5])
> letters[, 1, drop = FALSE]
  alphabet
1        A
2        B
3        C
4        D
5        E
> letters[, 1] # Collapsed to a vector.
  "A" "B" "C" "D" "E"