docs: Use con in examples

Author: gadenbuie

pkg-r/R/DBISource.R

@@ -9,11 +9,11 @@
 #' @examples
 #' \dontrun{
 #' # Connect to a database
-#' conn <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
-#' DBI::dbWriteTable(conn, "mtcars", mtcars)
+#' con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
+#' DBI::dbWriteTable(con, "mtcars", mtcars)
 #'
 #' # Create a DBI source
-#' db_source <- DBISource$new(conn, "mtcars")
+#' db_source <- DBISource$new(con, "mtcars")
 #'
 #' # Get database type
 #' db_source$get_db_type()  # Returns "SQLite"
@@ -40,9 +40,9 @@ DBISource <- R6::R6Class(
     #' @return A new DBISource object
     #' @examples
     #' \dontrun{
-    #' conn <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
-    #' DBI::dbWriteTable(conn, "iris", iris)
-    #' source <- DBISource$new(conn, "iris")
+    #' con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
+    #' DBI::dbWriteTable(con, "iris", iris)
+    #' source <- DBISource$new(con, "iris")
     #' }
     initialize = function(conn, table_name) {
       if (!inherits(conn, "DBIConnection")) {

pkg-r/R/QueryChat.R

@@ -142,9 +142,9 @@ QueryChat <- R6::R6Class(
     #'
     #' # With database
     #' library(DBI)
-    #' conn <- dbConnect(RSQLite::SQLite(), ":memory:")
-    #' dbWriteTable(conn, "mtcars", mtcars)
-    #' qc <- QueryChat$new(conn, "mtcars")
+    #' con <- dbConnect(RSQLite::SQLite(), ":memory:")
+    #' dbWriteTable(con, "mtcars", mtcars)
+    #' qc <- QueryChat$new(con, "mtcars")
     #' }
     initialize = function(
       data_source,
@@ -748,9 +748,9 @@ QueryChat <- R6::R6Class(
 #'
 #' # Chat with a database table (table_name required)
 #' library(DBI)
-#' conn <- dbConnect(RSQLite::SQLite(), ":memory:")
-#' dbWriteTable(conn, "mtcars", mtcars)
-#' querychat_app(conn, "mtcars")
+#' con <- dbConnect(RSQLite::SQLite(), ":memory:")
+#' dbWriteTable(con, "mtcars", mtcars)
+#' querychat_app(con, "mtcars")
 #'
 #' # Create QueryChat class object
 #' qc <- querychat(mtcars)

pkg-r/R/TblSqlSource.R

@@ -45,8 +45,8 @@ TblSqlSource <- R6::R6Class(
     #'   string, or will be inferred from the `tbl` argument, if possible.
     #' @return A new TblSqlSource object
     #' @examplesIf rlang::is_interactive() && rlang::is_installed("dbplyr") && rlang::is_installed("dplyr") && rlang::is_installed("RSQLite")
-    #' conn <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
-    #' DBI::dbWriteTable(conn, "mtcars", mtcars)
+    #' con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
+    #' DBI::dbWriteTable(con, "mtcars", mtcars)
     #' source <- TblSqlSource$new(dplyr::tbl(con, "mtcars"))
     initialize = function(tbl, table_name = missing_arg()) {
       check_installed("dbplyr")