diff --git a/R/server.R b/R/server.R index e637895..5d906a1 100644 --- a/R/server.R +++ b/R/server.R @@ -11,7 +11,11 @@ server <- function(input, output, session) { total_weight] # Normalize scores to be between 0.0 and 1.0. - data[, score := (score - min(score)) / (max(score) - min(score))] + data[, score := (score - min(score, na.rm = TRUE)) / + (max(score, na.rm = TRUE) - min(score, na.rm = TRUE))] + + # These are genes that are not expressed at all. + data[is.na(score), score := 0.0] data.table::setorder(data, -score) data[, rank := .I] diff --git a/data/genes.rda b/data/genes.rda index 30e58e2..b5a4e16 100644 Binary files a/data/genes.rda and b/data/genes.rda differ