spellcheck

R/date_yq.R

@@ -3,8 +3,8 @@
 #' A Simple S3-Class for Year-Quarter Dates
 #'
 #' A simple data type for storing year-quarter dates in a human readable integer
-#' format, e.g.: 3.Quarter of 2012 is stored as 20123. Supports simple arithmetics
-#' (`+` and `-`) as well formatting.
+#' format, e.g.: 3.Quarter of 2012 is stored as 20123. Supports simple
+#' arithmetic operations such as `+` and `-` as well formatting.
 #'
 #' @param y year
 #' @param q quarter (optional)

R/date_yw.R

@@ -4,7 +4,7 @@
 #'
 #' A simple data type for storing year-isoweek dates in a human readable integer
 #' format, e.g.: the 52nd isoweek of 2012 is stored as 201252. Supports simple
-#' arithmetics (`+` and `-`) as well formatting.
+#' arithmetic operations such as `+` and `-` as well formatting.
 #'
 #' @param y year
 #' @param w week (optional)

R/extract.r

@@ -1,6 +1,6 @@
 #' Extract or Replace Elements of a date_xx
 #'
-#' Works exactly like susbetting base vectors via `[`, but preserves the
+#' Works exactly like subsetting base vectors via `[`, but preserves the
 #' `date_xx` class and subclasses. The replacement functions `[<-` and `[[<-`
 #' conduct additional checks before assignment to prevent the generation of
 #' degenerate date_xx vectors (see examples).

R/format.R

@@ -16,7 +16,7 @@
 #' @param month_names,month_abb a `character` vector of length 12: Names and
 #'   abbreviations for months that will be used for the
 #'   placeholders `"%b"` and `"%B"`. Defaults to the values for
-#'   the current locale for compatbilioty with [base::strptime()].
+#'   the current locale for compatibility with [base::strptime()].
 #' @param ... ignored
 #'
 #'
@@ -261,7 +261,7 @@ format_yq <- function(x, q = NULL, format = "%Y-Q%q"){
 
 
 
-#' Coerce and Format to Year-Muarter Strings
+#' Coerce and Format to Year-Month Strings
 #'
 #' @param x,m Two integer (vectors). `m` is optional and the interpretation of
 #'   `x` will depend on whether `m` is supplied or not:

R/predicates.R

@@ -1,8 +1,8 @@
 #' Test for Quarter Bounds
 #'
-#' `is_first_of_quarter()` and `is_last_of_quarter()` check wheter a
+#' `is_first_of_quarter()` and `is_last_of_quarter()` check whether a
 #' `Date` is the first or respectively the last day of an (arbitrary) quarter.
-#' `is_quarter_bounds()` checks wheter two `Date` vectors mark the bounds of
+#' `is_quarter_bounds()` checks whether two `Date` vectors mark the bounds of
 #' single quarters
 #'
 #' @param x,first,last `Date` vectors

tests/testthat/test_date_yq.R

@@ -45,7 +45,7 @@ test_that("as_date_yq works", {
 
 
 
-test_that("as_date_yq arithmetics works", {
+test_that("as_date_yq arithmetic works", {
   #* @testing increment.date_yq
   tdat <- (as_date_yq(c(-11, -12, -13, -14, 1, 2, 3, 4)))