typos (#5312)

Author: spaette

R/autolayer.R

@@ -15,5 +15,5 @@ autolayer <- function(object, ...) {
 
 #' @export
 autolayer.default <- function(object, ...) {
-  cli::cli_abort("No autolayer method avialable for {.cls {class(object)[1]}} objects")
+  cli::cli_abort("No autolayer method available for {.cls {class(object)[1]}} objects")
 }

R/axis-secondary.R

@@ -96,7 +96,7 @@
 #' @export
 sec_axis <- function(trans = NULL, name = waiver(), breaks = waiver(), labels = waiver(),
                      guide = waiver()) {
-  # sec_axis() historically accpeted two-sided formula, so be permissive.
+  # sec_axis() historically accepted two-sided formula, so be permissive.
   if (length(trans) > 2) trans <- trans[c(1,3)]
 
   trans <- as_function(trans)

R/compat-plyr.R

@@ -74,7 +74,7 @@ id_var <- function(x, drop = FALSE) {
 #' Properties:
 #' - `order(id)` is equivalent to `do.call(order, df)`
 #' - rows containing the same data have the same value
-#' - if `drop = FALSE` then room for all possibilites
+#' - if `drop = FALSE` then room for all possibilities
 #'
 #' @param .variables list of variables
 #' @param drop Should unused factor levels be dropped?
@@ -124,10 +124,10 @@ id <- function(.variables, drop = FALSE) {
     res
   }
 }
-#' Count number of occurences for each unique combination of variables
+#' Count number of occurrences for each unique combination of variables
 #'
 #' Each unique combination of the variables in `df` given by `vars` will be
-#' identified and their occurences counted. If `wt_var` is given the counts will
+#' identified and their occurrences counted. If `wt_var` is given the counts will
 #' be weighted by the values in this column.
 #'
 #' @param df A data.frame

R/coord-quickmap.R

@@ -25,7 +25,7 @@ CoordQuickmap <- ggproto("CoordQuickmap", CoordCartesian,
     x.dist <- dist_central_angle(x.center + c(-0.5, 0.5), rep(y.center, 2))
     y.dist <- dist_central_angle(rep(x.center, 2), y.center + c(-0.5, 0.5))
     # NB: this makes the projection correct in the center of the plot and
-    #     increasingly less correct towards the edges. For regions of reasonnable
+    #     increasingly less correct towards the edges. For regions of reasonable
     #     size, this seems to give better results than computing this ratio from
     #     the total lat and lon span.
 

R/geom-rug.R

@@ -95,7 +95,7 @@ GeomRug <- ggproto("GeomRug", Geom,
     rugs <- list()
     data <- coord$transform(data, panel_params)
 
-    # For coord_flip, coord$tranform does not flip the sides where to
+    # For coord_flip, coord$transform does not flip the sides where to
     # draw the rugs. We have to flip them.
     if (inherits(coord, 'CoordFlip')) {
       sides <- chartr('tblr', 'rlbt', sides)

R/guides-.R

@@ -230,7 +230,7 @@ Guides <- ggproto(
   #      here, one guide object for one scale
   #
   # 2. Guides$merge()
-  #      merge guide objects if they are overlayed
+  #      merge guide objects if they are overlaid
   #      number of guide objects may be less than number of scales
   #
   # 3. Guides$process_layers()

R/margins.R

@@ -38,7 +38,7 @@ titleGrob <- function(label, x, y, hjust, vjust, angle = 0, gp = gpar(),
     return(zeroGrob())
   }
 
-  # We rotate the justifiation values to obtain the correct x and y reference point,
+  # We rotate the justification values to obtain the correct x and y reference point,
   # since hjust and vjust are applied relative to the rotated text frame in textGrob
   just <- rotate_just(angle, hjust, vjust)
 

R/scale-view.R

@@ -5,7 +5,7 @@
 #' limits, dimension, breaks, labels, and minor breaks. They are used as
 #' the immutable result of the trained scales that have been assigned
 #' `limits` and a `continuous_range` from the coordinate system's
-#' implementation of scale expantion.
+#' implementation of scale expansion.
 #'
 #' @param scale The scale from which to construct a view scale.
 #' @param limits The final scale limits

R/utilities.R

@@ -276,7 +276,7 @@ is.discrete <- function(x) {
 # the names of any columns that are not.
 # We define "data" as atomic types or lists, not functions or otherwise.
 # The `inherits(x, "Vector")` check is for checking S4 classes from Bioconductor
-# and wether they can be expected to follow behavior typical of vectors. See
+# and whether they can be expected to follow behavior typical of vectors. See
 # also #3835
 check_nondata_cols <- function(x) {
   idx <- (vapply(x, function(x) {
@@ -513,7 +513,7 @@ has_flipped_aes <- function(data, params = list(), main_is_orthogonal = NA,
   xmax <- data$xmax %||% params$xmax
   ymax <- data$ymax %||% params$ymax
 
-  # Does a single x or y aesthetic corespond to a specific orientation
+  # Does a single x or y aesthetic correspond to a specific orientation
   if (!is.na(main_is_orthogonal) && xor(is.null(x), is.null(y))) {
     return(is.null(y) == main_is_orthogonal)
   }

_pkgdown.yml

@@ -32,7 +32,7 @@ reference:
 - title: Plot basics
   desc: >
     All ggplot2 plots begin with a call to `ggplot()`, supplying default data and
-    aesthethic mappings, specified by `aes()`. You then add layers, scales,
+    aesthetic mappings, specified by `aes()`. You then add layers, scales,
     coords and facets with `+`. To save a plot to disk, use `ggsave()`.
   contents:
   - ggplot
@@ -231,7 +231,7 @@ reference:
     for package authors to add methods that work like the base `plot()`
     function, generating useful default plots with little user interaction.
     `fortify()` turns objects into tidy data frames: it has largely been
-    superceded by the [broom package](https://github.com/tidyverse/broom).
+    superseded by the [broom package](https://github.com/tidyverse/broom).
   contents:
   - autoplot
   - autolayer