updated dob_extract_cpr to also support cpr format ddmmyyxxxx 2022-08-24 14:44:16

This commit is contained in:
AG Damsbo 2022-08-24 14:44:16 +02:00
parent 65b0361f8e
commit 9b81c4b34a
3 changed files with 5 additions and 3 deletions

View File

@ -1,6 +1,6 @@
Package: daDoctoR Package: daDoctoR
Title: Functions For Health Research Title: Functions For Health Research
Version: 0.22.3 Version: 0.22.4
Year: 2021 Year: 2021
Author: Andreas Gammelgaard Damsbo <agdamsbo@pm.me> Author: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>
Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me> Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>

View File

@ -16,7 +16,7 @@ dob_extract_cpr<-function(cpr)
## cpr <- "2310450637" ## cpr <- "2310450637"
{ {
if (substr(cpr,7,7)=="-"){ # test if input is ddmmyy-xxxx, standard format if (any(substr(cpr,7,7)=="-")){ # test if input is ddmmyy-xxxx, standard format
message("Input er i formatet ddmmyy-xxxx") message("Input er i formatet ddmmyy-xxxx")
cpr_std<-TRUE cpr_std<-TRUE
} }

View File

@ -1,5 +1,7 @@
library(roxygen2, devtools) library(roxygen2, devtools)
setwd("/Users/au301842/daDoctoR/")
source("updatePackageVersion.R") source("updatePackageVersion.R")
updatePackageVersion() updatePackageVersion()
@ -12,7 +14,7 @@ devtools::document()
# Commit and push # Commit and push
commit_message<-"updated age_calc to also support cpr format ddmmyyxxxx" commit_message<-"updated dob_extract_cpr to also support cpr format ddmmyyxxxx"
library(git2r) library(git2r)
library(lubridate) library(lubridate)