Setup GHA checks

.Rbuildignore

@@ -8,3 +8,4 @@
 ^\.vscode$
 ^cran-comments\.md$
 ^[\.]?air\.toml$
+^\.github$

.github/.gitignore

@@ -0,0 +1 @@
+*.html

.github/workflows/R-CMD-check.yaml

@@ -0,0 +1,51 @@
+# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
+# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+
+name: R-CMD-check.yaml
+
+permissions: read-all
+
+jobs:
+  R-CMD-check:
+    runs-on: ${{ matrix.config.os }}
+
+    name: ${{ matrix.config.os }} (${{ matrix.config.r }})
+
+    strategy:
+      fail-fast: false
+      matrix:
+        config:
+          - {os: macos-latest,   r: 'release'}
+          - {os: windows-latest, r: 'release'}
+          - {os: ubuntu-latest,   r: 'devel', http-user-agent: 'release'}
+          - {os: ubuntu-latest,   r: 'release'}
+          - {os: ubuntu-latest,   r: 'oldrel-1'}
+
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+      R_KEEP_PKG_SOURCE: yes
+
+    steps:
+      - uses: actions/checkout@v4
+
+      - uses: r-lib/actions/setup-pandoc@v2
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          r-version: ${{ matrix.config.r }}
+          http-user-agent: ${{ matrix.config.http-user-agent }}
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::rcmdcheck
+          needs: check
+
+      - uses: r-lib/actions/check-r-package@v2
+        with:
+          upload-snapshots: true
+          build_args: 'c("--no-manual","--compact-vignettes=gs+qpdf")'

DESCRIPTION

@@ -2,30 +2,31 @@ Package: quickr
 Title: Compiler for R
 Version: 0.1.0.9000
 Authors@R: c(
-    person("Tomasz", "Kalinowski", email = "tomasz@posit.co", role = c("aut", "cre")),
+    person("Tomasz", "Kalinowski", , "tomasz@posit.co", role = c("aut", "cre")),
     person("Posit Software, PBC", role = c("cph", "fnd"),
            comment = c(ROR = "03wc8by49"))
-    )
-Description: Compiles R functions annotated with type and shape declarations to provide
-    extremely fast performance and robust runtime type checking. Supports
-    both just-in-time (JIT) and ahead-of-time (AOT) compilation.
-    Compilation is performed by lowering R code to Fortran.
+  )
+Description: Compile R functions annotated with type and shape
+    declarations for extremely fast performance and robust runtime
+    type checking. Supports both just-in-time (JIT) and ahead-of-time
+    (AOT) compilation. Compilation is performed by lowering R code to
+    Fortran.
 License: MIT + file LICENSE
-Encoding: UTF-8
-Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+URL: https://github.com/t-kalinowski/quickr
+BugReports: https://github.com/t-kalinowski/quickr/issues
 Depends:
     R (>= 4.4.0)
 Imports:
     dotty,
     glue,
     S7
 Suggests:
-    pkgload (>= 1.4.0.9000),
-    testthat (>= 3.0.0),
-    rlang,
+    bench,
     cli,
-    bench
+    pkgload (>= 1.4.0),
+    rlang,
+    testthat (>= 3.0.0)
 Config/testthat/edition: 3
-URL: https://github.com/t-kalinowski/quickr
-BugReports: https://github.com/t-kalinowski/quickr/issues
+Encoding: UTF-8
+Roxygen: list(markdown = TRUE)
+RoxygenNote: 7.3.2

NEWS.md

@@ -17,6 +17,8 @@
 
 - Added support for `nrow()`, `ncol()` and `dim()` (#21, @mikmart).
 
+- Fixed segfault encountered on Windows with variable sized arrays.
+
 # quickr 0.1.0
 
 * Initial CRAN submission.

R/c-wrapper.R

@@ -44,7 +44,7 @@ make_c_bridge <- function(fsub, strict = TRUE, headers = TRUE) {
     append(c_body) <- return_var_c_defs(return_var, fsub@scope)
     add(n_protected) <- 1L # allocated return var
     if (return_var@rank > 1) {
-      add(n_protected) <- 1L  # allocated _dim_sexp
+      add(n_protected) <- 1L # allocated _dim_sexp
     }
   }
 
@@ -445,7 +445,7 @@ fsub_extern_decl <- function(fsub) {
 
   fsub_c_sig <- map_chr(fsub_arg_names, function(name) {
     if (is_size_name(name)) {
-      type <- if (endsWith("__len_", name)) {
+      type <- if (name |> endsWith("__len_")) {
         "R_xlen_t"
       } else {
         "R_len_t"

README.Rmd

@@ -24,6 +24,7 @@ knitr::opts_chunk$set(
 
 <!-- badges: start -->
 
+[![R-CMD-check](https://github.com/t-kalinowski/quickr/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/t-kalinowski/quickr/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->
 
 The goal of quickr is to make your R code run quicker.