added lintr gh-actions test

Author: chrismainey

.github/workflows/lint.yaml

@@ -0,0 +1,33 @@
+# 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: lint.yaml
+
+permissions: read-all
+
+jobs:
+  lint:
+    runs-on: ubuntu-latest
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+    steps:
+      - uses: actions/checkout@v4
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::lintr, local::.
+          needs: lint
+
+      - name: Lint
+        run: lintr::lint_package()
+        shell: Rscript {0}
+        env:
+          LINTR_ERROR_ON_LINT: true

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: FunnelPlotR
 Type: Package
 Title: Funnel Plots for Comparing Institutional Performance
-Version: 0.5.0
+Version: 0.5.9999
 Authors@R: c(
         person("Chris", "Mainey", ,"c.mainey1@nhs.net", role= c("aut", "cre"), 
           comment = c(ORCID ="0000-0002-3018-6171")

README.Rmd

@@ -120,7 +120,7 @@ This suggest the variance is 6.24 times the condition mean, and definitely overd
 This is a huge topic, but applying overdispersed limits using either SHMI or Spiegelhalter methods adjust for this by inflating the limits:
 
 ```{r, funnel2, message=FALSE, fig.align='center', fig.retina=5, collapse=TRUE, warning=FALSE, eval=TRUE}
-b<-funnel_plot(medpar, numerator=los, denominator=prds, group = provnum, data_type = "SR",
+b < -funnel_plot(medpar, numerator=los, denominator=prds, group = provnum, data_type = "SR",
             title = 'Length of Stay Funnel plot for `medpar` data', draw_unadjusted = FALSE,
             draw_adjusted = TRUE, sr_method = "SHMI", label="outlier", limit=99)