R's Medians as a Rabbit Hole of Type Promotions and Function Indirection

median.R

> median(FALSE)
[1] FALSE

> median(c(TRUE, FALSE))
[1] 0.5

> median(c(TRUE, FALSE, TRUE))
[1] TRUE

> f <- factor(c('a', 'b', 'c'), levels = c('a', 'b', 'c'), ordered = TRUE)

> median(f)
Error in median.default(f) : need numeric data

> median(c('a', 'b'))
[1] NA
Warning message:
In mean.default(sort(x, partial = half + 0L:1L)[half + 0L:1L]) :
  argument is not numeric or logical: returning NA

> median(c('a', 'b', 'c'))
[1] "b"