release: xlamisc 0.2.0

.Rbuildignore

@@ -1,2 +1,5 @@
 ^\.github$
 ^LICENSE\.md$
+^\.claude$
+^AGENTS\.md$
+^CLAUDE\.md$

AGENTS.md

@@ -1 +1 @@
-@../claude-config/AGENTS.md
+@../claude-config/CLAUDE.md

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: xlamisc
 Title: Helper Functions for the XLA Ecosystem
-Version: 0.1.0.9000
+Version: 0.2.0
 Authors@R: c(
     person("Sebastian", "Fischer", , "seb.fischer@tutamail.com", role = c("aut", "cre"),
            comment = c(ORCID = "https://orcid.org/0000-0002-9609-3197")),

NEWS.md

@@ -1,4 +1,8 @@
-# xlamisc (development version)
+# xlamisc 0.2.0
+
+* Added `shapevec_repr()` and `shapevec_reprs()` for formatting shape vectors.
+* Added `without()` for removing elements from a vector.
+* Added `format_bib()` for formatting bibliography entries.
 
 # xlamisc 0.1.0
 

R/format_bib.R

@@ -22,31 +22,43 @@
 #' bibentries = list(R = citation())
 #' format_bib("R")
 #' cite_bib("R")
-format_bib = function(..., bibentries = NULL) { # nolint
+format_bib = function(..., bibentries = NULL) {
+  # nolint
   if (is.null(bibentries)) {
     bibentries = get("bibentries", envir = parent.frame())
   }
   checkmate::assert_list(bibentries, "bibentry", names = "unique")
   keys = list(...)
-  str = vapply(keys, function(entry) tools::toRd(bibentries[[entry]]), character(1))
+  str = vapply(
+    keys,
+    function(entry) tools::toRd(bibentries[[entry]]),
+    character(1)
+  )
   paste0(str, collapse = "\n\n")
 }
 
 #' @rdname format_bib
 #' @export
-cite_bib = function(..., bibentries = NULL) { # nolint
+cite_bib = function(..., bibentries = NULL) {
+  # nolint
   if (is.null(bibentries)) {
     bibentries = get("bibentries", envir = parent.frame())
   }
   checkmate::assert_list(bibentries, "bibentry", names = "unique")
 
   keys = list(...)
-  str = vapply(keys, function(entry) {
-    x = bibentries[[entry]]
-    family = x$author[[1L]]$family
-    if (is.null(family)) family = x$author[[1L]]
-    sprintf("%s (%s)", family, x$year)
-  }, character(1))
+  str = vapply(
+    keys,
+    function(entry) {
+      x = bibentries[[entry]]
+      family = x$author[[1L]]$family
+      if (is.null(family)) {
+        family = x$author[[1L]]
+      }
+      sprintf("%s (%s)", family, x$year)
+    },
+    character(1)
+  )
 
   if (length(str) >= 3L) {
     str = c(toString(utils::head(str, -1L)), utils::tail(str, 1L))

tests/testthat.R

@@ -2,4 +2,3 @@ library(testthat)
 library(xlamisc)
 
 test_check("xlamisc")
-

tests/testthat/test-shapevec_repr.R

@@ -5,7 +5,6 @@ test_that("shapevec_repr formats shapes correctly", {
 })
 
 test_that("shapevec_repr handles NA as ?", {
-
   expect_equal(shapevec_repr(c(2, NA, 4)), "(2,?,4)")
   expect_equal(shapevec_repr(c(NA, NA)), "(?,?)")
 })