2024-11-24 05:41:53 +01:00
70 changed files with 359 additions and 779 deletions
--- a/7
+++ b/7
@ -1,6 +1,6 @@
 Package: stRoke
-Title: Clinical Stroke Research Toolbox
-Version: 0.23.1.3
+Title: Clinical stroke research toolbox
+Version: 0.23.1.2
 Authors@R: 
    person("Andreas Gammelgaard", "Damsbo", , "agdamsbo@clin.au.dk", role = c("aut", "cre"),
           comment = c(ORCID = "0000-0002-7559-1154"))
@ -33,8 +33,7 @@ Imports:
    rankinPlot,
    REDCapR,
    stats,
-    tidyr,
-    utils
+    tidyr
 Depends: 
    R (>= 2.10)
 Remotes: 
--- a/4
+++ b/4
@ -5,7 +5,6 @@ export(ci_plot)
 export(cpr_check)
 export(cpr_dob)
 export(cpr_female)
-export(files_filter)
 export(generic_stroke)
 export(index_plot)
 export(label_select)
@ -14,7 +13,6 @@ export(quantile_cut)
 export(read_redcap_tables)
 export(source_lines)
 import(ggplot2)
-import(utils)
 importFrom(MASS,polr)
 importFrom(dplyr,mutate)
 importFrom(dplyr,select)
@ -22,11 +20,9 @@ importFrom(gtsummary,add_overall)
 importFrom(gtsummary,tbl_summary)
 importFrom(rankinPlot,grottaBar)
 importFrom(stats,as.formula)
-importFrom(stats,binomial)
 importFrom(stats,coef)
 importFrom(stats,confint)
 importFrom(stats,formula)
-importFrom(stats,glm)
 importFrom(stats,lm)
 importFrom(stats,quantile)
 importFrom(stats,reorder)
--- a/NEWS.md
+++ b/NEWS.md
@ -1,18 +1,3 @@
-# stRoke 0.23.1.3
-
-## Functions:
-
-* files_filter() added. Simple function to get file names in path with specified filter.
-* updated cpr_dob to give warnings if format is not recognised and return NAs.
-* ci_plot() updated to actually handle binary factors. Uses glm(), not lm().
-
-## Documentation:
-
-* test, test and tests to satisfy codecov and, of course, ensure higher quality
-* changes to comply with goodpractices::gp()
-
-...and probably some more.
-
 # stRoke 0.23.1.2

 ## Functions:
--- a/R/age_calc.R
+++ b/R/age_calc.R
@ -11,14 +11,14 @@
 #' @examples
 #' trunc(age_calc(as.Date("1945-10-23"),as.Date("2018-09-30")))
 #' @references
-#' Becker, J.P. (2020). eeptools: An R Package for Teaching and Learning Ecology 
-#' and Evolutionary Biology. Journal of Statistical Software, 93(2), 1-27. 
-#' doi: 10.18637/jss.v093.i02
+#' Becker, J.P. (2020). eeptools: An R Package for Teaching and Learning Ecology and Evolutionary Biology. Journal of Statistical Software, 93(2), 1-27. doi: 10.18637/jss.v093.i02
 #' 
 #' @seealso \code{\link[lubridate]{time_length}}
 #' @keywords date time age

 age_calc<-function (dob, enddate = Sys.Date(), units = "years", precise = TRUE)
+  ## Build upon the work of Jason P. Becker, as part of the eeptools
+  ## Alternative is to just use lubridate::time_length
 {
  
  if (!inherits(dob, "Date") | !inherits(enddate, "Date")) {
@ -37,14 +37,10 @@ age_calc<-function (dob, enddate = Sys.Date(), units = "years", precise = TRUE)
  end <- as.POSIXlt(enddate)
  
  if (precise) {
-    start_is_leap <- ifelse(start$year%%400 == 0, TRUE, 
-                            ifelse(start$year%%100 == 0, 
-                                   FALSE, 
-                                   ifelse(start$year%%4 == 0, TRUE, FALSE)))
-    end_is_leap <- ifelse(end$year%%400 == 0, TRUE, 
-                          ifelse(end$year%%100 == 0, 
-                                 FALSE, 
-                                 ifelse(end$year%%4 == 0, TRUE, FALSE)))
+    start_is_leap <- ifelse(start$year%%400 == 0, TRUE, ifelse(start$year%%100 ==
+                                                                 0, FALSE, ifelse(start$year%%4 == 0, TRUE, FALSE)))
+    end_is_leap <- ifelse(end$year%%400 == 0, TRUE, ifelse(end$year%%100 ==
+                                                             0, FALSE, ifelse(end$year%%4 == 0, TRUE, FALSE)))
  }
  if (units == "days") {
    result <- as.numeric(difftime(end, start, units = "days"))
@ -54,20 +50,16 @@ age_calc<-function (dob, enddate = Sys.Date(), units = "years", precise = TRUE)
                            by = "months", SIMPLIFY = FALSE), length) - 1
    if (precise) {
      month_length_end <- ifelse(end$mon == 1 & end_is_leap,
-                                 29, ifelse(end$mon == 1, 28, 
-                                            ifelse(end$mon %in% c(3, 5, 8, 10), 
-                                                   30, 31)))
+                                 29, ifelse(end$mon == 1, 28, ifelse(end$mon %in%
+                                                                       c(3, 5, 8, 10), 30, 31)))
      month_length_prior <- ifelse((end$mon - 1) == 1 &
-                                     start_is_leap, 29, 
-                                   ifelse((end$mon - 1) == 1, 28, 
-                                          ifelse((end$mon - 1) %in% 
-                                                   c(3, 5, 8, 10), 30, 31)))
-      month_frac <- ifelse(end$mday > start$mday, 
-                           (end$mday - start$mday)/month_length_end, 
-                           ifelse(end$mday < start$mday, 
-                                  (month_length_prior - 
-                                     start$mday)/month_length_prior + 
-                                    end$mday/month_length_end, 0))
+                                     start_is_leap, 29, ifelse((end$mon - 1) == 1,
+                                                               28, ifelse((end$mon - 1) %in% c(3, 5, 8, 10),
+                                                                          30, 31)))
+      month_frac <- ifelse(end$mday > start$mday, (end$mday -
+                                                     start$mday)/month_length_end, ifelse(end$mday <
+                                                                                            start$mday, (month_length_prior - start$mday)/month_length_prior +
+                                                                                            end$mday/month_length_end, 0))
      result <- months + month_frac
    }
    else {
@ -84,11 +76,10 @@ age_calc<-function (dob, enddate = Sys.Date(), units = "years", precise = TRUE)
                            60, start$yday - 1, start$yday)
      end_day <- ifelse(end_is_leap & end$yday >= 60, end$yday -
                          1, end$yday)
