✨implement vector methods, closes #23

NAMESPACE

@@ -1,5 +1,10 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method("[",gho)
+S3method("[<-",gho)
+S3method("[[",gho)
+S3method("[[<-",gho)
+S3method(c,gho)
 S3method(print,gho)
 export(display_attribute_values)
 export(display_attributes)

R/vector-mehods.R

@@ -0,0 +1,34 @@
+#' @export
+`[.gho` <- function(x, i, ...) {
+  if (! is.null(attr(x, "attrs"))) {
+    attrs <- attr(x, "attrs")[i, ]
+  } else {
+    attrs <- NULL
+  }
+
+  build_gho(
+    as.vector(x)[i],
+    labels = attr(x, "labels")[i],
+    attrs = attrs
+  )
+}
+
+#' @export
+`[[.gho` <- function(x, i, ...) {
+  x[i]
+}
+
+#' @export
+`[<-.gho` <- function(x, ..., value) {
+  stop("Cannot replace parts of a GHO object.")
+}
+
+#' @export
+`[[<-.gho` <- function(x, ..., value) {
+  stop("Cannot replace parts of a GHO object.")
+}
+
+#' @export
+c.gho <- function(..., recursive = FALSE) {
+  stop("Cannot combine GHO objects.")
+}