Skip to content

Commit

Permalink
Small corrections suggested by CRAN
Browse files Browse the repository at this point in the history
  • Loading branch information
MansMeg committed Dec 5, 2015
1 parent 963b1dd commit c8e3b71
Show file tree
Hide file tree
Showing 3 changed files with 8 additions and 11 deletions.
6 changes: 3 additions & 3 deletions DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
Package: sweidnumbr
Type: Package
Title: Handling of Swedish Identity Numbers
Version: 0.8.1
Date: 2015-12-04
Version: 0.8.2
Date: 2015-12-05
Author: Mans Magnusson and Erik Bulow
Maintainer: Mans Magnusson <[email protected]>
Description: Structural handling of identity numbers used in the Swedish
Expand All @@ -12,7 +12,7 @@ VignetteBuilder: knitr
URL: https://github.com/rOpenGov/sweidnumbr/
BugReports: https://github.com/rOpenGov/sweidnumbr/issues
License: BSD_2_clause + file LICENSE
Depends: R (>= 2.10)
Depends: R (>= 3.2)
Imports:
lubridate (>= 1.4),
stringr
Expand Down
8 changes: 3 additions & 5 deletions R/pin.R
Original file line number Diff line number Diff line change
Expand Up @@ -18,17 +18,15 @@
#' \item character: \code{"YYMMDDNNNC"} (assuming < 100 years of age)
#' }
#'
#' @encoding UTF8
#'
#' @param pin Vector with swedish personal identity numbers in character or numeric format. See details.
#'
#' @references
#' \itemize{
#' \item \href{https://www.skatteverket.se/download/18.8dcbbe4142d38302d74be9/1387372677724/717B06.pdf}{Population registration in Sweden}
#' \item \href{https://www.skatteverket.se/download/18.1e6d5f87115319ffba380001857/1285595720207/70408.pdf}{SKV 704}
#' \item \href{http://www.riksdagen.se/sv/Dokument-Lagar/Utredningar/Statens-offentliga-utredningar/Personnummer-och-samordningsnu_GWB360/}{SOU 2008:60 : Personnummer och samordningsnummer}
#' \item \emph{Personnummer: information från Centrala folkbokförings- och uppbördsnämnden.} (1967). Stockholm
#' \item \emph{Den svenska folkbokföringens historia under tre sekel.} (1982). Solna: Riksskatteverket \href{http://www.skatteverket.se/privat/folkbokforing/omfolkbokforing/folkbokforingigaridag/densvenskafolkbokforingenshistoriaundertresekler.4.18e1b10334ebe8bc80004141.html}{URL}
#' \item \emph{Personnummer: information fran Centrala folkbokforings- och uppbordsnamnden.} (1967). Stockholm
#' \item \emph{Den svenska folkbokforingens historia under tre sekel.} (1982). Solna: Riksskatteverket \href{http://www.skatteverket.se/privat/folkbokforing/omfolkbokforing/folkbokforingigaridag/densvenskafolkbokforingenshistoriaundertresekler.4.18e1b10334ebe8bc80004141.html}{URL}
#' }
#' @return
#' Vector of class "pin" (with additional classes "AsIs" and character) with swedish personal identity numbers with standard ABS format \code{"YYYYMMDDNNNC"}.
Expand Down Expand Up @@ -134,7 +132,7 @@ as.pin.character <- function(pin){
# Maximum one of each message is enough, messages are therefore stored and possibly
# overwritten but not printed inside the loop
if (!isTRUE(is.na(msg))) {
msg <- paste(na.omit(msg), collapse = " and ")
msg <- paste(stats::na.omit(msg), collapse = " and ")
message(paste("Assumption:", paste(toupper(substring(msg, 1, 1)), substring(msg, 2), sep = "", collapse = " ")))
}

Expand Down
5 changes: 2 additions & 3 deletions man/as.pin.Rd
Original file line number Diff line number Diff line change
@@ -1,6 +1,5 @@
% Generated by roxygen2 (4.1.1): do not edit by hand
% Please edit documentation in R/pin.R
\encoding{UTF8}
\name{as.pin}
\alias{as.pin}
\title{Parse personal identity numbers to ABS format}
Expand Down Expand Up @@ -49,8 +48,8 @@ pin <-c("201212090122", "201212090122", "121209-0122", "1212090122")
\item \href{https://www.skatteverket.se/download/18.8dcbbe4142d38302d74be9/1387372677724/717B06.pdf}{Population registration in Sweden}
\item \href{https://www.skatteverket.se/download/18.1e6d5f87115319ffba380001857/1285595720207/70408.pdf}{SKV 704}
\item \href{http://www.riksdagen.se/sv/Dokument-Lagar/Utredningar/Statens-offentliga-utredningar/Personnummer-och-samordningsnu_GWB360/}{SOU 2008:60 : Personnummer och samordningsnummer}
\item \emph{Personnummer: information från Centrala folkbokförings- och uppbördsnämnden.} (1967). Stockholm
\item \emph{Den svenska folkbokföringens historia under tre sekel.} (1982). Solna: Riksskatteverket \href{http://www.skatteverket.se/privat/folkbokforing/omfolkbokforing/folkbokforingigaridag/densvenskafolkbokforingenshistoriaundertresekler.4.18e1b10334ebe8bc80004141.html}{URL}
\item \emph{Personnummer: information fran Centrala folkbokforings- och uppbordsnamnden.} (1967). Stockholm
\item \emph{Den svenska folkbokforingens historia under tre sekel.} (1982). Solna: Riksskatteverket \href{http://www.skatteverket.se/privat/folkbokforing/omfolkbokforing/folkbokforingigaridag/densvenskafolkbokforingenshistoriaundertresekler.4.18e1b10334ebe8bc80004141.html}{URL}
}
}

0 comments on commit c8e3b71

Please sign in to comment.