diff --git a/R/phenomena.R b/R/phenomena.R
index be45b93..b7240c2 100644
--- a/R/phenomena.R
+++ b/R/phenomena.R
@@ -33,5 +33,5 @@ osem_phenomena.sensebox = function (boxes) {
     table() %>%                    # get count for each phenomenon
     as.list()
 
-  p[order(unlist(p), decreasing = T)]
+  p[order(unlist(p), decreasing = TRUE)]
 }