new version, fixed print.win_Prob

Merge pull request #1 from agdamsbo/main

.github/workflows/static.yaml

@@ -0,0 +1,43 @@
+# Simple workflow for deploying static content to GitHub Pages
+name: Deploy static content to Pages
+
+on:
+  # Runs on pushes targeting the default branch
+  push:
+    branches: ["main"]
+
+  # Allows you to run this workflow manually from the Actions tab
+  workflow_dispatch:
+
+# Sets permissions of the GITHUB_TOKEN to allow deployment to GitHub Pages
+permissions:
+  contents: read
+  pages: write
+  id-token: write
+
+# Allow only one concurrent deployment, skipping runs queued between the run in-progress and latest queued.
+# However, do NOT cancel in-progress runs as we want to allow these production deployments to complete.
+concurrency:
+  group: "pages"
+  cancel-in-progress: false
+
+jobs:
+  # Single deploy job since we're just deploying
+  deploy:
+    environment:
+      name: github-pages
+      url: ${{ steps.deployment.outputs.page_url }}
+    runs-on: ubuntu-latest
+    steps:
+      - name: Checkout
+        uses: actions/checkout@v3
+      - name: Setup Pages
+        uses: actions/configure-pages@v3
+      - name: Upload artifact
+        uses: actions/upload-pages-artifact@v1
+        with:
+          # Upload entire repository
+          path: 'docs/'
+      - name: Deploy to GitHub Pages
+        id: deployment
+        uses: actions/deploy-pages@v2

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 23.1.8
-Date: 2023-01-27 08:40:38 UTC
-SHA: 32be68177d94e20b66c8f0915aa195c0c2c7eda5
+Version: 23.4.1
+Date: 2023-04-13 11:57:00 UTC
+SHA: 86bb9dc95357d5861603e3d487b59e1761edcded

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: stRoke
 Title: Clinical Stroke Research
-Version: 23.4.1
+Version: 23.5.1
 Authors@R: 
     person("Andreas Gammelgaard", "Damsbo", , "agdamsbo@clin.au.dk", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-7559-1154"))

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(print,win_Prob)
 export(age_calc)
 export(ci_plot)
 export(contrast_text)

R/win_prob.R

@@ -167,12 +167,16 @@ win_prob <-
         dec = dec
       )
     )
-    class(out) <- c("win_Prop", class(out))
+    class(out) <- c("win_Prob", class(out))
     return(out)
   }
 
-
-print.win_Prop <- function (x, ...) {
+#' @title PRints win_prob results
+#' @param x win_prob results.
+#' @param ... ignored for now
+#' @return Prints win_prob statistics. 
+#' @export
+print.win_Prob <- function (x, ...) {
   args <- list(...)
   
   cat("\t Zou et al's winP (doi: 10.1161/STROKEAHA.121.037744) \n\n")

man/print.win_Prob.Rd

@@ -0,0 +1,19 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/win_prob.R
+\name{print.win_Prob}
+\alias{print.win_Prob}
+\title{PRints win_prob results}
+\usage{
+\method{print}{win_Prob}(x, ...)
+}
+\arguments{
+\item{x}{win_prob results.}
+
+\item{...}{ignored for now}
+}
+\value{
+Prints win_prob statistics.
+}
+\description{
+PRints win_prob results
+}

tests/testthat/test-win_prob.R

@@ -32,7 +32,7 @@ test_that("Output length is 16, and print works", {
              sample.size = TRUE, 
              print.tables = TRUE)
   expect_length(result, 16)
-  expect_s3_class(result, "win_Prop")
-  expect_output(print.win_Prop(result))
+  expect_s3_class(result, "win_Prob")
+  expect_output(print.win_Prob(result))
   
-})
+})