-      year_frac <- ifelse(start_day < 
-                            end_day, (end_day - start_day)/end_length, 
-                          ifelse(start_day > end_day,
-                                 (start_length - start_day)/start_length + 
-                                   end_day/end_length, 0))
+      year_frac <- ifelse(start_day < end_day, (end_day -
+                                                  start_day)/end_length, ifelse(start_day > end_day,
+                                                                                (start_length - start_day)/start_length + end_day/end_length,
+                                                                                0))
      result <- years + year_frac
    }
    else {
--- a/R/ci_plot.R
+++ b/R/ci_plot.R
@ -1,8 +1,7 @@
 utils::globalVariables(c("vname"))
 #' Confidence interval plot with point estimate
 #' 
-#' Horizontal forest plot of point estimate with confidence intervals. 
-#' Includes dichotomous or olr, depending on number of levels in "x".
+#' Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
 #' Title and axis labels can be added to the ggplot afterwards.
 #'
 #' @param ds data set
@ -18,7 +17,7 @@ utils::globalVariables(c("vname"))
 #'
 #' @import ggplot2
 #' @importFrom MASS polr
-#' @importFrom stats as.formula coef confint lm quantile reorder binomial glm
+#' @importFrom stats as.formula coef confint lm quantile reorder
 #'
 #' @examples
 #' data(talos)
@ -26,22 +25,20 @@ utils::globalVariables(c("vname"))
 #' ci_plot(ds = talos, x = "rtreat", y = "mrs_1", vars = c("hypertension","diabetes"))
 ci_plot<- function(ds, x, y, vars=NULL, dec=3, lbls=NULL, title=NULL){
  
-  if (!is.factor(ds[,y])) stop("Outcome has to be factor")
+  if (is.factor(ds[y])) stop("Outcome has to be factor")
  
  # Formula
  ci_form <- as.formula(paste0(y,"~",x,"+."))
  
  # Ordinal logistic regression for non-dichotomous factors
  if (length(levels(ds[,y])) > 2){
-    m <- MASS::polr(formula = ci_form, data=ds[,unique(c(x, y, vars))], 
-                    Hess=TRUE, method="logistic")
+    m <- MASS::polr(formula = ci_form, data=ds[,unique(c(x, y, vars))], Hess=TRUE, method="logistic")
    if (is.null(title)) title <- "Ordinal logistic regression"
  }
  
  # Binary logistic regression for dichotomous factors
  if (length(levels(ds[,y])) == 2){
-    m <- glm(formula = ci_form, data=ds[unique(c(x, y, vars))],
-             family=binomial())
+    m <- lm(formula = ci_form, data=ds[,unique(c(x, y, vars))])
    if (is.null(title)) title <- "Binary logistic regression"
  }
  
@ -51,22 +48,17 @@ ci_plot<- function(ds, x, y, vars=NULL, dec=3, lbls=NULL, title=NULL){
  rodds<-round(odds, digits = dec)
  
  if (is.null(lbls)){
-    odds$vname<-paste0(row.names(odds)," \n",
-                       paste0(rodds$or," 
-                              [",rodds$lo,":",rodds$up,"]"))
+    odds$vname<-paste0(row.names(odds)," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
  } else {
-    odds$vname<-paste0(lbls," \n",paste0(rodds$or,
-                                         " [",rodds$lo,":",rodds$up,"]"))
+    odds$vname<-paste0(lbls," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
    
  }
  
-  odds$ord<-rev(seq_len(nrow(odds)))
+  odds$ord<-c(nrow(odds):1)
  
-  ggplot2::ggplot(data = odds, 
-                  mapping = ggplot2::aes(y = or, x = reorder(vname,ord))) +
+  ggplot2::ggplot(data = odds, mapping = ggplot2::aes(y = or, x = reorder(vname,ord))) +
    ggplot2::geom_point() +
-    ggplot2::geom_errorbar(mapping = ggplot2::aes(ymin=lo, ymax=up), 
-                           width = 0.2) +
+    ggplot2::geom_errorbar(mapping = ggplot2::aes(ymin=lo, ymax=up), width = 0.2) +
    ggplot2::scale_y_log10() +
    ggplot2::geom_hline(yintercept = 1, linetype=2) +
    ggplot2::labs(title=title) +
@ -74,3 +66,5 @@ ci_plot<- function(ds, x, y, vars=NULL, dec=3, lbls=NULL, title=NULL){
 }


+
+
--- a/R/cpr_tools.R
+++ b/R/cpr_tools.R
@ -1,28 +1,23 @@
 #' CPR check
 #'
 #' Checking validity of cpr number. Vectorised.
-#' @param cpr cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. 
-#' Also mixed formatting. Vector or data frame column.
+#' @param cpr cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.
 #' @keywords cpr
 #'
 #' @return Logical vector of cpr validity
 #' @export
 #'
 #' @examples 
-#' fsd<-c("2310450637", "010190-2000", "010115-4000",
-#' "300450-1030","010150-4021")
+#' fsd<-c("2310450637", "010190-2000", "010115-4000","300450-1030","010150-4021")
 #' cpr_check("2310450637")
 #' cpr_check(fsd)
 #' all(cpr_check(fsd))
 cpr_check<-function(cpr){
  # Check validity of CPR number, format ddmmyy-xxxx
-  # Build upon data from this document: 
-  # https://cpr.dk/media/12066/personnummeret-i-cpr.pdf
-  ## OBS according to new description, not all valid CPR numbers 
-  ## apply to this modulus 11 rule.
+  # Build upon data from this document: https://cpr.dk/media/12066/personnummeret-i-cpr.pdf
+  ## OBS according to new description, not all valid CPR numbers apply to this modulus 11 rule.
  message(
-    "OBS: as per 2007 not all valid CPR numbers apply to modulus 11 rule. 
-    \nSee the vignette 'Toolbox'")
+    "OBS: as per 2007 not all valid CPR numbers apply to modulus 11 rule. \nSee the vignette 'Toolbox'")
  
  str_length <- nchar(cpr) 
  # Calculating length of each element in vector
@ -31,12 +26,10 @@ cpr_check<-function(cpr){
  # Subsetting strings to first 6 and last 4 characters to short format cpr.
  
  cpr_matrix <- matrix(as.numeric(unlist(strsplit(cpr_short,""))),nrow=10)
-  # Splitting all strings by each character to list, 
-  # unlisting and creating matrix. Default is by column.
+  # Splitting all strings by each character to list, unlisting and creating matrix. Default is by column.
  
  test_vector <- c(4,3,2,7,6,5,4,3,2,1)
-  # Multiplication vector from 
-  # https://cpr.dk/media/12066/personnummeret-i-cpr.pdf
+  # Multiplication vector from https://cpr.dk/media/12066/personnummeret-i-cpr.pdf
  
  colSums(cpr_matrix*test_vector) %% 11 == 0
  # Testing if modulus 11 == 0 of sums of matrix * multiplication vector.
@ -45,8 +38,7 @@ cpr_check<-function(cpr){
 #' Extracting date of birth from CPR
 #'
 #' For easy calculation. Does not handle cprs with letters (interim cpr)
-#' @param cpr cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. 
-#' Also mixed formatting. Vector or data frame column.
+#' @param cpr cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.
 #' @param format character string of dob date format. Default is "%d-%m-%Y".
 #' @keywords cpr
 #' 
@ -55,41 +47,11 @@ cpr_check<-function(cpr){
 #'
 #' @examples
 #' cpr_dob("231045-0637")
-#' fsd<-c("2310450637", "010190-2000", "010115-4000",
-#' "300450-1030","010150-4021")
+#' fsd<-c("2310450637", "010190-2000", "010115-4000","300450-1030","010150-4021")
 #' cpr_dob(fsd)
 cpr_dob<-function(cpr, format="%d-%m-%Y"){
  ## Input as cpr-numbers in format ddmmyy-xxxx
-  ## Build upon data from this document: 
-  ## https://cpr.dk/media/12066/personnummeret-i-cpr.pdf
-  
-  # Checks format and length
-  check_form <- (nchar(cpr)==10 & grepl("-", cpr)) | 
-    (nchar(cpr)==11 & !grepl("[^A-Za-z0-9]", substr(cpr,7,7)))|
-    !nchar(cpr) %in% 10:11
-  
-  if (any(check_form)){
-    warning("CPR length should be in format ddmmyy-xxxx or ddmmyyxxxx. Output will contain NAs")
-  }
-  
-  str_length <- nchar(cpr) 
-  # Calculating length of each element in vector
-  
-  cpr_short_all <- paste0(substr(cpr,1,6),substr(cpr,str_length-3,str_length)) 
-  # Subsetting strings to first 6 and last 4 characters to short format cpr.
-  
-  # Checks if letters in other positions than 1:7 or 10
-  check_lets <- grepl("\\D", paste0(substr(cpr_short_all,1,7),
-                                    substr(cpr_short_all,10,10)))
-  
-  if (any(check_lets)) {
-    warning("Does only handle CPRs with letters in position 2 and 3 of the last 4 positions. Output will contain NAs")}
-  
-  checks_any <- check_form | check_lets
-  
-  non_na <- seq_along(cpr)[!checks_any]
-  
-  cpr_short <- cpr_short_all[!checks_any]
+  ## Build upon data from this document: https://cpr.dk/media/12066/personnummeret-i-cpr.pdf
  
  dobs<-c()
  
@ -101,54 +63,58 @@ cpr_dob<-function(cpr, format="%d-%m-%Y"){
  b36<-c(4,9)
  b57<-c(5:8)
  
+  str_length <- nchar(cpr) 
+  # Calculating length of each element in vector
+  
+  cpr_short <- paste0(substr(cpr,1,6),substr(cpr,str_length-3,str_length)) 
+  # Subsetting strings to first 6 and last 4 characters to short format cpr.
+  
  year <- as.numeric(substr(cpr_short,5,6))
  
  ddmmyy <- as.Date(substr(cpr_short,1,6),format="%d%m%y")
  
-  for (i in seq_along(cpr_short)){
+  for (i in seq_along(cpr)){
    
    p56 <- year[i]
    
-    p7 <- substr(cpr_short[i],7,7) 
+    p8 <- substr(cpr_short[i],7,7) 
+    # p8 is position 8 from the traditional cpr ddmmyy-xxxx, pos 7 in short version.
    
    birth <- ddmmyy[i]
    
-    if (((p56%in%a00)&&(p7%in%b00)))
+    if (((p56%in%a00)&&(p8%in%b00)))
    {
      dob<-as.Date(format(birth, format="19%y%m%d"), format="%Y%m%d")
    }
-    else if (((p56%in%a36)&&(p7%in%b36)))
+    else if (((p56%in%a36)&&(p8%in%b36)))
    {
      dob<-as.Date(format(birth, format="20%y%m%d"), format="%Y%m%d")
    }
-    else if ((!(p56%in%a36)&&(p7%in%b36)))
+    else if ((!(p56%in%a36)&&(p8%in%b36)))
    {
      dob<-as.Date(format(birth, format="19%y%m%d"), format="%Y%m%d")
    }
-    else if (((p56%in%a57)&&(p7%in%b57)))
+    else if (((p56%in%a57)&&(p8%in%b57)))
    {
      dob<-as.Date(format(birth, format="20%y%m%d"), format="%Y%m%d")
    }
-    else if ((!(p56%in%a57)&&(p7%in%b57)))
+    else if ((!(p56%in%a57)&&(p8%in%b57)))
    {
      dob<-as.Date(format(birth, format="18%y%m%d"), format="%Y%m%d")
    }
+    else {print("Input contains data in wrong format")
+    }
    dobs[i]<-dob
    
  }
-  dobs <- format(as.Date(dobs, origin = "1970-01-01"), format = format)
  
-  merge(data.frame(index=seq_along(cpr),dobs=NA),
-        data.frame(index=non_na,dobs),
-        by = "index",
-        all=TRUE)[,3]
+  format(as.Date(dobs, origin = "1970-01-01"), format = format)
 }

 #' Determine female sex from CPR
 #'
 #' Just checking if last number of a string is equal or not.
-#' @param cpr Vector. cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. 
-#' Also mixed formatting. Vector or data frame column.
+#' @param cpr Vector. cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.
 #' @keywords cpr
 #' 
 #' @return Logical vector
--- a/R/cprs.R
+++ b/R/cprs.R
@ -1,13 +1,12 @@
 #' Data frame of 200 cpr numbers
 #'
-#' This is just a repeated sample of 8 synthesized cpr-numbers 
-#' for testing purposes.
+#' This is just a repeated sample of 8 synthesized cpr-numbers for testing purposes.
 #'
 #' @format A data frame with 200 rows and 1 variable:
 #' \describe{
 #'   \item{cpr}{Mixed format cpr-numbers, characters}
 #' }
-#' @source \url{https://da.wikipedia.org/wiki/231045-0637}
+#' @source \url{https://da.wikipedia.org/wiki/231045-0637/}
 #' @usage data(cprs)
 "cprs"

--- a/R/files_filter.R
+++ b/R/files_filter.R
@ -1,28 +0,0 @@
-
-
-#' @title Filter files in a folder
-#' @description This function filters files in a folder based on the 
-#' provided filter.
-#' @param folder.path character. Path of the folder to be filtered
-#' @param filter.by character. Filter to be applied on the files
-#' @param full.names logical. Whether to return full file names or not
-#' @return character vector. Filtered files
-#' @export
-#'
-#' @examples
-#' # Gives path to files/folders with "tests" in the name in the 
-#' # working directory
-#' files_filter(getwd(),"tests")
-#' @import utils
-files_filter <- function(folder.path,filter.by,full.names=TRUE){
-  
-  #list all files in the folder
-  files <- list.files(path=folder.path, full.names=full.names) 
-  
-  #filter files
-  files[grepl(filter.by,files)] 
-
-}
-
-
-
--- a/R/generic_stroke.R
+++ b/R/generic_stroke.R
@ -22,8 +22,7 @@ utils::globalVariables(c("df","group","score","strata"))
 #' @importFrom rankinPlot grottaBar
 #'
 #' @examples
-#' generic_stroke(stRoke::talos, "rtreat", "mrs_6", 
-#' variables = c("hypertension","diabetes","civil"))
+#' generic_stroke(stRoke::talos, "rtreat", "mrs_6", variables = c("hypertension","diabetes","civil"))
 generic_stroke <- function(df, group, score, strata = NULL, variables = NULL)
  {
  # if (!is.factor(df[,group])){
@ -40,9 +39,7 @@ generic_stroke <- function(df, group, score, strata = NULL, variables = NULL)
                              colourScheme ="custom")
  
  df[,score] <- factor(df[,score],ordered = TRUE)
-  f2 <- plot_olr(MASS::polr(formula(paste0(score,"~.")), 
-                            data=df[,c(group, score, variables)], Hess=TRUE, 
-                            method="logistic"), input="model")
+  f2 <- plot_olr(MASS::polr(formula(paste0(score,"~.")), data=df[,c(group, score, variables)], Hess=TRUE, method="logistic"), input="model")
  
  list("Table 1" = t1, "Figure 1" = f1, "Figure 2" = f2)
 }
--- a/R/index_plot.R
+++ b/R/index_plot.R
@ -1,14 +1,12 @@
 utils::globalVariables(c("name","value","facet"))
 #' Plot multidimensional cognitive test scores
 #' 
-#' Plot index scores from five dimensional cognitive testing. 
-#' Includes option to facet.
+#' Plot index scores from five dimensional cognitive testing. Includes option to facet.
 #'
 #' @param ds complete data frame
 #' @param id colname of id column. Base for colouring
 #' @param sub_plot main outcome scores variable to plot
-#' @param scores variables to subset for plotting. Has to follow standard 
-#' naming (is to be changed)
+#' @param scores variables to subset for plotting. Has to follow standard naming (is to be changed)
 #' @param dom_names domain names for axis naming
 #' @param facet.by variable to base facet_grid on
 #'
@ -25,11 +23,7 @@ utils::globalVariables(c("name","value","facet"))
 #'
 #' @examples
 #' index_plot(stRoke::score[score$event=="A",])
-index_plot <- function(ds,id="id",sub_plot="_is",
-                       scores=c("_is","_lo","_up","_per"),
-                       dom_names=c("immediate","visuospatial","verbal",
-                                   "attention","delayed","total"),
-                       facet.by=NULL){
+index_plot <- function(ds,id="id",sub_plot="_is",scores=c("_is","_lo","_up","_per"),dom_names=c("immediate","visuospatial","verbal","attention","delayed","total"),facet.by=NULL){

  if (length(facet.by)>1){stop("facet.by can be NULL or of length 1 only.")}
  
@ -50,8 +44,7 @@ index_plot <- function(ds,id="id",sub_plot="_is",
  
  if (sub_plot=="_is"){
    index_plot<-df_plot|>
-      ggplot2::ggplot(mapping = ggplot2::aes(x=name, y=value, color=factor(id), 
-                                             group=factor(id))) + 
+      ggplot2::ggplot(mapping = ggplot2::aes(x=name, y=value, color=factor(id), group=factor(id))) + 
      ggplot2::geom_point() +
      ggplot2::geom_path() +
      ggplot2::expand_limits(y=c(40,160)) +
@ -63,8 +56,7 @@ index_plot <- function(ds,id="id",sub_plot="_is",
  
  if (sub_plot=="_per"){
    index_plot<-df_plot|>
-      ggplot2::ggplot(mapping = ggplot2::aes(x=name, y=value, 
-                                             fill=factor(id)))+
+      ggplot2::ggplot(mapping = ggplot2::aes(x=name, y=value, fill=factor(id)))+
      ggplot2::geom_col(position = "dodge") +
      ggplot2::expand_limits(y=c(0,100)) +
      ggplot2::scale_y_continuous(breaks=seq(0,100,by=10)) +
@ -75,8 +67,7 @@ index_plot <- function(ds,id="id",sub_plot="_is",
  
  if (!is.null(facet.by)){
    index_plot + facet_grid(cols=vars(facet)) +
-      ggplot2::theme(axis.text.x = element_text(angle = 90, 
-                                                vjust = 0.5, hjust=1)) 
+      ggplot2::theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) 
    
  } else {
    index_plot
--- a/R/label_select.R
+++ b/R/label_select.R
@ -20,8 +20,7 @@
 #' mrs_1~"One month mRS", 
 #' mrs_6~"Six months mRS", 
 #' '[Intercept]'~"Intercept")
-#' stRoke::talos[vars] |> 
-#' gtsummary::tbl_summary(label = label_select(labels_all,vars))
+#' stRoke::talos[vars] |> gtsummary::tbl_summary(label = label_select(labels_all,vars))
 label_select<-function(lst,vec){
  lst[match(vec,unlist(lapply(lst,function(i){i[[2]]})))]
 }
--- a/R/plot_olr.R
+++ b/R/plot_olr.R
@ -34,8 +34,7 @@ utils::globalVariables(c("or","ord","lo","up"))
 #' lm <- MASS::polr(ord~., data=iris, Hess=TRUE, method="logistic")
 #' plot_olr(lm, input="model")

-plot_olr<-function(x, title = NULL, dec=3, lbls=NULL, hori="OR (95 % CI)", 
-                   vert="Variables", short=FALSE, input=c("model","df")){
+plot_olr<-function(x, title = NULL, dec=3, lbls=NULL, hori="OR (95 % CI)", vert="Variables", short=FALSE, input=c("model","df")){
  
  if (input=="model"){
    odds <- data.frame(cbind(exp(coef(x)), exp(confint(x))))
@ -48,11 +47,9 @@ plot_olr<-function(x, title = NULL, dec=3, lbls=NULL, hori="OR (95 % CI)",
  rodds<-round(odds, digits = dec)
  
  if (!is.null(lbls)){
-    odds$vars<-paste0(lbls," \n",
-                      paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
+    odds$vars<-paste0(lbls," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
  } else {
-    odds$vars<-paste0(row.names(odds)," \n",
-                      paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
+    odds$vars<-paste0(row.names(odds)," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
  }
  
  ticks<-c(seq(0, 1, by =.1), seq(1, 10, by =1), seq(10, 100, by =10))
@ -61,7 +58,7 @@ plot_olr<-function(x, title = NULL, dec=3, lbls=NULL, hori="OR (95 % CI)",
    ticks<-ticks[seq(1, length(ticks), 2)]
  }
  
-  odds$ord<-rev(seq_len(nrow(odds)))
+  odds$ord<-c(nrow(odds):1)
  
  odds|>
    ggplot2::ggplot(mapping = ggplot2::aes(y = or, x = reorder(vars,ord))) +
--- a/R/quantile_cut.R
+++ b/R/quantile_cut.R
@ -20,20 +20,16 @@
 #' x <- 1:450
 #' y <- 6:750
 #' summary(quantile_cut(aa,groups=4,detail.list=FALSE)) ## Cuts quartiles
-quantile_cut<-function (x, groups, y=NULL, na.rm = TRUE, 
-                        group.names = NULL, ordered.f = FALSE, inc.outs=FALSE, 
-                        detail.list=FALSE){
+quantile_cut<-function (x, groups, y=NULL, na.rm = TRUE, group.names = NULL, ordered.f = FALSE, inc.outs=FALSE, detail.list=FALSE){
  if (!is.null(y)){
-    q<-quantile(y, probs = seq(0, 1, 1/groups), na.rm = na.rm, 
-                names = TRUE, type = 7)
-    if (inc.outs){ # Setting cut borders to include outliers in x compared to y.
+    q<-quantile(y, probs = seq(0, 1, 1/groups), na.rm = na.rm, names = TRUE, type = 7)
+    if (inc.outs){ # Setting cut boardes to include outliers in x compared to y.
      q[1]<-min(x,na.rm = TRUE)
      q[length(q)]<-max(x,na.rm = TRUE)
    }
  }
  if (is.null(y)){
-    q<-quantile(x, probs = seq(0, 1, 1/groups), na.rm = na.rm, 
-                names = TRUE, type = 7)
+    q<-quantile(x, probs = seq(0, 1, 1/groups), na.rm = na.rm, names = TRUE, type = 7)

  }
  d<-cut(x, q, include.lowest = TRUE, labels = group.names,
--- a/R/read_redcap_tables.R
+++ b/R/read_redcap_tables.R
@ -1,16 +1,14 @@
 #' Download REDCap data
 #' 
-#' Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split 
-#' including some clean-up. Works with longitudinal projects with repeating 
-#' instruments.
+#' Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split including some clean-up.
+#' Handles 
 #' @param uri REDCap database uri
 #' @param token API token
 #' @param records records to download
 #' @param fields fields to download
 #' @param events events to download
 #' @param forms forms to download
-#' @param generics vector of auto-generated generic variable names to 
-#' ignore when discarding empty rows
+#' @param generics vector of auto-generated generic variable names to ignore when discarding empty rows
 #'
 #' @return list of instruments
 #' @export 
@ -23,12 +21,9 @@ read_redcap_tables <- function(uri,
                             fields=NULL,
                             events=NULL,
                             forms=NULL,
-                             generics=c("record_id", "redcap_event_name", 
-                                        "redcap_repeat_instrument", 
-                                        "redcap_repeat_instance")){
+                             generics=c("record_id", "redcap_event_name", "redcap_repeat_instrument", "redcap_repeat_instance")){

-  # Notes to self: Based on the metadata, this functionality could be introduced 
-  # without using the REDCapRITS package.. To be tried..
+  # Notes to self: Based on the metadata, this functionality could be introduced without using the REDCapRITS package.. To be tried..
  
  d <- REDCapR::redcap_read (redcap_uri = uri,
                             token = token,
@ -40,14 +35,11 @@ read_redcap_tables <- function(uri,
  m <- REDCapR::redcap_metadata_read (redcap_uri = uri,token = token)
  
  if (requireNamespace("REDCapRITS", quietly = TRUE)) {
-    l <- REDCapRITS::REDCap_split(d$data, 
-                                  m$data[m$data$field_name %in% names(d$data),], 
-                                  forms = "all")
+    l <- REDCapRITS::REDCap_split(d$data, m$data[m$data$field_name %in% names(d$data),], forms = "all")
  } else {
    cli::cli_abort(
      c("x" = "The package REDCapRITS is not installed.",
-        "i" = "Please install REDCapRITS by running 
-        \"remotes::install_github('agdamsbo/REDCapRITS')\".")
+        "i" = "Please install REDCapRITS by running \"remotes::install_github('agdamsbo/REDCapRITS')\".")
    )
  }
  
--- a/R/score.R
+++ b/R/score.R
@ -1,7 +1,6 @@
 #' Data frame with sample data of cognitive testing score
 #'
-#' Contains non-identifiable organic trial data from a 
-#' five-dimensional cognitive test.
+#' Contains non-identifiable organic trial data from a five-dimensional cognitive test.
 #'
 #' @format A data frame with 20 rows and 26 variables:
 #' \describe{
--- a/R/talos.R
+++ b/R/talos.R
@ -1,7 +1,6 @@
 #' Data frame with sample of TALOS data
 #'
-#' Contains of non-identifiable data from 
-#' the [TALOS trial](https://doi.org/10.1161/STROKEAHA.117.020067/)
+#' Contains of non-identifiable data from the [TALOS trial](https://doi.org/10.1161/STROKEAHA.117.020067/)
 #'
 #' @format A data frame with 200 rows and 6 variables:
 #' \describe{
@ -12,7 +11,7 @@
 #'   \item{diabetes}{Known diabetes}
 #'   \item{civil}{Cohabitation status}
 #' }
-#' @source \doi{10.1161/STROKEAHA.117.020067}
+#' @source \url{https://doi.org/10.1161/STROKEAHA.117.020067/}
 #' @usage data(talos)
 "talos"

--- a/README.md
+++ b/README.md
@ -10,7 +10,12 @@ This is an R-toolbox of custom functions for convenient data management and anal
 The package is mainly collected for personal use, but any use beyond that is encouraged.
 This package has migrated functions from the agdamsbo/daDoctoR-package, and new functions has been added.

-## Source
+# A few notes
+The function `generic_stroke()`can be used with `data(talos)` or a custom data set to illustrate the classic analysis of mRS outcome from stroke trials.
+
+In documenting and testing the package, I have used [OpenAI's](https://beta.openai.com/overview) chatgpt with [gpttools](https://jameshwade.github.io/gpttools/). The chatgpt is an interesting tool, that is in no way perfect, but it helps with tedious tasks. Both `gpttools` and [`gptstudio`](https://michelnivard.github.io/gptstudio/) are interesting implementations in R and RStudio.
+
+# Source

 This package is [shared on GitHub](https://github.com/agdamsbo/stRoke), and you are very welcome to contribute by opening an issue or a pull request.

--- a/docs/404.html
+++ b/docs/404.html
@ -24,7 +24,7 @@
    
    <a class="navbar-brand me-2" href="index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
--- a/docs/articles/Toolbox.html
+++ b/docs/articles/Toolbox.html
@ -26,7 +26,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -93,10 +93,6 @@ something like that.</p>
 I use regularly in addition to functions that I have written myself to
 fill use cases, that I have not been able to find solutions to
 elsewhere.</p>
-<p>In documenting and testing the package, I have used <a href="https://beta.openai.com/overview" class="external-link">OpenAI’s</a> chatgpt with <a href="https://jameshwade.github.io/gpttools/" class="external-link">gpttools</a>. The chatgpt
-is an interesting tool, that is in no way perfect, but it helps with
-tedious tasks. Both <code>gpttools</code> and <a href="https://michelnivard.github.io/gptstudio/" class="external-link"><code>gptstudio</code></a>
-are interesting implementations in R and RStudio.</p>
 <div class="section level3">
 <h3 id="cpr-intro">CPR manipulations<a class="anchor" aria-label="anchor" href="#cpr-intro"></a>
 </h3>
@ -132,7 +128,6 @@ not apply to all CPR numbers after 2007</a>.</p>
 <div class="sourceCode" id="cb3"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="../reference/cpr_check.html">cpr_check</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"2310450637"</span>, <span class="st">"010190-2000"</span>, <span class="st">"010115-4000"</span>,<span class="st">"300450-1030"</span>,<span class="st">"010150-4021"</span>, <span class="st">"010150-4AA1"</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="co">#&gt; OBS: as per 2007 not all valid CPR numbers apply to modulus 11 rule. </span></span>
-<span><span class="co">#&gt;     </span></span>
 <span><span class="co">#&gt; See the vignette 'Toolbox'</span></span>
 <span><span class="co">#&gt; Warning in matrix(as.numeric(unlist(strsplit(cpr_short, ""))), nrow = 10): NAs</span></span>
 <span><span class="co">#&gt; introduced by coercion</span></span>
@ -156,10 +151,24 @@ decade of birth. <a href="#cpr-intro">See earlier</a>.</p>
 <p>Gives logical vector of whether female gender from last digit of
 CPR.</p>
 <div class="sourceCode" id="cb5"><pre class="downlit sourceCode r">
-<code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/base/table.html" class="external-link">table</a></span><span class="op">(</span><span class="fu"><a href="../reference/cpr_female.html">cpr_female</a></span><span class="op">(</span><span class="fu">stRoke</span><span class="fu">::</span><span class="va"><a href="../reference/cprs.html">cprs</a></span><span class="op">[</span>,<span class="fl">1</span><span class="op">]</span><span class="op">)</span><span class="op">)</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; FALSE  TRUE </span></span>
-<span><span class="co">#&gt;    98   102</span></span></code></pre></div>
+<code class="sourceCode R"><span><span class="fu"><a href="../reference/cpr_female.html">cpr_female</a></span><span class="op">(</span><span class="fu">stRoke</span><span class="fu">::</span><span class="va"><a href="../reference/cprs.html">cprs</a></span><span class="op">[</span>,<span class="fl">1</span><span class="op">]</span><span class="op">)</span></span>
+<span><span class="co">#&gt;   [1] FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE</span></span>
+<span><span class="co">#&gt;  [13]  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE</span></span>
+<span><span class="co">#&gt;  [25]  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE</span></span>
+<span><span class="co">#&gt;  [37]  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE  TRUE</span></span>
+<span><span class="co">#&gt;  [49] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE</span></span>
+<span><span class="co">#&gt;  [61] FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE</span></span>
+<span><span class="co">#&gt;  [73]  TRUE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE</span></span>
+<span><span class="co">#&gt;  [85]  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE</span></span>
+<span><span class="co">#&gt;  [97]  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE</span></span>
+<span><span class="co">#&gt; [109]  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE  TRUE</span></span>
+<span><span class="co">#&gt; [121]  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE</span></span>
+<span><span class="co">#&gt; [133] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE</span></span>
+<span><span class="co">#&gt; [145]  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE</span></span>
+<span><span class="co">#&gt; [157]  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE  TRUE</span></span>
+<span><span class="co">#&gt; [169]  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE</span></span>
+<span><span class="co">#&gt; [181] FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE FALSE</span></span>
+<span><span class="co">#&gt; [193]  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE</span></span></code></pre></div>
 </div>
 </div>
 <div class="section level3">
@ -192,12 +201,12 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <code class="sourceCode R"><span><span class="fu"><a href="../reference/generic_stroke.html">generic_stroke</a></span><span class="op">(</span><span class="fu">stRoke</span><span class="fu">::</span><span class="va"><a href="../reference/talos.html">talos</a></span>, <span class="st">"rtreat"</span>, <span class="st">"mrs_6"</span>, variables <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"hypertension"</span>,<span class="st">"diabetes"</span>,<span class="st">"civil"</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="co">#&gt; Waiting for profiling to be done...</span></span>
 <span><span class="co">#&gt; $`Table 1`</span></span>
-<span><span class="co">#&gt; &lt;div id="suejnmoipq" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;"&gt;</span></span>
+<span><span class="co">#&gt; &lt;div id="oxebipzbdp" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;"&gt;</span></span>
 <span><span class="co">#&gt;   &lt;style&gt;html {</span></span>
 <span><span class="co">#&gt;   font-family: -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, Oxygen, Ubuntu, Cantarell, 'Helvetica Neue', 'Fira Sans', 'Droid Sans', Arial, sans-serif;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_table {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_table {</span></span>
 <span><span class="co">#&gt;   display: table;</span></span>
 <span><span class="co">#&gt;   border-collapse: collapse;</span></span>
 <span><span class="co">#&gt;   margin-left: auto;</span></span>
@ -222,7 +231,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-left-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_heading {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_heading {</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   text-align: center;</span></span>
 <span><span class="co">#&gt;   border-bottom-color: #FFFFFF;</span></span>
@ -234,12 +243,12 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-right-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_caption {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_caption {</span></span>
 <span><span class="co">#&gt;   padding-top: 4px;</span></span>
 <span><span class="co">#&gt;   padding-bottom: 4px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_title {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_title {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   font-size: 125%;</span></span>
 <span><span class="co">#&gt;   font-weight: initial;</span></span>
@ -251,7 +260,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-bottom-width: 0;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_subtitle {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_subtitle {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   font-size: 85%;</span></span>
 <span><span class="co">#&gt;   font-weight: initial;</span></span>
@ -263,13 +272,13 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-top-width: 0;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_bottom_border {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_bottom_border {</span></span>
 <span><span class="co">#&gt;   border-bottom-style: solid;</span></span>
 <span><span class="co">#&gt;   border-bottom-width: 2px;</span></span>
 <span><span class="co">#&gt;   border-bottom-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_col_headings {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_col_headings {</span></span>
 <span><span class="co">#&gt;   border-top-style: solid;</span></span>
 <span><span class="co">#&gt;   border-top-width: 2px;</span></span>
 <span><span class="co">#&gt;   border-top-color: #D3D3D3;</span></span>
@ -284,7 +293,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-right-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_col_heading {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_col_heading {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   font-size: 100%;</span></span>
@ -304,7 +313,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   overflow-x: hidden;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_column_spanner_outer {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_column_spanner_outer {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   font-size: 100%;</span></span>
@ -316,15 +325,15 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   padding-right: 4px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_column_spanner_outer:first-child {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_column_spanner_outer:first-child {</span></span>
 <span><span class="co">#&gt;   padding-left: 0;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_column_spanner_outer:last-child {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_column_spanner_outer:last-child {</span></span>
 <span><span class="co">#&gt;   padding-right: 0;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_column_spanner {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_column_spanner {</span></span>
 <span><span class="co">#&gt;   border-bottom-style: solid;</span></span>
 <span><span class="co">#&gt;   border-bottom-width: 2px;</span></span>
 <span><span class="co">#&gt;   border-bottom-color: #D3D3D3;</span></span>
@ -336,7 +345,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   width: 100%;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_group_heading {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_group_heading {</span></span>
 <span><span class="co">#&gt;   padding-top: 8px;</span></span>
 <span><span class="co">#&gt;   padding-bottom: 8px;</span></span>
 <span><span class="co">#&gt;   padding-left: 5px;</span></span>
@ -362,7 +371,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   text-align: left;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_empty_group_heading {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_empty_group_heading {</span></span>
 <span><span class="co">#&gt;   padding: 0.5px;</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
@ -377,15 +386,15 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   vertical-align: middle;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_from_md &gt; :first-child {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_from_md &gt; :first-child {</span></span>
 <span><span class="co">#&gt;   margin-top: 0;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_from_md &gt; :last-child {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_from_md &gt; :last-child {</span></span>
 <span><span class="co">#&gt;   margin-bottom: 0;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_row {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_row {</span></span>
 <span><span class="co">#&gt;   padding-top: 8px;</span></span>
 <span><span class="co">#&gt;   padding-bottom: 8px;</span></span>
 <span><span class="co">#&gt;   padding-left: 5px;</span></span>
@ -404,7 +413,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   overflow-x: hidden;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_stub {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_stub {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   font-size: 100%;</span></span>
@ -417,7 +426,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   padding-right: 5px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_stub_row_group {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_stub_row_group {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   font-size: 100%;</span></span>
@ -431,11 +440,11 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   vertical-align: top;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_row_group_first td {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_row_group_first td {</span></span>
 <span><span class="co">#&gt;   border-top-width: 2px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_summary_row {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_summary_row {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   text-transform: inherit;</span></span>
@ -445,16 +454,16 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   padding-right: 5px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_first_summary_row {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_first_summary_row {</span></span>
 <span><span class="co">#&gt;   border-top-style: solid;</span></span>
 <span><span class="co">#&gt;   border-top-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_first_summary_row.thick {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_first_summary_row.thick {</span></span>
 <span><span class="co">#&gt;   border-top-width: 2px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_last_summary_row {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_last_summary_row {</span></span>
 <span><span class="co">#&gt;   padding-top: 8px;</span></span>
 <span><span class="co">#&gt;   padding-bottom: 8px;</span></span>
 <span><span class="co">#&gt;   padding-left: 5px;</span></span>
@ -464,7 +473,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-bottom-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_grand_summary_row {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_grand_summary_row {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   text-transform: inherit;</span></span>
@ -474,7 +483,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   padding-right: 5px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_first_grand_summary_row {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_first_grand_summary_row {</span></span>
 <span><span class="co">#&gt;   padding-top: 8px;</span></span>
 <span><span class="co">#&gt;   padding-bottom: 8px;</span></span>
 <span><span class="co">#&gt;   padding-left: 5px;</span></span>
@ -484,11 +493,11 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-top-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_striped {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_striped {</span></span>
 <span><span class="co">#&gt;   background-color: rgba(128, 128, 128, 0.05);</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_table_body {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_table_body {</span></span>
 <span><span class="co">#&gt;   border-top-style: solid;</span></span>
 <span><span class="co">#&gt;   border-top-width: 2px;</span></span>
 <span><span class="co">#&gt;   border-top-color: #D3D3D3;</span></span>
@ -497,7 +506,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-bottom-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_footnotes {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_footnotes {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   border-bottom-style: none;</span></span>
@ -511,7 +520,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-right-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_footnote {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_footnote {</span></span>
 <span><span class="co">#&gt;   margin: 0px;</span></span>
 <span><span class="co">#&gt;   font-size: 90%;</span></span>
 <span><span class="co">#&gt;   padding-left: 4px;</span></span>
@ -520,7 +529,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   padding-right: 5px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_sourcenotes {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_sourcenotes {</span></span>
 <span><span class="co">#&gt;   color: #333333;</span></span>
 <span><span class="co">#&gt;   background-color: #FFFFFF;</span></span>
 <span><span class="co">#&gt;   border-bottom-style: none;</span></span>
@ -534,7 +543,7 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   border-right-color: #D3D3D3;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_sourcenote {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_sourcenote {</span></span>
 <span><span class="co">#&gt;   font-size: 90%;</span></span>
 <span><span class="co">#&gt;   padding-top: 4px;</span></span>
 <span><span class="co">#&gt;   padding-bottom: 4px;</span></span>
@ -542,64 +551,64 @@ model plot (with <code><a href="../reference/ci_plot.html">stRoke::ci_plot()</a>
 <span><span class="co">#&gt;   padding-right: 5px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_left {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_left {</span></span>
 <span><span class="co">#&gt;   text-align: left;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_center {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_center {</span></span>
 <span><span class="co">#&gt;   text-align: center;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_right {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_right {</span></span>
 <span><span class="co">#&gt;   text-align: right;</span></span>
 <span><span class="co">#&gt;   font-variant-numeric: tabular-nums;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_font_normal {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_font_normal {</span></span>
 <span><span class="co">#&gt;   font-weight: normal;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_font_bold {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_font_bold {</span></span>
 <span><span class="co">#&gt;   font-weight: bold;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_font_italic {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_font_italic {</span></span>
 <span><span class="co">#&gt;   font-style: italic;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_super {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_super {</span></span>
 <span><span class="co">#&gt;   font-size: 65%;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_footnote_marks {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_footnote_marks {</span></span>
 <span><span class="co">#&gt;   font-style: italic;</span></span>
 <span><span class="co">#&gt;   font-weight: normal;</span></span>
 <span><span class="co">#&gt;   font-size: 75%;</span></span>
 <span><span class="co">#&gt;   vertical-align: 0.4em;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_asterisk {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_asterisk {</span></span>
 <span><span class="co">#&gt;   font-size: 100%;</span></span>
 <span><span class="co">#&gt;   vertical-align: 0;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_indent_1 {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_indent_1 {</span></span>
 <span><span class="co">#&gt;   text-indent: 5px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_indent_2 {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_indent_2 {</span></span>
 <span><span class="co">#&gt;   text-indent: 10px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_indent_3 {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_indent_3 {</span></span>
 <span><span class="co">#&gt;   text-indent: 15px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_indent_4 {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_indent_4 {</span></span>
 <span><span class="co">#&gt;   text-indent: 20px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; #suejnmoipq .gt_indent_5 {</span></span>
+<span><span class="co">#&gt; #oxebipzbdp .gt_indent_5 {</span></span>
 <span><span class="co">#&gt;   text-indent: 25px;</span></span>
 <span><span class="co">#&gt; }</span></span>
 <span><span class="co">#&gt; &lt;/style&gt;</span></span>
--- a/docs/articles/index.html
+++ b/docs/articles/index.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
--- a/docs/articles/redcap.html
+++ b/docs/articles/redcap.html
@ -26,7 +26,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
--- a/docs/articles/toolbox_files/figure-html/ci_plot-example-1.png
+++ b/docs/articles/toolbox_files/figure-html/ci_plot-example-1.png
--- a/docs/authors.html
+++ b/docs/authors.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -64,11 +64,11 @@
      <p><small class="dont-index">Source: <a href="https://github.com/agdamsbo/stRoke/blob/HEAD/DESCRIPTION" class="external-link"><code>DESCRIPTION</code></a></small></p>

      <p>Damsbo A (2023).
-<em>stRoke: Clinical Stroke Research Toolbox</em>.
+<em>stRoke: Clinical stroke research toolbox</em>.
 https://agdamsbo.github.io/stRoke/, https://github.com/agdamsbo/stRoke, https://agdamsbo.github.io/neuRo-group/. 
 </p>
      <pre>@Manual{,
-  title = {stRoke: Clinical Stroke Research Toolbox},
+  title = {stRoke: Clinical stroke research toolbox},
  author = {Andreas Gammelgaard Damsbo},
  year = {2023},
  note = {https://agdamsbo.github.io/stRoke/, https://github.com/agdamsbo/stRoke, https://agdamsbo.github.io/neuRo-group/},
--- a/docs/index.html
+++ b/docs/index.html
@ -9,12 +9,12 @@
    and analysis in clinical health research and teaching.
    The package is mainly collected for personal use, but any use beyond that is encouraged.
    This package has migrated functions from the agdamsbo/daDoctoR-package, and new functions has been added.">
-<title>Clinical Stroke Research Toolbox • stRoke</title>
+<title>Clinical stroke research toolbox • stRoke</title>
 <script src="deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
 <link href="deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet">
 <script src="deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous">
 <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous">
-<!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="pkgdown.js"></script><meta property="og:title" content="Clinical Stroke Research Toolbox">
+<!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="pkgdown.js"></script><meta property="og:title" content="Clinical stroke research toolbox">
 <meta property="og:description" content="This is an R-toolbox of custom functions for convenient data management 
    and analysis in clinical health research and teaching.
    The package is mainly collected for personal use, but any use beyond that is encouraged.
@ -32,7 +32,7 @@
    
    <a class="navbar-brand me-2" href="index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -78,11 +78,17 @@
 <div class="page-header"><h1 id="stroke-package-">stRoke package <img src="reference/figures/hexlogo.png" align="right"><a class="anchor" aria-label="anchor" href="#stroke-package-"></a>
 </h1></div>
 <p>This is an R-toolbox of custom functions for convenient data management and analysis in clinical health research and teaching. The package is mainly collected for personal use, but any use beyond that is encouraged. This package has migrated functions from the agdamsbo/daDoctoR-package, and new functions has been added.</p>
-<div class="section level2">
-<h2 id="source">Source<a class="anchor" aria-label="anchor" href="#source"></a>
-</h2>
-<p>This package is <a href="https://github.com/agdamsbo/stRoke" class="external-link">shared on GitHub</a>, and you are very welcome to contribute by opening an issue or a pull request.</p>
 </div>
+<div class="section level1">
+<h1 id="a-few-notes">A few notes<a class="anchor" aria-label="anchor" href="#a-few-notes"></a>
+</h1>
+<p>The function <code><a href="reference/generic_stroke.html">generic_stroke()</a></code>can be used with <code>data(talos)</code> or a custom data set to illustrate the classic analysis of mRS outcome from stroke trials.</p>
+<p>In documenting and testing the package, I have used <a href="https://beta.openai.com/overview" class="external-link">OpenAI’s</a> chatgpt with <a href="https://jameshwade.github.io/gpttools/" class="external-link">gpttools</a>. The chatgpt is an interesting tool, that is in no way perfect, but it helps with tedious tasks. Both <code>gpttools</code> and <a href="https://michelnivard.github.io/gptstudio/" class="external-link"><code>gptstudio</code></a> are interesting implementations in R and RStudio.</p>
+</div>
+<div class="section level1">
+<h1 id="source">Source<a class="anchor" aria-label="anchor" href="#source"></a>
+</h1>
+<p>This package is <a href="https://github.com/agdamsbo/stRoke" class="external-link">shared on GitHub</a>, and you are very welcome to contribute by opening an issue or a pull request.</p>
 </div>
 <div class="section level1">
 <h1 id="installation">Installation<a class="anchor" aria-label="anchor" href="#installation"></a>
--- a/docs/news/index.html
+++ b/docs/news/index.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -51,21 +51,6 @@
      <small>Source: <a href="https://github.com/agdamsbo/stRoke/blob/HEAD/NEWS.md" class="external-link"><code>NEWS.md</code></a></small>
    </div>

-    <div class="section level2">
-<h2 class="pkg-version" data-toc-text="0.23.1.3" id="stroke-02313">stRoke 0.23.1.3<a class="anchor" aria-label="anchor" href="#stroke-02313"></a></h2>
-<div class="section level3">
-<h3 id="functions-0-23-1-3">Functions:<a class="anchor" aria-label="anchor" href="#functions-0-23-1-3"></a></h3>
-<ul><li>files_filter() added. Simple function to get file names in path with specified filter.</li>
-<li>updated cpr_dob to give warnings if format is not recognised and return NAs.</li>
-<li>ci_plot() updated to actually handle binary factors. Uses glm(), not lm().</li>
-</ul></div>
-<div class="section level3">
-<h3 id="documentation-0-23-1-3">Documentation:<a class="anchor" aria-label="anchor" href="#documentation-0-23-1-3"></a></h3>
-<ul><li>test, test and tests to satisfy codecov and, of course, ensure higher quality</li>
-<li>changes to comply with goodpractices::gp()</li>
-</ul><p>…and probably some more.</p>
-</div>
-</div>
    <div class="section level2">
 <h2 class="pkg-version" data-toc-text="0.23.1.2" id="stroke-02312">stRoke 0.23.1.2<a class="anchor" aria-label="anchor" href="#stroke-02312"></a></h2>
 <div class="section level3">
--- a/docs/pkgdown.yml
+++ b/docs/pkgdown.yml
@ -4,5 +4,5 @@ pkgdown_sha: ~
 articles:
  redcap: redcap.html
  toolbox: toolbox.html
-last_built: 2023-01-11T11:56Z
+last_built: 2023-01-05T09:19Z

--- a/docs/reference/age_calc.html
+++ b/docs/reference/age_calc.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -88,9 +88,7 @@ Can be c("days", "months", "years")</p></dd>
    </div>
    <div class="section level2">
    <h2 id="references">References<a class="anchor" aria-label="anchor" href="#references"></a></h2>
-    <p>Becker, J.P. (2020). eeptools: An R Package for Teaching and Learning Ecology
-and Evolutionary Biology. Journal of Statistical Software, 93(2), 1-27.
-doi: 10.18637/jss.v093.i02</p>
+    <p>Becker, J.P. (2020). eeptools: An R Package for Teaching and Learning Ecology and Evolutionary Biology. Journal of Statistical Software, 93(2), 1-27. doi: 10.18637/jss.v093.i02</p>
    </div>
    <div class="section level2">
    <h2 id="see-also">See also<a class="anchor" aria-label="anchor" href="#see-also"></a></h2>
--- a/docs/reference/ci_plot-1.png
+++ b/docs/reference/ci_plot-1.png
--- a/docs/reference/ci_plot.html
+++ b/docs/reference/ci_plot.html
@ -1,8 +1,6 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content='Horizontal forest plot of point estimate with confidence intervals.
-Includes dichotomous or olr, depending on number of levels in "x".
-Title and axis labels can be added to the ggplot afterwards.'><title>Confidence interval plot with point estimate — ci_plot • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Confidence interval plot with point estimate — ci_plot"><meta property="og:description" content='Horizontal forest plot of point estimate with confidence intervals.
-Includes dichotomous or olr, depending on number of levels in "x".
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content='Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
+Title and axis labels can be added to the ggplot afterwards.'><title>Confidence interval plot with point estimate — ci_plot • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Confidence interval plot with point estimate — ci_plot"><meta property="og:description" content='Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
 Title and axis labels can be added to the ggplot afterwards.'><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
@ -14,7 +12,7 @@ Title and axis labels can be added to the ggplot afterwards.'><!-- mathjax --><s
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -57,8 +55,7 @@ Title and axis labels can be added to the ggplot afterwards.'><!-- mathjax --><s
    </div>

    <div class="ref-description section level2">
-    <p>Horizontal forest plot of point estimate with confidence intervals.
-Includes dichotomous or olr, depending on number of levels in "x".
+    <p>Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
 Title and axis labels can be added to the ggplot afterwards.</p>
    </div>

--- a/docs/reference/cpr_check.html
+++ b/docs/reference/cpr_check.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -64,8 +64,7 @@
    <div class="section level2">
    <h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
    <dl><dt>cpr</dt>
-<dd><p>cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx.
-Also mixed formatting. Vector or data frame column.</p></dd>
+<dd><p>cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.</p></dd>

 </dl></div>
    <div class="section level2">
@ -77,21 +76,17 @@ Also mixed formatting. Vector or data frame column.</p></dd>

    <div class="section level2">
    <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
-    <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">fsd</span><span class="op">&lt;-</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"2310450637"</span>, <span class="st">"010190-2000"</span>, <span class="st">"010115-4000"</span>,</span></span>
-<span class="r-in"><span><span class="st">"300450-1030"</span>,<span class="st">"010150-4021"</span><span class="op">)</span></span></span>
+    <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">fsd</span><span class="op">&lt;-</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"2310450637"</span>, <span class="st">"010190-2000"</span>, <span class="st">"010115-4000"</span>,<span class="st">"300450-1030"</span>,<span class="st">"010150-4021"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="fu">cpr_check</span><span class="op">(</span><span class="st">"2310450637"</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> OBS: as per 2007 not all valid CPR numbers apply to modulus 11 rule. </span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>     </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> See the vignette 'Toolbox'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] TRUE</span>
 <span class="r-in"><span><span class="fu">cpr_check</span><span class="op">(</span><span class="va">fsd</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> OBS: as per 2007 not all valid CPR numbers apply to modulus 11 rule. </span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>     </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> See the vignette 'Toolbox'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1]  TRUE FALSE FALSE FALSE FALSE</span>
 <span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/base/all.html" class="external-link">all</a></span><span class="op">(</span><span class="fu">cpr_check</span><span class="op">(</span><span class="va">fsd</span><span class="op">)</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> OBS: as per 2007 not all valid CPR numbers apply to modulus 11 rule. </span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>     </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> See the vignette 'Toolbox'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] FALSE</span>
 </code></pre></div>
--- a/docs/reference/cpr_dob.html
+++ b/docs/reference/cpr_dob.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -64,8 +64,7 @@
    <div class="section level2">
    <h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
    <dl><dt>cpr</dt>
-<dd><p>cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx.
-Also mixed formatting. Vector or data frame column.</p></dd>
+<dd><p>cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.</p></dd>


 <dt>format</dt>
@ -83,8 +82,7 @@ Also mixed formatting. Vector or data frame column.</p></dd>
    <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
    <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">cpr_dob</span><span class="op">(</span><span class="st">"231045-0637"</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "23-10-1945"</span>
-<span class="r-in"><span><span class="va">fsd</span><span class="op">&lt;-</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"2310450637"</span>, <span class="st">"010190-2000"</span>, <span class="st">"010115-4000"</span>,</span></span>
-<span class="r-in"><span><span class="st">"300450-1030"</span>,<span class="st">"010150-4021"</span><span class="op">)</span></span></span>
+<span class="r-in"><span><span class="va">fsd</span><span class="op">&lt;-</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"2310450637"</span>, <span class="st">"010190-2000"</span>, <span class="st">"010115-4000"</span>,<span class="st">"300450-1030"</span>,<span class="st">"010150-4021"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="fu">cpr_dob</span><span class="op">(</span><span class="va">fsd</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "23-10-1945" "01-01-1990" "01-01-2015" "30-04-1950" "01-01-1950"</span>
 </code></pre></div>
--- a/docs/reference/cpr_female.html
+++ b/docs/reference/cpr_female.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -64,8 +64,7 @@
    <div class="section level2">
    <h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
    <dl><dt>cpr</dt>
-<dd><p>Vector. cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx.
-Also mixed formatting. Vector or data frame column.</p></dd>
+<dd><p>Vector. cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.</p></dd>

 </dl></div>
    <div class="section level2">
--- a/docs/reference/cprs.html
+++ b/docs/reference/cprs.html
@ -1,7 +1,5 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="This is just a repeated sample of 8 synthesized cpr-numbers
-for testing purposes."><title>Data frame of 200 cpr numbers — cprs • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Data frame of 200 cpr numbers — cprs"><meta property="og:description" content="This is just a repeated sample of 8 synthesized cpr-numbers
-for testing purposes."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="This is just a repeated sample of 8 synthesized cpr-numbers for testing purposes."><title>Data frame of 200 cpr numbers — cprs • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Data frame of 200 cpr numbers — cprs"><meta property="og:description" content="This is just a repeated sample of 8 synthesized cpr-numbers for testing purposes."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@ -12,7 +10,7 @@ for testing purposes."><!-- mathjax --><script src="https://cdnjs.cloudflare.com
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -55,8 +53,7 @@ for testing purposes."><!-- mathjax --><script src="https://cdnjs.cloudflare.com
    </div>

    <div class="ref-description section level2">
-    <p>This is just a repeated sample of 8 synthesized cpr-numbers
-for testing purposes.</p>
+    <p>This is just a repeated sample of 8 synthesized cpr-numbers for testing purposes.</p>
    </div>

    <div class="section level2">
@ -73,7 +70,7 @@ for testing purposes.</p>
 </dl></div>
    <div class="section level2">
    <h2 id="source">Source<a class="anchor" aria-label="anchor" href="#source"></a></h2>
-    <p><a href="https://da.wikipedia.org/wiki/231045-0637" class="external-link">https://da.wikipedia.org/wiki/231045-0637</a></p>
+    <p><a href="https://da.wikipedia.org/wiki/231045-0637/" class="external-link">https://da.wikipedia.org/wiki/231045-0637/</a></p>
    </div>

  </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
--- a/docs/reference/files_filter.html
+++ b/docs/reference/files_filter.html
@ -1,115 +0,0 @@
-<!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="This function filters files in a folder based on the
-provided filter."><title>Filter files in a folder — files_filter • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Filter files in a folder — files_filter"><meta property="og:description" content="This function filters files in a folder based on the
-provided filter."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
-<script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
-<script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
-<![endif]--></head><body>
-    <a href="#main" class="visually-hidden-focusable">Skip to contents</a>
-    
-
-    <nav class="navbar fixed-top navbar-light navbar-expand-lg bg-light"><div class="container">
-    
-    <a class="navbar-brand me-2" href="../index.html">stRoke</a>
-
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
-
-    
-    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
-      <span class="navbar-toggler-icon"></span>
-    </button>
-
-    <div id="navbar" class="collapse navbar-collapse ms-3">
-      <ul class="navbar-nav me-auto"><li class="active nav-item">
-  <a class="nav-link" href="../reference/index.html">Reference</a>
-</li>
-<li class="nav-item dropdown">
-  <a href="#" class="nav-link dropdown-toggle" data-bs-toggle="dropdown" role="button" aria-expanded="false" aria-haspopup="true" id="dropdown-articles">Articles</a>
-  <div class="dropdown-menu" aria-labelledby="dropdown-articles">
-    <a class="dropdown-item" href="../articles/redcap.html">Simple REDCap workflow</a>
-    <a class="dropdown-item" href="../articles/toolbox.html">Toolbox</a>
-  </div>
-</li>
-<li class="nav-item">
-  <a class="nav-link" href="../news/index.html">Changelog</a>
-</li>
-      </ul><form class="form-inline my-2 my-lg-0" role="search">
-        <input type="search" class="form-control me-sm-2" aria-label="Toggle navigation" name="search-input" data-search-index="../search.json" id="search-input" placeholder="Search for" autocomplete="off"></form>
-
-      <ul class="navbar-nav"><li class="nav-item">
-  <a class="external-link nav-link" href="https://github.com/agdamsbo/stRoke/" aria-label="github">
-    <span class="fab fa fab fa-github fa-lg"></span>
-     
-  </a>
-</li>
-      </ul></div>
-
-    
-  </div>
-</nav><div class="container template-reference-topic">
-<div class="row">
-  <main id="main" class="col-md-9"><div class="page-header">
-      <img src="" class="logo" alt=""><h1>Filter files in a folder</h1>
-      <small class="dont-index">Source: <a href="https://github.com/agdamsbo/stRoke/blob/HEAD/R/files_filter.R" class="external-link"><code>R/files_filter.R</code></a></small>
-      <div class="d-none name"><code>files_filter.Rd</code></div>
-    </div>
-
-    <div class="ref-description section level2">
-    <p>This function filters files in a folder based on the
-provided filter.</p>
-    </div>
-
-    <div class="section level2">
-    <h2 id="ref-usage">Usage<a class="anchor" aria-label="anchor" href="#ref-usage"></a></h2>
-    <div class="sourceCode"><pre class="sourceCode r"><code><span><span class="fu">files_filter</span><span class="op">(</span><span class="va">folder.path</span>, <span class="va">filter.by</span>, full.names <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></code></pre></div>
-    </div>
-
-    <div class="section level2">
-    <h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
-    <dl><dt>folder.path</dt>
-<dd><p>character. Path of the folder to be filtered</p></dd>
-
-
-<dt>filter.by</dt>
-<dd><p>character. Filter to be applied on the files</p></dd>
-
-
-<dt>full.names</dt>
-<dd><p>logical. Whether to return full file names or not</p></dd>
-
-</dl></div>
-    <div class="section level2">
-    <h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
-    
-
-<p>character vector. Filtered files</p>
-    </div>
-
-    <div class="section level2">
-    <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
-    <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="co"># Gives path to files/folders with "tests" in the name in the </span></span></span>
-<span class="r-in"><span><span class="co"># working directory</span></span></span>
-<span class="r-in"><span><span class="fu">files_filter</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/getwd.html" class="external-link">getwd</a></span><span class="op">(</span><span class="op">)</span>,<span class="st">"tests"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> character(0)</span>
-</code></pre></div>
-    </div>
-  </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
-    </nav></aside></div>
-
-
-    <footer><div class="pkgdown-footer-left">
-  <p></p><p>Developed by Andreas Gammelgaard Damsbo.</p>
-</div>
-
-<div class="pkgdown-footer-right">
-  <p></p><p>Site built with <a href="https://pkgdown.r-lib.org/" class="external-link">pkgdown</a> 2.0.7.</p>
-</div>
-
-    </footer></div>
-
-  
-
-  
-
-  </body></html>
-
--- a/docs/reference/generic_stroke.html
+++ b/docs/reference/generic_stroke.html
@ -14,7 +14,7 @@ To dos: modify grottaBar and include as own function."><!-- mathjax --><script s
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -98,16 +98,15 @@ To dos: modify grottaBar and include as own function.</p>

    <div class="section level2">
    <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
-    <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">generic_stroke</span><span class="op">(</span><span class="fu">stRoke</span><span class="fu">::</span><span class="va"><a href="talos.html">talos</a></span>, <span class="st">"rtreat"</span>, <span class="st">"mrs_6"</span>, </span></span>
-<span class="r-in"><span>variables <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"hypertension"</span>,<span class="st">"diabetes"</span>,<span class="st">"civil"</span><span class="op">)</span><span class="op">)</span></span></span>
+    <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">generic_stroke</span><span class="op">(</span><span class="fu">stRoke</span><span class="fu">::</span><span class="va"><a href="talos.html">talos</a></span>, <span class="st">"rtreat"</span>, <span class="st">"mrs_6"</span>, variables <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"hypertension"</span>,<span class="st">"diabetes"</span>,<span class="st">"civil"</span><span class="op">)</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Waiting for profiling to be done...</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> $`Table 1`</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> &lt;div id="cjgwtxwdpe" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;"&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> &lt;div id="umxtlfcsnb" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;"&gt;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   &lt;style&gt;html {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-family: -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, Oxygen, Ubuntu, Cantarell, 'Helvetica Neue', 'Fira Sans', 'Droid Sans', Arial, sans-serif;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_table {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_table {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   display: table;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-collapse: collapse;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   margin-left: auto;</span>
@ -132,7 +131,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-left-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_heading {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_heading {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: center;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #FFFFFF;</span>
@ -144,12 +143,12 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-right-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_caption {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_caption {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 4px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 4px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_title {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_title {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 125%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: initial;</span>
@ -161,7 +160,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-width: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_subtitle {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_subtitle {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 85%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: initial;</span>
@ -173,13 +172,13 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_bottom_border {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_bottom_border {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_col_headings {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_col_headings {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-color: #D3D3D3;</span>
@ -194,7 +193,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-right-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_col_heading {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_col_heading {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
@ -214,7 +213,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   overflow-x: hidden;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_column_spanner_outer {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_column_spanner_outer {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
@ -226,15 +225,15 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 4px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_column_spanner_outer:first-child {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_column_spanner_outer:first-child {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_column_spanner_outer:last-child {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_column_spanner_outer:last-child {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_column_spanner {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_column_spanner {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #D3D3D3;</span>
@ -246,7 +245,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   width: 100%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_group_heading {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_group_heading {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 5px;</span>
@ -272,7 +271,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: left;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_empty_group_heading {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_empty_group_heading {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding: 0.5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
@ -287,15 +286,15 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   vertical-align: middle;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_from_md &gt; :first-child {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_from_md &gt; :first-child {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   margin-top: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_from_md &gt; :last-child {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_from_md &gt; :last-child {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   margin-bottom: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 5px;</span>
@ -314,7 +313,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   overflow-x: hidden;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_stub {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_stub {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
@ -327,7 +326,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_stub_row_group {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_stub_row_group {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
@ -341,11 +340,11 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   vertical-align: top;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_row_group_first td {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_row_group_first td {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-transform: inherit;</span>
@ -355,16 +354,16 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_first_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_first_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_first_summary_row.thick {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_first_summary_row.thick {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_last_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_last_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 5px;</span>
@ -374,7 +373,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_grand_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_grand_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-transform: inherit;</span>
@ -384,7 +383,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_first_grand_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_first_grand_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 5px;</span>
@ -394,11 +393,11 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_striped {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_striped {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: rgba(128, 128, 128, 0.05);</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_table_body {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_table_body {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-color: #D3D3D3;</span>
@ -407,7 +406,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_footnotes {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_footnotes {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-style: none;</span>
@ -421,7 +420,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-right-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_footnote {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_footnote {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   margin: 0px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 90%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 4px;</span>
@ -430,7 +429,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_sourcenotes {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_sourcenotes {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-style: none;</span>
@ -444,7 +443,7 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-right-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_sourcenote {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_sourcenote {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 90%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 4px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 4px;</span>
@ -452,64 +451,64 @@ To dos: modify grottaBar and include as own function.</p>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_left {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_left {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: left;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_center {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_center {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: center;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_right {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_right {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: right;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-variant-numeric: tabular-nums;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_font_normal {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_font_normal {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: normal;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_font_bold {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_font_bold {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: bold;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_font_italic {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_font_italic {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-style: italic;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_super {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_super {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 65%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_footnote_marks {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_footnote_marks {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-style: italic;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: normal;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 75%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   vertical-align: 0.4em;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_asterisk {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_asterisk {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   vertical-align: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_indent_1 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_indent_1 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_indent_2 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_indent_2 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 10px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_indent_3 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_indent_3 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 15px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_indent_4 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_indent_4 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 20px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #cjgwtxwdpe .gt_indent_5 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #umxtlfcsnb .gt_indent_5 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 25px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> &lt;/style&gt;</span>
--- a/docs/reference/index.html
+++ b/docs/reference/index.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -93,11 +93,6 @@
        <dd>Data frame of 200 cpr numbers</dd>
      </dl><dl><dt>
          
-          <code><a href="files_filter.html">files_filter()</a></code> 
-        </dt>
-        <dd>Filter files in a folder</dd>
-      </dl><dl><dt>
-          
          <code><a href="generic_stroke.html">generic_stroke()</a></code> 
        </dt>
        <dd>Generic stroke study outcome</dd>
--- a/docs/reference/index_plot.html
+++ b/docs/reference/index_plot.html
@ -1,7 +1,5 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="Plot index scores from five dimensional cognitive testing.
-Includes option to facet."><title>Plot multidimensional cognitive test scores — index_plot • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Plot multidimensional cognitive test scores — index_plot"><meta property="og:description" content="Plot index scores from five dimensional cognitive testing.
-Includes option to facet."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="Plot index scores from five dimensional cognitive testing. Includes option to facet."><title>Plot multidimensional cognitive test scores — index_plot • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Plot multidimensional cognitive test scores — index_plot"><meta property="og:description" content="Plot index scores from five dimensional cognitive testing. Includes option to facet."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@ -12,7 +10,7 @@ Includes option to facet."><!-- mathjax --><script src="https://cdnjs.cloudflare
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -55,8 +53,7 @@ Includes option to facet."><!-- mathjax --><script src="https://cdnjs.cloudflare
    </div>

    <div class="ref-description section level2">
-    <p>Plot index scores from five dimensional cognitive testing.
-Includes option to facet.</p>
+    <p>Plot index scores from five dimensional cognitive testing. Includes option to facet.</p>
    </div>

    <div class="section level2">
@ -86,8 +83,7 @@ Includes option to facet.</p>


 <dt>scores</dt>
-<dd><p>variables to subset for plotting. Has to follow standard
-naming (is to be changed)</p></dd>
+<dd><p>variables to subset for plotting. Has to follow standard naming (is to be changed)</p></dd>


 <dt>dom_names</dt>
--- a/docs/reference/label_select.html
+++ b/docs/reference/label_select.html
@ -12,7 +12,7 @@ Alternative is to use attributes, eg from library(Hmisc).'><!-- mathjax --><scri
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -91,14 +91,13 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-in"><span><span class="va">mrs_1</span><span class="op">~</span><span class="st">"One month mRS"</span>, </span></span>
 <span class="r-in"><span><span class="va">mrs_6</span><span class="op">~</span><span class="st">"Six months mRS"</span>, </span></span>
 <span class="r-in"><span><span class="st">'[Intercept]'</span><span class="op">~</span><span class="st">"Intercept"</span><span class="op">)</span></span></span>
-<span class="r-in"><span><span class="fu">stRoke</span><span class="fu">::</span><span class="va"><a href="talos.html">talos</a></span><span class="op">[</span><span class="va">vars</span><span class="op">]</span> <span class="op">|&gt;</span> </span></span>
-<span class="r-in"><span><span class="fu">gtsummary</span><span class="fu">::</span><span class="fu"><a href="https://www.danieldsjoberg.com/gtsummary/reference/tbl_summary.html" class="external-link">tbl_summary</a></span><span class="op">(</span>label <span class="op">=</span> <span class="fu">label_select</span><span class="op">(</span><span class="va">labels_all</span>,<span class="va">vars</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> &lt;div id="jwdszbudyy" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;"&gt;</span>
+<span class="r-in"><span><span class="fu">stRoke</span><span class="fu">::</span><span class="va"><a href="talos.html">talos</a></span><span class="op">[</span><span class="va">vars</span><span class="op">]</span> <span class="op">|&gt;</span> <span class="fu">gtsummary</span><span class="fu">::</span><span class="fu"><a href="https://www.danieldsjoberg.com/gtsummary/reference/tbl_summary.html" class="external-link">tbl_summary</a></span><span class="op">(</span>label <span class="op">=</span> <span class="fu">label_select</span><span class="op">(</span><span class="va">labels_all</span>,<span class="va">vars</span><span class="op">)</span><span class="op">)</span></span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> &lt;div id="ggsdbzrbyq" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;"&gt;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   &lt;style&gt;html {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-family: -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, Oxygen, Ubuntu, Cantarell, 'Helvetica Neue', 'Fira Sans', 'Droid Sans', Arial, sans-serif;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_table {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_table {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   display: table;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-collapse: collapse;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   margin-left: auto;</span>
@ -123,7 +122,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-left-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_heading {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_heading {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: center;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #FFFFFF;</span>
@ -135,12 +134,12 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-right-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_caption {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_caption {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 4px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 4px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_title {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_title {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 125%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: initial;</span>
@ -152,7 +151,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-width: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_subtitle {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_subtitle {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 85%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: initial;</span>
@ -164,13 +163,13 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_bottom_border {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_bottom_border {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_col_headings {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_col_headings {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-color: #D3D3D3;</span>
@ -185,7 +184,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-right-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_col_heading {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_col_heading {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
@ -205,7 +204,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   overflow-x: hidden;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_column_spanner_outer {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_column_spanner_outer {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
@ -217,15 +216,15 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 4px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_column_spanner_outer:first-child {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_column_spanner_outer:first-child {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_column_spanner_outer:last-child {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_column_spanner_outer:last-child {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_column_spanner {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_column_spanner {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #D3D3D3;</span>
@ -237,7 +236,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   width: 100%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_group_heading {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_group_heading {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 5px;</span>
@ -263,7 +262,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: left;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_empty_group_heading {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_empty_group_heading {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding: 0.5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
@ -278,15 +277,15 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   vertical-align: middle;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_from_md &gt; :first-child {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_from_md &gt; :first-child {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   margin-top: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_from_md &gt; :last-child {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_from_md &gt; :last-child {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   margin-bottom: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 5px;</span>
@ -305,7 +304,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   overflow-x: hidden;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_stub {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_stub {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
@ -318,7 +317,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_stub_row_group {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_stub_row_group {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
@ -332,11 +331,11 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   vertical-align: top;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_row_group_first td {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_row_group_first td {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-transform: inherit;</span>
@ -346,16 +345,16 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_first_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_first_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_first_summary_row.thick {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_first_summary_row.thick {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_last_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_last_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 5px;</span>
@ -365,7 +364,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_grand_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_grand_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-transform: inherit;</span>
@ -375,7 +374,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_first_grand_summary_row {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_first_grand_summary_row {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 8px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 5px;</span>
@ -385,11 +384,11 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_striped {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_striped {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: rgba(128, 128, 128, 0.05);</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_table_body {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_table_body {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-style: solid;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-width: 2px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-top-color: #D3D3D3;</span>
@ -398,7 +397,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_footnotes {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_footnotes {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-style: none;</span>
@ -412,7 +411,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-right-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_footnote {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_footnote {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   margin: 0px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 90%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-left: 4px;</span>
@ -421,7 +420,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_sourcenotes {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_sourcenotes {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   color: #333333;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   background-color: #FFFFFF;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-bottom-style: none;</span>
@ -435,7 +434,7 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   border-right-color: #D3D3D3;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_sourcenote {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_sourcenote {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 90%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-top: 4px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-bottom: 4px;</span>
@ -443,64 +442,64 @@ Alternative is to use attributes, eg from <code><a href="https://hbiostat.org/R/
 <span class="r-out co"><span class="r-pr">#&gt;</span>   padding-right: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_left {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_left {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: left;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_center {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_center {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: center;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_right {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_right {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-align: right;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-variant-numeric: tabular-nums;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_font_normal {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_font_normal {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: normal;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_font_bold {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_font_bold {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: bold;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_font_italic {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_font_italic {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-style: italic;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_super {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_super {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 65%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_footnote_marks {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_footnote_marks {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-style: italic;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-weight: normal;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 75%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   vertical-align: 0.4em;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_asterisk {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_asterisk {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   font-size: 100%;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   vertical-align: 0;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_indent_1 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_indent_1 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 5px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_indent_2 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_indent_2 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 10px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_indent_3 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_indent_3 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 15px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_indent_4 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_indent_4 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 20px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> #jwdszbudyy .gt_indent_5 {</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> #ggsdbzrbyq .gt_indent_5 {</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   text-indent: 25px;</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> &lt;/style&gt;</span>
--- a/docs/reference/plot_olr-1.png
+++ b/docs/reference/plot_olr-1.png
--- a/docs/reference/plot_olr.html
+++ b/docs/reference/plot_olr.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
--- a/docs/reference/quantile_cut.html
+++ b/docs/reference/quantile_cut.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -117,8 +117,8 @@
 <span class="r-in"><span><span class="va">x</span> <span class="op">&lt;-</span> <span class="fl">1</span><span class="op">:</span><span class="fl">450</span></span></span>
 <span class="r-in"><span><span class="va">y</span> <span class="op">&lt;-</span> <span class="fl">6</span><span class="op">:</span><span class="fl">750</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/base/summary.html" class="external-link">summary</a></span><span class="op">(</span><span class="fu">quantile_cut</span><span class="op">(</span><span class="va">aa</span>,groups<span class="op">=</span><span class="fl">4</span>,detail.list<span class="op">=</span><span class="cn">FALSE</span><span class="op">)</span><span class="op">)</span> <span class="co">## Cuts quartiles</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>     [1,251]   (251,494]   (494,765] (765,1e+03] </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>         500         500         501         499 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>     [1,254]   (254,523]   (523,759] (759,1e+03] </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>         501         500         499         500 </span>
 </code></pre></div>
    </div>
  </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
--- a/docs/reference/read_redcap_tables.html
+++ b/docs/reference/read_redcap_tables.html
@ -1,9 +1,7 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split
-including some clean-up. Works with longitudinal projects with repeating
-instruments."><title>Download REDCap data — read_redcap_tables • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Download REDCap data — read_redcap_tables"><meta property="og:description" content="Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split
-including some clean-up. Works with longitudinal projects with repeating
-instruments."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split including some clean-up.
+Handles"><title>Download REDCap data — read_redcap_tables • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Download REDCap data — read_redcap_tables"><meta property="og:description" content="Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split including some clean-up.
+Handles"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@ -14,7 +12,7 @@ instruments."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/lib
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -57,9 +55,8 @@ instruments."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/lib
    </div>

    <div class="ref-description section level2">
-    <p>Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split
-including some clean-up. Works with longitudinal projects with repeating
-instruments.</p>
+    <p>Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split including some clean-up.
+Handles</p>
    </div>

    <div class="section level2">
@ -103,8 +100,7 @@ instruments.</p>


 <dt>generics</dt>
-<dd><p>vector of auto-generated generic variable names to
-ignore when discarding empty rows</p></dd>
+<dd><p>vector of auto-generated generic variable names to ignore when discarding empty rows</p></dd>

 </dl></div>
    <div class="section level2">
--- a/docs/reference/score.html
+++ b/docs/reference/score.html
@ -1,7 +1,5 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="Contains non-identifiable organic trial data from a
-five-dimensional cognitive test."><title>Data frame with sample data of cognitive testing score — score • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Data frame with sample data of cognitive testing score — score"><meta property="og:description" content="Contains non-identifiable organic trial data from a
-five-dimensional cognitive test."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="Contains non-identifiable organic trial data from a five-dimensional cognitive test."><title>Data frame with sample data of cognitive testing score — score • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Data frame with sample data of cognitive testing score — score"><meta property="og:description" content="Contains non-identifiable organic trial data from a five-dimensional cognitive test."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@ -12,7 +10,7 @@ five-dimensional cognitive test."><!-- mathjax --><script src="https://cdnjs.clo
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -55,8 +53,7 @@ five-dimensional cognitive test."><!-- mathjax --><script src="https://cdnjs.clo
    </div>

    <div class="ref-description section level2">
-    <p>Contains non-identifiable organic trial data from a
-five-dimensional cognitive test.</p>
+    <p>Contains non-identifiable organic trial data from a five-dimensional cognitive test.</p>
    </div>

    <div class="section level2">
--- a/docs/reference/source_lines.html
+++ b/docs/reference/source_lines.html
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
--- a/docs/reference/stRoke-package.html
+++ b/docs/reference/stRoke-package.html
@ -1,5 +1,5 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="This is an R-toolbox of custom functions for convenient data management and analysis in clinical health research and teaching. The package is mainly collected for personal use, but any use beyond that is encouraged. This package has migrated functions from the agdamsbo/daDoctoR-package, and new functions has been added."><title>stRoke: Clinical Stroke Research Toolbox — stRoke-package • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="stRoke: Clinical Stroke Research Toolbox — stRoke-package"><meta property="og:description" content="This is an R-toolbox of custom functions for convenient data management and analysis in clinical health research and teaching. The package is mainly collected for personal use, but any use beyond that is encouraged. This package has migrated functions from the agdamsbo/daDoctoR-package, and new functions has been added."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="This is an R-toolbox of custom functions for convenient data management and analysis in clinical health research and teaching. The package is mainly collected for personal use, but any use beyond that is encouraged. This package has migrated functions from the agdamsbo/daDoctoR-package, and new functions has been added."><title>stRoke: Clinical stroke research toolbox — stRoke-package • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="stRoke: Clinical stroke research toolbox — stRoke-package"><meta property="og:description" content="This is an R-toolbox of custom functions for convenient data management and analysis in clinical health research and teaching. The package is mainly collected for personal use, but any use beyond that is encouraged. This package has migrated functions from the agdamsbo/daDoctoR-package, and new functions has been added."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@ -10,7 +10,7 @@
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -47,7 +47,7 @@
 </nav><div class="container template-reference-topic">
 <div class="row">
  <main id="main" class="col-md-9"><div class="page-header">
-      <img src="" class="logo" alt=""><h1>stRoke: Clinical Stroke Research Toolbox</h1>
+      <img src="" class="logo" alt=""><h1>stRoke: Clinical stroke research toolbox</h1>
      <small class="dont-index">Source: <a href="https://github.com/agdamsbo/stRoke/blob/HEAD/R/stRoke-package.R" class="external-link"><code>R/stRoke-package.R</code></a></small>
      <div class="d-none name"><code>stRoke-package.Rd</code></div>
    </div>
--- a/docs/reference/talos.html
+++ b/docs/reference/talos.html
@ -1,7 +1,5 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="Contains of non-identifiable data from
-the TALOS trial"><title>Data frame with sample of TALOS data — talos • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Data frame with sample of TALOS data — talos"><meta property="og:description" content="Contains of non-identifiable data from
-the TALOS trial"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="Contains of non-identifiable data from the TALOS trial"><title>Data frame with sample of TALOS data — talos • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Data frame with sample of TALOS data — talos"><meta property="og:description" content="Contains of non-identifiable data from the TALOS trial"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@ -12,7 +10,7 @@ the TALOS trial"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/
    
    <a class="navbar-brand me-2" href="../index.html">stRoke</a>

-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.3</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.23.1.2</small>

    
    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@ -55,8 +53,7 @@ the TALOS trial"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/
    </div>

    <div class="ref-description section level2">
-    <p>Contains of non-identifiable data from
-the <a href="https://doi.org/10.1161/STROKEAHA.117.020067/" class="external-link">TALOS trial</a></p>
+    <p>Contains of non-identifiable data from the <a href="https://doi.org/10.1161/STROKEAHA.117.020067/" class="external-link">TALOS trial</a></p>
    </div>

    <div class="section level2">
@ -88,7 +85,7 @@ the <a href="https://doi.org/10.1161/STROKEAHA.117.020067/" class="external-link
 </dl></div>
    <div class="section level2">
    <h2 id="source">Source<a class="anchor" aria-label="anchor" href="#source"></a></h2>
-    <p><a href="https://doi.org/10.1161/STROKEAHA.117.020067" class="external-link">doi:10.1161/STROKEAHA.117.020067</a></p>
+    <p><a href="https://doi.org/10.1161/STROKEAHA.117.020067/" class="external-link">https://doi.org/10.1161/STROKEAHA.117.020067/</a></p>
    </div>

  </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
--- a/docs/search.json
+++ b/docs/search.json
--- a/docs/sitemap.xml
+++ b/docs/sitemap.xml
@ -45,9 +45,6 @@
  <url>
    <loc>/reference/cprs.html</loc>
  </url>
-  <url>
-    <loc>/reference/files_filter.html</loc>
-  </url>
  <url>
    <loc>/reference/generic_stroke.html</loc>
  </url>
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@ -40,22 +40,17 @@ eg
 forrestplot
 gg
 ggplot
-glm
-goodpractices
-gp
 gpttools
 grotta
 grottaBar
 gtsummary
 https
 jss
-lm
 lst
 mRS
 neuRo
 olr
 polr
-recognised
 uri
 vec
 www
--- a/man/age_calc.Rd
+++ b/man/age_calc.Rd
@ -26,9 +26,7 @@ Calculate age in years, months, or days
 trunc(age_calc(as.Date("1945-10-23"),as.Date("2018-09-30")))
 }
 \references{
-Becker, J.P. (2020). eeptools: An R Package for Teaching and Learning Ecology
-and Evolutionary Biology. Journal of Statistical Software, 93(2), 1-27.
-doi: 10.18637/jss.v093.i02
+Becker, J.P. (2020). eeptools: An R Package for Teaching and Learning Ecology and Evolutionary Biology. Journal of Statistical Software, 93(2), 1-27. doi: 10.18637/jss.v093.i02
 }
 \seealso{
 \code{\link[lubridate]{time_length}}
--- a/man/ci_plot.Rd
+++ b/man/ci_plot.Rd
@ -25,8 +25,7 @@ ci_plot(ds, x, y, vars = NULL, dec = 3, lbls = NULL, title = NULL)
 ggplot element
 }
 \description{
-Horizontal forest plot of point estimate with confidence intervals.
-Includes dichotomous or olr, depending on number of levels in "x".
+Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
 Title and axis labels can be added to the ggplot afterwards.
 }
 \examples{
--- a/man/cpr_check.Rd
+++ b/man/cpr_check.Rd
@ -7,8 +7,7 @@
 cpr_check(cpr)
 }
 \arguments{
-\item{cpr}{cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx.
-Also mixed formatting. Vector or data frame column.}
+\item{cpr}{cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.}
 }
 \value{
 Logical vector of cpr validity
@ -17,8 +16,7 @@ Logical vector of cpr validity
 Checking validity of cpr number. Vectorised.
 }
 \examples{
-fsd<-c("2310450637", "010190-2000", "010115-4000",
-"300450-1030","010150-4021")
+fsd<-c("2310450637", "010190-2000", "010115-4000","300450-1030","010150-4021")
 cpr_check("2310450637")
 cpr_check(fsd)
 all(cpr_check(fsd))
--- a/man/cpr_dob.Rd
+++ b/man/cpr_dob.Rd
@ -7,8 +7,7 @@
 cpr_dob(cpr, format = "\%d-\%m-\%Y")
 }
 \arguments{
-\item{cpr}{cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx.
-Also mixed formatting. Vector or data frame column.}
+\item{cpr}{cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.}

 \item{format}{character string of dob date format. Default is "\%d-\%m-\%Y".}
 }
@ -20,8 +19,7 @@ For easy calculation. Does not handle cprs with letters (interim cpr)
 }
 \examples{
 cpr_dob("231045-0637")
-fsd<-c("2310450637", "010190-2000", "010115-4000",
-"300450-1030","010150-4021")
+fsd<-c("2310450637", "010190-2000", "010115-4000","300450-1030","010150-4021")
 cpr_dob(fsd)
 }
 \keyword{cpr}
--- a/man/cpr_female.Rd
+++ b/man/cpr_female.Rd
@ -7,8 +7,7 @@
 cpr_female(cpr)
 }
 \arguments{
-\item{cpr}{Vector. cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx.
-Also mixed formatting. Vector or data frame column.}
+\item{cpr}{Vector. cpr-numbers as ddmmyy"-."xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.}
 }
 \value{
 Logical vector
--- a/man/cprs.Rd
+++ b/man/cprs.Rd
@ -11,13 +11,12 @@ A data frame with 200 rows and 1 variable:
 }
 }
 \source{
-\url{https://da.wikipedia.org/wiki/231045-0637}
+\url{https://da.wikipedia.org/wiki/231045-0637/}
 }
 \usage{
 data(cprs)
 }
 \description{
-This is just a repeated sample of 8 synthesized cpr-numbers
-for testing purposes.
+This is just a repeated sample of 8 synthesized cpr-numbers for testing purposes.
 }
 \keyword{datasets}
--- a/man/files_filter.Rd
+++ b/man/files_filter.Rd
@ -1,27 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/files_filter.R
-\name{files_filter}
-\alias{files_filter}
-\title{Filter files in a folder}
-\usage{
-files_filter(folder.path, filter.by, full.names = TRUE)
-}
-\arguments{
-\item{folder.path}{character. Path of the folder to be filtered}
-
-\item{filter.by}{character. Filter to be applied on the files}
-
-\item{full.names}{logical. Whether to return full file names or not}
-}
-\value{
-character vector. Filtered files
-}
-\description{
-This function filters files in a folder based on the
-provided filter.
-}
-\examples{
-# Gives path to files/folders with "tests" in the name in the 
-# working directory
-files_filter(getwd(),"tests")
-}
--- a/man/generic_stroke.Rd
+++ b/man/generic_stroke.Rd
@ -26,6 +26,5 @@ Please just use this function for illustration purposes.
 To dos: modify grottaBar and include as own function.
 }
 \examples{
-generic_stroke(stRoke::talos, "rtreat", "mrs_6", 
-variables = c("hypertension","diabetes","civil"))
+generic_stroke(stRoke::talos, "rtreat", "mrs_6", variables = c("hypertension","diabetes","civil"))
 }
--- a/man/index_plot.Rd
+++ b/man/index_plot.Rd
@ -20,8 +20,7 @@ index_plot(

 \item{sub_plot}{main outcome scores variable to plot}

-\item{scores}{variables to subset for plotting. Has to follow standard
-naming (is to be changed)}
+\item{scores}{variables to subset for plotting. Has to follow standard naming (is to be changed)}

 \item{dom_names}{domain names for axis naming}

@ -31,8 +30,7 @@ naming (is to be changed)}
 ggplot element
 }
 \description{
-Plot index scores from five dimensional cognitive testing.
-Includes option to facet.
+Plot index scores from five dimensional cognitive testing. Includes option to facet.
 }
 \examples{
 index_plot(stRoke::score[score$event=="A",])
--- a/man/label_select.Rd
+++ b/man/label_select.Rd
@ -27,6 +27,5 @@ hypertension~"Known hypertension",
 mrs_1~"One month mRS", 
 mrs_6~"Six months mRS", 
 '[Intercept]'~"Intercept")
-stRoke::talos[vars] |> 
-gtsummary::tbl_summary(label = label_select(labels_all,vars))
+stRoke::talos[vars] |> gtsummary::tbl_summary(label = label_select(labels_all,vars))
 }
--- a/man/read_redcap_tables.Rd
+++ b/man/read_redcap_tables.Rd
@ -28,16 +28,14 @@ read_redcap_tables(

 \item{forms}{forms to download}

-\item{generics}{vector of auto-generated generic variable names to
-ignore when discarding empty rows}
+\item{generics}{vector of auto-generated generic variable names to ignore when discarding empty rows}
 }
 \value{
 list of instruments
 }
 \description{
-Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split
-including some clean-up. Works with longitudinal projects with repeating
-instruments.
+Wrapper function for using REDCapR::redcap_read and REDCapRITS::REDCap_split including some clean-up.
+Handles
 }
 \examples{
 # Examples will be provided later
--- a/man/score.Rd
+++ b/man/score.Rd
@ -39,7 +39,6 @@ A data frame with 20 rows and 26 variables:
 data(score)
 }
 \description{
-Contains non-identifiable organic trial data from a
-five-dimensional cognitive test.
+Contains non-identifiable organic trial data from a five-dimensional cognitive test.
 }
 \keyword{datasets}
--- a/man/stRoke-package.Rd
+++ b/man/stRoke-package.Rd
@ -4,7 +4,7 @@
 \name{stRoke-package}
 \alias{stRoke}
 \alias{stRoke-package}
-\title{stRoke: Clinical Stroke Research Toolbox}
+\title{stRoke: Clinical stroke research toolbox}
 \description{
 This is an R-toolbox of custom functions for convenient data management and analysis in clinical health research and teaching. The package is mainly collected for personal use, but any use beyond that is encouraged. This package has migrated functions from the agdamsbo/daDoctoR-package, and new functions has been added.
 }
--- a/man/talos.Rd
+++ b/man/talos.Rd
@ -16,13 +16,12 @@ A data frame with 200 rows and 6 variables:
 }
 }
 \source{
-\doi{10.1161/STROKEAHA.117.020067}
+\url{https://doi.org/10.1161/STROKEAHA.117.020067/}
 }
 \usage{
 data(talos)
 }
 \description{
-Contains of non-identifiable data from
-the \href{https://doi.org/10.1161/STROKEAHA.117.020067/}{TALOS trial}
+Contains of non-identifiable data from the \href{https://doi.org/10.1161/STROKEAHA.117.020067/}{TALOS trial}
 }
 \keyword{datasets}
--- a/tests/testthat/test-age_calc.R
+++ b/tests/testthat/test-age_calc.R
@ -11,18 +11,10 @@ test_that("age_calc works correctly for years", {
  expect_equal(age_calc(as.Date("2000-01-01"), as.Date("2020-01-01"), units = "years"), 20)
 })

-test_that("age_calc gives error if enddate < dob", {
-  expect_error(age_calc(as.Date("2020-01-01"), as.Date("2000-01-01"), units = "years"))
-})
-
 test_that("age_calc works correctly for months", {
  expect_equal(age_calc(as.Date("2000-01-01"), as.Date("2020-01-01"), units = "months"), 240)
 })

-test_that("age_calc works correctly for months", {
-  expect_equal(round(age_calc(as.Date("2000-07-07"), as.Date("2020-01-01"), units = "months")), 234)
-})
-
 test_that("age_calc works correctly for days", {
  testthat::expect_equal(age_calc(as.Date("2000-01-01"), as.Date("2020-01-01"), units = "days"), 7305)
  testthat::expect_length(age_calc(as.Date("2000-01-01"), as.Date("2020-01-01"), units = "days"), 1)
@ -35,7 +27,3 @@ test_that("age_calc works correctly with leap years and precise set to TRUE", {
 test_that("age_calc throws an error when enddate is before dob", {
  expect_error(age_calc(as.Date("2020-01-01"), as.Date("2000-01-01"), units = "years"))
 })
-
-test_that("age_calc throws an error when wrong unit", {
-  expect_error(age_calc(as.Date("2020-01-01"), as.Date("2000-01-01"), units = "hours"))
-})
--- a/tests/testthat/test-ci_plot.R
+++ b/tests/testthat/test-ci_plot.R
@ -1,36 +1,8 @@
 # Unit Test - gpttools

-test_that("ci_plot produces a valid plot, OLR", {
+test_that("ci_plot produces a valid plot", {
  data(talos)
  talos[,"mrs_1"]<-factor(talos[,"mrs_1"],ordered=TRUE)
-  testthat::expect_true(inherits(ci_plot(ds = talos, x = "rtreat", 
-                                         y = "mrs_1", 
-                                         vars = c("hypertension","diabetes")), 
-                                 "ggplot"))
+  talos$bin <- factor(sample(1:2, size = nrow(talos), replace = TRUE))
+  testthat::expect_true(inherits(ci_plot(ds = talos, x = "rtreat", y = "mrs_1", vars = c("hypertension","diabetes")), "ggplot"))
 })
-
-test_that("ci_plot produces a valid plot", {
-  data(talos)
-  talos[,"mrs_1"]<-factor(ifelse(talos[,"mrs_1"] %in% c("0","1"),1,2))
-  testthat::expect_true(inherits(ci_plot(ds = talos, x = "rtreat", 
-                                         y = "mrs_1", 
-                                         vars = c("hypertension","diabetes")), 
-                                 "ggplot"))
-})
-
-test_that("ci_plot gives error if outcome is not factor", {
-  data(talos)
-  testthat::expect_error(ci_plot(ds = talos, x = "rtreat", y = "mrs_1", 
-                                 vars = c("hypertension","diabetes")))
-})
-
-test_that("ci_plot produces a valid plot", {
-  data(talos)
-  talos[,"mrs_1"]<-factor(ifelse(talos[,"mrs_1"] %in% c("0","1"),1,2))
-  testthat::expect_true(inherits(ci_plot(ds = talos, x = "rtreat", 
-                                         y = "mrs_1", 
-                                         vars = c("hypertension","diabetes"),
-                                         lbls = c("Intercept","Placebo",
-                                                  "Hypertension","Diabetes")), 
-                                 "ggplot"))
-})
--- a/tests/testthat/test-cpr_tools.R
+++ b/tests/testthat/test-cpr_tools.R
@ -8,34 +8,18 @@ testthat::test_that("cpr_check() works for vectors, giving logicals", {
 ################################################################################

 testthat::test_that("cpr_dob() works for vectors, giving logicals", {
-  cpr <- c("2310450637", "010115-4000", "0101896000",
-           "010189-3000","300450-1030",
-           "010219-7021","010150-4021")
-  testthat::expect_type(cpr_dob(cpr), "character")
-  testthat::expect_length(cpr_dob(cpr), 7)
-})
-
-testthat::test_that("cpr_dob() works for vectors, 
-                    giving expected warnings and NAs", {
-  cpr <- c("2310450637", "010115-4000", "0101896000",
-           "010189-3000","01018AAAL9","300450-1030",
-           "010219-7021","0039-7021","010150-4021")
-  result <- suppressWarnings(cpr_dob(cpr))
+  result <- cpr_dob(c("2310450637", "010115-4000", "0101896000","010189-3000","300450-1030","010150-4021"))
  testthat::expect_type(result, "character")
-  testthat::expect_length(result, 9)
-  testthat::expect_true(any(is.na(result)))
-  testthat::expect_warning(cpr_dob(cpr))
+  testthat::expect_length(result, 6)
 })

 ################################################################################

 testthat::test_that("cpr_female() works for vectors, giving logicals", {
-  result <- cpr_female(c("2310450637", "010115-4000", "0101896000",
-                         "010189-3000","300450-1030","010150-4021"))
+  result <- cpr_female(c("2310450637", "010115-4000", "0101896000","010189-3000","300450-1030","010150-4021"))
  testthat::expect_type(result, "logical")
  testthat::expect_length(result, 6)
  testthat::expect_equal(result[2], TRUE)
 })

-################################################################################
-
+################################################################################
--- a/tests/testthat/test-files_filter.R
+++ b/tests/testthat/test-files_filter.R
@ -1,4 +0,0 @@
-test_that("files_filter() correctly filters files", {
-  expect_type(files_filter(getwd(),"tests"),
-              "character")
-})
--- a/tests/testthat/test-index_plot.R
+++ b/tests/testthat/test-index_plot.R
@ -1,21 +1,3 @@
-test_that("index_plot() works!", {
+test_that("multiplication works", {
  testthat::expect_type(index_plot(stRoke::score[score$event=="A",]), "list")
-  testthat::expect_true(inherits(
-    index_plot(stRoke::score[score$event=="A",]), "ggplot"))
-  testthat::expect_type(index_plot(stRoke::score[score$event=="A",],
-                                   sub_plot = "_per"), "list")
-  
-  testthat::expect_true(inherits(
-    index_plot(stRoke::score[score$event=="A",],sub_plot = "_per"), "ggplot"))
-  testthat::expect_error(index_plot(stRoke::score[score$event=="A",],
-                                    sub_plot = "_per",
-                                    facet.by = c("id","event")))
-  
-  testthat::expect_type(index_plot(stRoke::score,
-                                   sub_plot = "_per",
-                                   facet.by = "event"), "list")
-  testthat::expect_true(inherits(
-    index_plot(stRoke::score[score$event=="A",],
-               sub_plot = "_per",
-               facet.by = "event"), "ggplot"))
 })
--- a/tests/testthat/test-quantile_cut.R
+++ b/tests/testthat/test-quantile_cut.R
@ -6,19 +6,7 @@ test_that("quatile_cut() works for detail.list==FALSE", {

 ################################################################################

-test_that("quatile_cut() works for inc.outs==TRUE", {
-  result <- quantile_cut(iris$Sepal.Length,3,y=iris$Sepal.Length+3,inc.outs=FALSE)
-  expect_true(any(is.na(result)))
-  
-  result <- quantile_cut(iris$Sepal.Length,3,y=iris$Sepal.Length+3,inc.outs=TRUE)
-  expect_false(any(is.na(result)))
-  expect_equal(length(levels(result)), 3)
-  expect_s3_class(result, "factor")
-})
-
-################################################################################
-
-test_that("quatile_cut() works for detail.list==TRUE", {
+test_that("quatile_cut() works for detail.list==FALSE", {
  result <- quantile_cut(iris$Sepal.Length,3,detail.list=TRUE)
  expect_length(result, 2)
  expect_type(result, "list")
@ -38,4 +26,3 @@ test_that("quantile_cut works correctly", {

 ################################################################################

-range(iris$Sepal.Length)
--- a/vignettes/toolbox.Rmd
+++ b/vignettes/toolbox.Rmd
@ -24,8 +24,6 @@ My own toolbox in my small workshop is a mix of some old, worn, well proven tool

 I have tried to collect tools and functions from other packages that I use regularly in addition to functions that I have written myself to fill use cases, that I have not been able to find solutions to elsewhere.

-In documenting and testing the package, I have used [OpenAI's](https://beta.openai.com/overview) chatgpt with [gpttools](https://jameshwade.github.io/gpttools/). The chatgpt is an interesting tool, that is in no way perfect, but it helps with tedious tasks. Both `gpttools` and [`gptstudio`](https://michelnivard.github.io/gptstudio/) are interesting implementations in R and RStudio.
-
 ## CPR manipulations {#cpr-intro}

 Note that, if handled, CPR numbers (social security numbers) should be handled with care as they a considered highly sensitive data.
@ -68,7 +66,7 @@ cpr_dob(c("2310450637", "010190-2000", "010115-4000","300450-1030","010150-4021"
 Gives logical vector of whether female gender from last digit of CPR.

 ```{r cpr_female-example}
-table(cpr_female(stRoke::cprs[,1]))
+cpr_female(stRoke::cprs[,1])
 ```

 ## Plotting