.github/workflows/static.yaml

@@ -1,43 +0,0 @@
-# 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.4.1
+Version: 23.1.8
-Date: 2023-04-13 11:57:00 UTC
+Date: 2023-01-27 08:40:38 UTC
-SHA: 86bb9dc95357d5861603e3d487b59e1761edcded
+SHA: 32be68177d94e20b66c8f0915aa195c0c2c7eda5

DESCRIPTION

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

NAMESPACE

@@ -1,6 +1,5 @@
 # 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,16 +167,12 @@ win_prob <-
         dec = dec
       )
     )
-    class(out) <- c("win_Prob", class(out))
+    class(out) <- c("win_Prop", class(out))
     return(out)
   }
 
-#' @title PRints win_prob results
+
-#' @param x win_prob results.
+print.win_Prop <- function (x, ...) {
-#' @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

@@ -1,19 +0,0 @@
-% 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_Prob")
+  expect_s3_class(result, "win_Prop")
-  expect_output(print.win_Prob(result))
+  expect_output(print.win_Prop(result))
   
 })