P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-10 05:41:59 +02:00
Code Releases Activity

update MIC implementation

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-04-07 20:22:59 +02:00
parent 0039cb05d6
commit 94e9a4d99b
10 changed files with 94 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/vctrs.R
View File

@ -106,7 +106,7 @@ vec_ptype_full.disk <- function(x, ...) {
"disk"
}
vec_ptype_abbr.disk <- function(x, ...) {
"dsk"
"disk"
}
vec_ptype2.disk.default <- function (x, y, ..., x_arg = "", y_arg = "") {
x
@ -155,6 +155,9 @@ vec_cast.double.mic <- function(x, to, ...) {
vec_cast.integer.mic <- function(x, to, ...) {
as.integer(x)
}
vec_cast.factor.mic <- function(x, to, ...) {
factor(as.character(x))
}
vec_cast.mic.double <- function(x, to, ...) {
as.mic(x)
}
@ -164,6 +167,9 @@ vec_cast.mic.character <- function(x, to, ...) {
vec_cast.mic.integer <- function(x, to, ...) {
as.mic(x)
}
vec_cast.mic.factor <- function(x, to, ...) {
as.mic(x)
}
vec_math.mic <- function(.fn, x, ...) {
.fn(as.double(x), ...)
}