color_tiles fails for missing values only

[aalucaci]

data <- data.frame(x = NA_real_)

reactable::reactable(
  data = data,
  columns = list(
    x = reactable::colDef(
      cell = reactablefmtr::color_tiles(
        data = data,
        colors = c("red", "green")
      )
    )
  )
)

#Error in if (is.numeric(value) & mean((data[[name]] - mean(data[[name]],  : 
 #missing value where TRUE/FALSE needed