new AMR distance function

R/vctrs.R

@@ -84,3 +84,15 @@ vec_ptype2.disk.integer <- function(x, y, ...) {
 vec_cast.integer.disk <- function(x, to, ...) {
   unclass(x)
 }
+
+# S3: mic
+vec_cast.character.mic <- function(x, to, ...) {
+  as.character(x)
+}
+vec_cast.double.mic <- function(x, to, ...) {
+  # this calls as.double.mic()
+  as.double(x)
+}
+vec_math.mic <- function(.fn, x, ...) {
+  .fn(as.double(x), ...)
+}