(v1.7.1.9022) rely on vctrs for ab selectors

R/vctrs.R

@@ -0,0 +1,74 @@
+# ==================================================================== #
+# TITLE                                                                #
+# Antimicrobial Resistance (AMR) Data Analysis for R                   #
+#                                                                      #
+# SOURCE                                                               #
+# https://github.com/msberends/AMR                                     #
+#                                                                      #
+# LICENCE                                                              #
+# (c) 2018-2021 Berends MS, Luz CF et al.                              #
+# Developed at the University of Groningen, the Netherlands, in        #
+# collaboration with non-profit organisations Certe Medical            #
+# Diagnostics & Advice, and University Medical Center Groningen.       # 
+#                                                                      #
+# This R package is free software; you can freely use and distribute   #
+# it for both personal and commercial purposes under the terms of the  #
+# GNU General Public License version 2.0 (GNU GPL-2), as published by  #
+# the Free Software Foundation.                                        #
+# We created this package for both routine data analysis and academic  #
+# research and it was publicly released in the hope that it will be    #
+# useful, but it comes WITHOUT ANY WARRANTY OR LIABILITY.              #
+#                                                                      #
+# Visit our website for the full manual and a complete tutorial about  #
+# how to conduct AMR data analysis: https://msberends.github.io/AMR/   #
+# ==================================================================== #
+
+# These are all S3 implementations for the vctrs package, 
+# that is used internally by tidyverse packages such as dplyr.
+# They are to convert AMR-specific classes to bare characters and integers.
+# All of them will be exported using s3_register() in R/zzz.R when loading the package.
+
+# S3: ab
+vec_ptype2.character.ab <- function(x, y, ...) {
+  x
+}
+vec_ptype2.ab.character <- function(x, y, ...) {
+  y
+}
+vec_cast.character.ab <- function(x, to, ...) {
+  unclass(x)
+}
+
+# S3: mo
+vec_ptype2.character.mo <- function(x, y, ...) {
+  x
+}
+vec_ptype2.mo.character <- function(x, y, ...) {
+  y
+}
+vec_cast.character.mo <- function(x, to, ...) {
+  unclass(x)
+}
+
+# S3: disk
+vec_ptype2.integer.disk <- function(x, y, ...) {
+  x
+}
+vec_ptype2.disk.integer <- function(x, y, ...) {
+  y
+}
+vec_cast.integer.disk <- function(x, to, ...) {
+  unclass(x)
+}
+
+# S3: ab_selector
+# see https://github.com/tidyverse/dplyr/issues/5955 why this is required
+vec_ptype2.character.ab_selector <- function(x, y, ...) {
+  x
+}
+vec_ptype2.ab_selector.character <- function(x, y, ...) {
+  y
+}
+vec_cast.character.ab_selector <- function(x, to, ...) {
+  unclass(x)
+}