Add GHA check-standard

.Rbuildignore

@@ -1,3 +1,4 @@
 ^sssstats\.Rproj$
 ^\.Rproj\.user$
 ^LICENSE\.md$
+^\.github$

.github/.gitignore

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

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

@@ -0,0 +1,52 @@
+# 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:
+    branches: [main, master]
+
+name: R-CMD-check
+
+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")'

.gitignore

@@ -4,3 +4,23 @@
 .httr-oauth
 .DS_Store
 .quarto
+
+# 'data' folder #
+data/
+
+# Common text files that may contain data #
+*.[cC][sS][vV]
+*.[tT][xX][tT]
+
+# Excel files #
+*.[xX][lL][sS]*
+
+# SPSS formats #
+*.[sS][aA][vV]
+
+# SAS format #
+*.[sS][aA][sS]7[bB][dD][aA][tT]
+
+# R data files #
+*.[rR][dD][aA][tT][aA]
+*.[rR][dD][sS]

DESCRIPTION

@@ -13,6 +13,7 @@ Imports:
     lubridate,
     purrr,
     readr,
+    tidyr,
     tidyselect
 Suggests: 
     testthat (>= 3.0.0)

R/manipulate_data.R

@@ -0,0 +1,16 @@
+#' Transposes a Data Frame
+#'
+#' This function take a data frame or tibble and transposes it, turning columns to
+#'rows and rows to columns
+#' @param data A data frame to transpose.
+#' @param pivot_column Column to be turned into column headings. Defaults to the
+#' first column in the data frame.
+#' @param names_to A character vector specifying the name for the column created
+#' from the column names.
+#' @export
+
+transpose_data <- function(data, pivot_column = 1, names_to = "name"){
+  data %>%
+    tidyr::pivot_longer(-pivot_column, names_to = names_to) %>%
+    tidyr::pivot_wider(names_from = pivot_column)
+}