P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 13:42:04 +02:00
Code Releases Activity

(v2.1.1.9163) cleanup

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-02-27 14:04:29 +01:00
parent 68efddab3d
commit 07efc292bc
73 changed files with 2187 additions and 1715 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
R/vctrs.R
View File

@ -59,7 +59,7 @@ vec_cast.logical.amr_selector_any_all <- function(x, to, ...) {
}
# S3: ab ----
vec_ptype2.ab.default <- function (x, y, ..., x_arg = "", y_arg = "") {
vec_ptype2.ab.default <- function(x, y, ..., x_arg = "", y_arg = "") {
x
}
vec_ptype2.ab.ab <- function(x, y, ...) {
@ -73,7 +73,7 @@ vec_cast.ab.character <- function(x, to, ...) {
}
# S3: av ----
vec_ptype2.av.default <- function (x, y, ..., x_arg = "", y_arg = "") {
vec_ptype2.av.default <- function(x, y, ..., x_arg = "", y_arg = "") {
x
}
vec_ptype2.av.av <- function(x, y, ...) {
@ -87,7 +87,7 @@ vec_cast.av.character <- function(x, to, ...) {
}
# S3: mo ----
vec_ptype2.mo.default <- function (x, y, ..., x_arg = "", y_arg = "") {
vec_ptype2.mo.default <- function(x, y, ..., x_arg = "", y_arg = "") {
x
}
vec_ptype2.mo.mo <- function(x, y, ...) {
@ -108,7 +108,7 @@ vec_ptype_full.disk <- function(x, ...) {
vec_ptype_abbr.disk <- function(x, ...) {
"dsk"
}
vec_ptype2.disk.default <- function (x, y, ..., x_arg = "", y_arg = "") {
vec_ptype2.disk.default <- function(x, y, ..., x_arg = "", y_arg = "") {
NA_disk_[0]
}
vec_ptype2.disk.disk <- function(x, y, ...) {
@ -137,7 +137,7 @@ vec_cast.disk.character <- function(x, to, ...) {
}
# S3: mic ----
vec_ptype2.mic.default <- function (x, y, ..., x_arg = "", y_arg = "") {
vec_ptype2.mic.default <- function(x, y, ..., x_arg = "", y_arg = "") {
# this will make sure that currently implemented MIC levels are returned
NA_mic_[0]
}
@ -181,7 +181,7 @@ vec_arith.mic <- function(op, x, y, ...) {
}
# S3: sir ----
vec_ptype2.sir.default <- function (x, y, ..., x_arg = "", y_arg = "") {
vec_ptype2.sir.default <- function(x, y, ..., x_arg = "", y_arg = "") {
NA_sir_[0]
}
vec_ptype2.sir.sir <- function(x, y, ...) {