1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-11 16:22:06 +02:00

update MIC comparisons

This commit is contained in:
2024-04-05 16:44:43 +02:00
parent 4170def0ec
commit 0039cb05d6
13 changed files with 170 additions and 120 deletions

View File

@ -102,6 +102,12 @@ vec_cast.mo.character <- function(x, to, ...) {
}
# S3: disk ----
vec_ptype_full.disk <- function(x, ...) {
"disk"
}
vec_ptype_abbr.disk <- function(x, ...) {
"dsk"
}
vec_ptype2.disk.default <- function (x, y, ..., x_arg = "", y_arg = "") {
x
}
@ -129,10 +135,16 @@ vec_cast.disk.character <- function(x, to, ...) {
# S3: mic ----
vec_ptype2.mic.default <- function (x, y, ..., x_arg = "", y_arg = "") {
x
# this will make sure that currently implemented MIC levels are returned
as.mic(x)
}
vec_ptype2.mic.mic <- function(x, y, ...) {
x
# this will make sure that currently implemented MIC levels are returned
as.mic(x)
}
vec_cast.mic.mic <- function(x, to, ...) {
# this will make sure that currently implemented MIC levels are returned
as.mic(x)
}
vec_cast.character.mic <- function(x, to, ...) {
as.character(x)