spell checking

Author: lorenzwalthert

R/environments.R

@@ -1,50 +1,50 @@
-#' Work with parser versions
-#'
-#' The structure of the parse data affects many operations in styler. There was
-#' unexpected behaviour of the parser that styler was initially designed to work
-#' around. Examples are [#187](https://github.com/r-lib/styler/issues/187),
-#' [#216](https://github.com/r-lib/styler/issues/216),
-#' [#100](https://github.com/r-lib/styler/issues/100) and others. With
-#' [#419](https://github.com/r-lib/styler/issues/419), the structrure of the parse
-#' data changes and we need to dispatch for older versions. As it is inconvenient
-#' to pass a parser version down in the call stack in various places, the
-#' environment `env_current` is used to store the current version *globally*
-#' but internally.
-#'
-#' We version the parser as follows:
-#'
-#' * version 1: Before fix mentioned in #419.
-#' * version 2: After #419.
-#'
-#'The following utilities are available:
-#'
-#' * `parser_version_set()` sets the parser version in the environment
-#'   `env_current`.
-#' * `parser_version_get()` retrieves the parser version from the
-#'   environment `env_current`.
-#' * `parser_version_find()` determines the version of the parser from parse
-#'   data. This does not necessarily mean that the version found is the
-#'   actual version, but it *behaves* like it. For example, code that does not
-#'   contain `EQ_ASSIGN` is parsed the same way with version 1 and 2. If the
-#'   behaviour is identical, the version is set to 1.
-#' @param version The version of the parser to be used.
-#' @param pd A parse table such as the output from
-#'   `utils::getParseData(parse(text = text))`.
-#' @keywords internal
-parser_version_set <- function(version) {
-  env_current$parser_version <- version
-}
-
-#' @rdname parser_version_set
-parser_version_get <- function() {
-  env_current$parser_version
-}
-
-#' @rdname parser_version_set
-parser_version_find <- function(pd) {
-  ifelse(any(pd$token == "equal_assign"), 2, 1)
-}
-
-
-
-env_current <- rlang::new_environment(parent = rlang::empty_env())
+#' Work with parser versions
+#'
+#' The structure of the parse data affects many operations in styler. There was
+#' unexpected behaviour of the parser that styler was initially designed to work
+#' around. Examples are [#187](https://github.com/r-lib/styler/issues/187),
+#' [#216](https://github.com/r-lib/styler/issues/216),
+#' [#100](https://github.com/r-lib/styler/issues/100) and others. With
+#' [#419](https://github.com/r-lib/styler/issues/419), the structure of the parse
+#' data changes and we need to dispatch for older versions. As it is inconvenient
+#' to pass a parser version down in the call stack in various places, the
+#' environment `env_current` is used to store the current version *globally*
+#' but internally.
+#'
+#' We version the parser as follows:
+#'
+#' * version 1: Before fix mentioned in #419.
+#' * version 2: After #419.
+#'
+#'The following utilities are available:
+#'
+#' * `parser_version_set()` sets the parser version in the environment
+#'   `env_current`.
+#' * `parser_version_get()` retrieves the parser version from the
+#'   environment `env_current`.
+#' * `parser_version_find()` determines the version of the parser from parse
+#'   data. This does not necessarily mean that the version found is the
+#'   actual version, but it *behaves* like it. For example, code that does not
+#'   contain `EQ_ASSIGN` is parsed the same way with version 1 and 2. If the
+#'   behaviour is identical, the version is set to 1.
+#' @param version The version of the parser to be used.
+#' @param pd A parse table such as the output from
+#'   `utils::getParseData(parse(text = text))`.
+#' @keywords internal
+parser_version_set <- function(version) {
+  env_current$parser_version <- version
+}
+
+#' @rdname parser_version_set
+parser_version_get <- function() {
+  env_current$parser_version
+}
+
+#' @rdname parser_version_set
+parser_version_find <- function(pd) {
+  ifelse(any(pd$token == "equal_assign"), 2, 1)
+}
+
+
+
+env_current <- rlang::new_environment(parent = rlang::empty_env())

