Fix typos

NEWS.md

@@ -246,7 +246,7 @@
 
 * Removed dependency on assertthat (@mgirlich, #1112).
 
-* `across()` now uses the original value when a column is overriden to match
+* `across()` now uses the original value when a column is overridden to match
   the behaviour of dplyr. For example `mutate(df, across(c(x, y), ~ .x / x))`
   now produces
 
@@ -1512,7 +1512,7 @@ generating reprexes.
 * `copy_to()` now succeeds for MySQL if a character column contains `NA` 
    (#1975, #2256, #2263, #2381, @demorenoc, @eduardgrebe).
 
-* `copy_to()` now returns it's output invisibly (since you're often just
+* `copy_to()` now returns its output invisibly (since you're often just
    calling for the side-effect).
 
 * `distinct()` reports improved variable information for SQL backends. This

R/db.R

@@ -183,7 +183,7 @@ print.dbplyr_sql_options <- function(x, ...) {
   if (x$qualify_all_columns) {
     join_table_name <- "Qualify all columns"
   } else {
-    join_table_name <- "Qualify only ambigous columns"
+    join_table_name <- "Qualify only ambiguous columns"
   }
 
   msg <- c(cte, star, join_table_name)

R/schema.R

@@ -17,7 +17,7 @@
 #' # Example using schemas with SQLite
 #' con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
 #'
-#' # Add auxilary schema
+#' # Add auxiliary schema
 #' tmp <- tempfile()
 #' DBI::dbExecute(con, paste0("ATTACH '", tmp, "' AS aux"))
 #'
@@ -91,7 +91,7 @@ as.sql.Id <- function(x, con) ident_q(dbQuoteIdentifier(con, x))
 
 # Old dbplyr approach -----------------------------------------------------
 
-#' Declare a identifer as being pre-quoted.
+#' Declare a identifier as being pre-quoted.
 #'
 #' No longer needed; please use [sql()] instead.
 #'

R/translate-sql-helpers.R

@@ -136,7 +136,7 @@ copy_env <- function(from, to = NULL, parent = parent.env(from)) {
 #' @export
 sql_infix <- function(f, pad = TRUE) {
   # Unquoting involving infix operators easily create abstract syntax trees
-  # without parantheses where they are needed for printing and translation.
+  # without parentheses where they are needed for printing and translation.
   # For example `expr(!!expr(2 - 1) * x))`
   #
   # See https://adv-r.hadley.nz/quasiquotation.html#non-standard-ast

R/translate-sql-window.R

@@ -7,7 +7,7 @@
 #' the grouping and order context set up by [group_by()] and [arrange()].
 #'
 #' @param expr The window expression
-#' @param parition Variables to partition over
+#' @param partition Variables to partition over
 #' @param order Variables to order by
 #' @param frame A numeric vector of length two defining the frame.
 #' @param f The name of an sql function as a string

R/verb-fill.R

@@ -136,7 +136,7 @@ dbplyr_fill0.SQLiteConnection <- function(.con,
   #
   # strategy:
   # for each column to fill:
-  # 1. generate a helper column `....dbplyr_partion_x`. It creates one partition
+  # 1. generate a helper column `....dbplyr_partition_x`. It creates one partition
   #    per non-NA value and all following NA (in the order of `order_by_cols`),
   #    i.e. each partition has exactly one non-NA value and any number of NA.
   # 2. use the non-NA value in each partition (`max()` is just the simplest
@@ -151,7 +151,7 @@ dbplyr_fill0.SQLiteConnection <- function(.con,
       vars_group = op_grps(.data),
     )
   ) %>%
-    set_names(paste0("..dbplyr_partion_", seq_along(cols_to_fill)))
+    set_names(paste0("..dbplyr_partition_", seq_along(cols_to_fill)))
 
   dp <- .data %>%
     mutate(!!!partition_sql)

R/verb-pivot-longer.R

@@ -21,7 +21,7 @@
 #'
 #' 1. split the specification by its key columns i.e. by variables crammed
 #' into the column names.
-#' 2. for each part in the splitted specification `transmute()` `data` into the
+#' 2. for each part in the split specification `transmute()` `data` into the
 #' following columns
 #'   * id columns i.e. columns that are not pivotted
 #'   * key columns

README.Rmd

@@ -35,7 +35,7 @@ install.packages("tidyverse")
 # Alternatively, install just dbplyr:
 install.packages("dbplyr")
 
-# Or the the development version from GitHub:
+# Or the development version from GitHub:
 # install.packages("devtools")
 devtools::install_github("tidyverse/dbplyr")
 ```

README.md

@@ -32,7 +32,7 @@ install.packages("tidyverse")
 # Alternatively, install just dbplyr:
 install.packages("dbplyr")
 
-# Or the the development version from GitHub:
+# Or the development version from GitHub:
 # install.packages("devtools")
 devtools::install_github("tidyverse/dbplyr")
 ```

tests/testthat/_snaps/tidyeval-across.md

@@ -174,7 +174,7 @@
       SELECT `df`.*, (`a` > 0.0 OR `b` > 0.0) AS `c`
       FROM `df`
 
-# if_all/any uses every colum as default
+# if_all/any uses every column as default
 
     Code
       lf %>% filter(if_all(.fns = ~ . > 0))

tests/testthat/_snaps/verb-fill.md

@@ -4,11 +4,14 @@
       df_lazy_ns %>% window_order(id) %>% tidyr::fill(n1, .direction = "up")
     Output
       <SQL>
-      SELECT `id`, `group`, MAX(`n1`) OVER (PARTITION BY `..dbplyr_partion_1`) AS `n1`
+      SELECT
+        `id`,
+        `group`,
+        MAX(`n1`) OVER (PARTITION BY `..dbplyr_partition_1`) AS `n1`
       FROM (
         SELECT
           `df`.*,
-          SUM(CASE WHEN ((`n1` IS NULL)) THEN 0 ELSE 1 END) OVER (ORDER BY `id` DESC ROWS UNBOUNDED PRECEDING) AS `..dbplyr_partion_1`
+          SUM(CASE WHEN ((`n1` IS NULL)) THEN 0 ELSE 1 END) OVER (ORDER BY `id` DESC ROWS UNBOUNDED PRECEDING) AS `..dbplyr_partition_1`
         FROM `df`
       ) AS `q01`
 
@@ -66,11 +69,14 @@
       df_lazy_ns %>% window_order(desc(id)) %>% tidyr::fill(n1, .direction = "up")
     Output
       <SQL>
-      SELECT `id`, `group`, MAX(`n1`) OVER (PARTITION BY `..dbplyr_partion_1`) AS `n1`
+      SELECT
+        `id`,
+        `group`,
+        MAX(`n1`) OVER (PARTITION BY `..dbplyr_partition_1`) AS `n1`
       FROM (
         SELECT
           `df`.*,
-          SUM(CASE WHEN ((`n1` IS NULL)) THEN 0 ELSE 1 END) OVER (ORDER BY `id` ROWS UNBOUNDED PRECEDING) AS `..dbplyr_partion_1`
+          SUM(CASE WHEN ((`n1` IS NULL)) THEN 0 ELSE 1 END) OVER (ORDER BY `id` ROWS UNBOUNDED PRECEDING) AS `..dbplyr_partition_1`
         FROM `df`
       ) AS `q01`
 
@@ -95,11 +101,11 @@
       SELECT
         `id`,
         `group`,
-        MAX(`n1`) OVER (PARTITION BY `group`, `..dbplyr_partion_1`) AS `n1`
+        MAX(`n1`) OVER (PARTITION BY `group`, `..dbplyr_partition_1`) AS `n1`
       FROM (
         SELECT
           `df`.*,
-          SUM(CASE WHEN ((`n1` IS NULL)) THEN 0 ELSE 1 END) OVER (PARTITION BY `group` ORDER BY `id` ROWS UNBOUNDED PRECEDING) AS `..dbplyr_partion_1`
+          SUM(CASE WHEN ((`n1` IS NULL)) THEN 0 ELSE 1 END) OVER (PARTITION BY `group` ORDER BY `id` ROWS UNBOUNDED PRECEDING) AS `..dbplyr_partition_1`
         FROM `df`
       ) AS `q01`
 

tests/testthat/_snaps/verb-mutate.md

@@ -79,7 +79,7 @@
         FROM `df`
       ) AS `q01`
 
-# across() uses original column rather than overriden one
+# across() uses original column rather than overridden one
 
     Code
       lf %>% mutate(x = -x, across(everything(), ~ .x / x), y = y + x)

tests/testthat/test-backend-.R

@@ -1,4 +1,4 @@
-test_that("base_no_win inclues all aggregates and window funcitons", {
+test_that("base_no_win includes all aggregates and window functions", {
   # All aggregates must be included in window functions
   expect_equal(setdiff(names(base_agg), names(base_win)), character())
 

tests/testthat/test-escape.R

@@ -33,7 +33,7 @@ test_that("zero length inputs yield length-1 output when collapsed", {
 
 # Numeric ------------------------------------------------------------------
 
-test_that("missing vaues become null", {
+test_that("missing values become null", {
   con <- simulate_dbi()
 
   expect_equal(escape(NA, con = con), sql("NULL"))

tests/testthat/test-tidyeval-across.R

@@ -433,7 +433,7 @@ test_that("if_all() gives informative errors", {
   })
 })
 
-test_that("if_all collapses multiple expresions", {
+test_that("if_all collapses multiple expressions", {
   lf <- lazy_frame(a = 1,  b = 2)
   expect_equal(
     capture_if_all(lf, if_all(everything(), is.na)),
@@ -448,7 +448,7 @@ test_that("if_all/any works in filter()", {
   expect_snapshot(lf %>% filter(if_any(a:b, ~ . > 0)))
 })
 
-test_that("if_all/any is wrapped in parantheses #1153", {
+test_that("if_all/any is wrapped in parentheses #1153", {
   lf <- lazy_frame(a = 1,  b = 2, c = 3)
 
   expect_equal(
@@ -464,7 +464,7 @@ test_that("if_all/any works in mutate()", {
   expect_snapshot(lf %>% mutate(c = if_any(a:b, ~ . > 0)))
 })
 
-test_that("if_all/any uses every colum as default", {
+test_that("if_all/any uses every column as default", {
   lf <- lazy_frame(a = 1, b = 2)
 
   expect_snapshot(lf %>% filter(if_all(.fns = ~ . > 0)))

tests/testthat/test-translate-sql-helpers.R

@@ -47,7 +47,7 @@ test_that("win_rank() is accepted by the sql_translator", {
   )
 })
 
-test_that("can translate infix expression without parantheses", {
+test_that("can translate infix expression without parentheses", {
   local_con(simulate_dbi())
   expect_equal(test_translate_sql(!!expr(2 - 1) * x), sql("(2.0 - 1.0) * `x`"))
   expect_equal(test_translate_sql(!!expr(2 / 1) * x), sql("(2.0 / 1.0) * `x`"))

tests/testthat/test-translate-sql-string.R

@@ -42,7 +42,7 @@ test_that("sql_str_sub works as expected", {
   expect_equal(str_sub(x, -3, -3), sql("SUBSTR(`x`, LENGTH(`x`) - 2, 1)"))
 })
 
-test_that("sql_str_sub can require length paramter", {
+test_that("sql_str_sub can require length parameter", {
   local_con(simulate_dbi())
   x <- ident("x")
   str_sub <- sql_str_sub("SUBSTR", optional_length = FALSE)

tests/testthat/test-utils.R

@@ -1,4 +1,4 @@
-test_that("Succesful and not-sucessful commands are identified", {
+test_that("Successful and not-successful commands are identified", {
   expect_true(succeeds("success"))
   expect_false(succeeds(x - 1, quiet = TRUE))
 })

tests/testthat/test-verb-distinct.R

@@ -21,7 +21,7 @@ test_that("distinct for single column equivalent to local unique (#1937)", {
     expect_equal_tbls(unique(df["y"]))
 })
 
-test_that("distinct doesn't duplicate colum names if grouped (#354)", {
+test_that("distinct doesn't duplicate column names if grouped (#354)", {
   df <- lazy_frame(a = 1)
   expect_equal(df %>% group_by(a) %>% distinct() %>% op_vars(), "a")
 })

tests/testthat/test-verb-mutate.R

@@ -129,7 +129,7 @@ test_that("across() can access previously created variables", {
   expect_snapshot(remote_query(lf))
 })
 
-test_that("across() uses original column rather than overriden one", {
+test_that("across() uses original column rather than overridden one", {
   db <- memdb_frame(x = 2, y = 4, z = 6)
   expect_equal(
     db %>% mutate(across(everything(), ~ .x / x)) %>% collect(),

tests/testthat/test-verb-pivot-wider.R

@@ -228,7 +228,7 @@ test_that("known bug - building a wider spec with a zero row data frame loses `v
   )
 })
 
-# non-unqiue keys ---------------------------------------------------------
+# non-unique keys ---------------------------------------------------------
 
 test_that("values_fn can be a single function", {
   df <- lazy_frame(a = c(1, 1, 2), key = c("x", "x", "x"), val = c(1, 10, 100))