styler updates

Author: edgararuiz

R/connection-pin-write.R

@@ -59,6 +59,3 @@ write_pin_conn.tbl_conn <- function(x, board, ...) {
   )
   invisible()
 }
-
-
-

R/connection-view.R

@@ -47,15 +47,19 @@ connection_view.DBIConnection <- function(con, connection_code = "", host = "",
     name = name,
     host = host,
     connect_script = connect_code,
-    disconnect_code = function()
-      connection_close(con, host = host),
-    object_list = function(catalog = NULL, schema = NULL, ...)
-      dbi_list_objects(catalog, schema, sch, name, type, con),
+    disconnect_code = function() {
+      connection_close(con, host = host)
+    },
+    object_list = function(catalog = NULL, schema = NULL, ...) {
+      dbi_list_objects(catalog, schema, sch, name, type, con)
+    },
     object_columns = function(catalog = NULL, schema = NULL,
-                                  table = NULL, view = NULL, ...)
-      dbi_list_columns(catalog, schema, table, view, sch, con),
-    preview_code = function(limit, table, schema, ...)
+                              table = NULL, view = NULL, ...) {
+      dbi_list_columns(catalog, schema, table, view, sch, con)
+    },
+    preview_code = function(limit, table, schema, ...) {
       dbi_preview_object(limit, table, schema, sch, con)
+    }
   )
   rscontract_open(spec_contract)
 }

R/dbi-utils.R

@@ -104,10 +104,12 @@ top_rows <- function(limit = 10, table, schema, sch, con) {
 item_to_table <- function(item) {
   t <- lapply(
     item,
-    function(x) data_frame(
+    function(x) {
+      data_frame(
         name = x$name,
         type = x$type
       )
+    }
   )
   tbls <- NULL
   for (j in seq_along(t)) {

R/dplyr-methods.R

@@ -11,8 +11,7 @@ copy_to.connConnection <- function(dest,
                                    df,
                                    name = deparse(substitute(df)),
                                    overwrite = FALSE,
-                                   ...
-                                   ) {
+                                   ...) {
   ct <- copy_to(
     dest = dest@con,
     df = df,

README.Rmd

@@ -5,8 +5,7 @@ output: github_document
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 
 ```{r, include = FALSE}
-
-if(dir.exists("~/pins")) unlink("~/pins", recursive = TRUE)
+if (dir.exists("~/pins")) unlink("~/pins", recursive = TRUE)
 
 knitr::opts_chunk$set(
   collapse = TRUE,
@@ -17,7 +16,7 @@ knitr::opts_chunk$set(
 )
 
 add_figure <- function(path, width = 400) {
-  char_html <- paste0("<img src='", path,"' width ='", width,"px'/><br/>")
+  char_html <- paste0("<img src='", path, "' width ='", width, "px'/><br/>")
   htmltools::HTML(char_html)
 }
 
@@ -34,10 +33,10 @@ toc <- function() {
     seq_along(titles),
     function(x) {
       pad <- ifelse(substr(only_titles[x], 1, 3) == "###", "    - ", "  - ")
-      paste0(pad, "[", titles[x], "](#",links[x], ")")
+      paste0(pad, "[", titles[x], "](#", links[x], ")")
     }
   )
-  toc_full <- paste(toc_list, collapse = "\n") 
+  toc_full <- paste(toc_list, collapse = "\n")
   cat(toc_full)
 }
 ```
@@ -89,7 +88,7 @@ library(RSQLite)
 library(dplyr)
 library(pins)
 
-if(file.exists("local.sqlite")) unlink("local.sqlite")
+if (file.exists("local.sqlite")) unlink("local.sqlite")
 ```
 
 ## Functions
@@ -246,7 +245,7 @@ con <- connection_pin_read(board, "my_conn")
 tbl_summary <- con %>%
   tbl("mtcars") %>%
   group_by(cyl) %>%
-  summarise(avg_mpg = mean(mpg, na.rm = TRUE)) 
+  summarise(avg_mpg = mean(mpg, na.rm = TRUE))
 
 
 connection_pin_write(board, tbl_summary, name = "cyl_mpg")
@@ -293,14 +292,14 @@ connection_close(con)
 library(connections)
 library(RPostgres)
 con <- connection_open(
-  Postgres(), 
-  host = "localhost", 
+  Postgres(),
+  host = "localhost",
   dbname = "datawarehouse",
-  user = "[user id]", 
-  password = "[password]", 
+  user = "[user id]",
+  password = "[password]",
   bigint = "integer",
   port = "5432"
-  )
+)
 ```
 
 `r add_figure("man/figures/postgres-1.png")`

tests/testthat/helper-init.R

@@ -1,17 +1,15 @@
 test_env <- new.env()
 
 test_connection <- function() {
-  if(is.null(test_env$con)) {
+  if (is.null(test_env$con)) {
     test_env$con <- connection_open(RSQLite::SQLite(), path = "local.sqlite")
   }
   test_env$con
 }
 
 test_board <- function() {
-  if(is.null(test_env$board)) {
+  if (is.null(test_env$board)) {
     test_env$board <- board_temp()
   }
   test_env$board
 }
-
-

tests/testthat/test-dbi.R

@@ -1,6 +1,3 @@
-
-
-
 test_that("copy_to() works", {
   con <- test_connection()
   expect_silent(copy_to(con, mtcars))