R/parse.R

@@ -193,7 +193,7 @@ ensure_valid_pd <- function(pd) {
 #' @details
 #' The meaning of the variable `is_problematic_string` in the source code
 #' changes from "all strings" to "all problematic strings", is partly
-#' missleading and this approach was chosen for performance reasons only.
+#' misleading and this approach was chosen for performance reasons only.
 #' @param pd A parse table.
 #' @param text The initial code to style.
 #' @keywords internal

R/roxygen-examples-parse.R

@@ -27,7 +27,7 @@ parse_roxygen <- function(roxygen) {
 
 #' Changing the line definition
 #'
-#' Input: New line denoted with `\\n`. Lines can span accross elements.
+#' Input: New line denoted with `\\n`. Lines can span across elements.
 #' Output: Each element in the vector is one line.
 #'
 #' @param raw Raw code to post-process.

R/roxygen-examples.R

@@ -53,7 +53,7 @@ style_roxygen_code_example_segment <- function(one_dont, transformers) {
 #'
 #' @param code_snippet A character vector with code to style.
 #' @param is_dont Whether the snippet to process is a dontrun, dontshow,
-#'   donttest segemnt or not.
+#'   donttest segment or not.
 #' @inheritParams parse_transform_serialize_r
 #' @inheritSection parse_transform_serialize_roxygen Hierarchy
 #' @keywords internal

R/token-create.R

@@ -120,7 +120,7 @@ validate_new_pos_ids <- function(new_ids, after) {
 #' @param pd A parse table.
 #' @param stretch_out Whether or not to create a line break after the opening
 #'   curly brace and before the closing curly brace.
-#' @param space_after How many spaces shold be inserted after the closing brace.
+#' @param space_after How many spaces should be inserted after the closing brace.
 #' @keywords internal
 wrap_expr_in_curly <- function(pd,
                                stretch_out = c(FALSE, FALSE),

R/transform-files.R

@@ -88,11 +88,11 @@ make_transformer <- function(transformers, include_roxygen_examples) {
 #' Parse, transform and serialize roxygen comments
 #'
 #' Splits `text` into roxygen code examples and non-roxygen code examples and
-#' then maps over these examples by applyingj
+#' then maps over these examples by applying
 #' [style_roxygen_code_example()].
 #' @section Hierarchy:
 #' Styling involves splitting roxygen example code into segments, and segments
-#' into snippets. This describes the proccess for input of
+#' into snippets. This describes the process for input of
 #' [parse_transform_serialize_roxygen()]:
 #'
 #' - Splitting code into roxygen example code and other code. Downstream,
@@ -131,7 +131,7 @@ parse_transform_serialize_roxygen <- function(text, transformers) {
 #' @return
 #' A list with two elements:
 #'
-#' * A list that contains elements grouped into roxygen and non-rogxygen
+#' * A list that contains elements grouped into roxygen and non-roxygen
 #'   sections. This list is named `separated`.
 #' * An integer vector with the indices that correspond to roxygen code
 #'   examples in `separated`.
@@ -140,8 +140,8 @@ parse_transform_serialize_roxygen <- function(text, transformers) {
 split_roxygen_segments <- function(text, roxygen_examples) {
   if (is.null(roxygen_examples)) return(lst(separated = list(text), selectors = NULL))
   all_lines <- seq2(1L, length(text))
-  active_segemnt <- as.integer(all_lines %in% roxygen_examples)
-  segment_id <- cumsum(abs(c(0L, diff(active_segemnt)))) + 1L
+  active_segment <- as.integer(all_lines %in% roxygen_examples)
+  segment_id <- cumsum(abs(c(0L, diff(active_segment)))) + 1L
   separated <- split(text, factor(segment_id))
   restyle_selector <- ifelse(roxygen_examples[1] == 1L, odd_index, even_index)