styling

R/as_priv.R

@@ -26,7 +26,7 @@ print.privilege <- function(x, ...) {
   if (!is_really_empty(x$privilege)) {
     cat_me("type", x$type)
     for (i in x$privilege) {
-      cat_me(x=i$commands, y=i$cols %|||% "<all cols>", indent = "    ")
+      cat_me(x = i$commands, y = i$cols %|||% "<all cols>", indent = "    ")
     }
   }
   print(x$data)

R/examples.R

@@ -1,12 +1,12 @@
 #' Setup for running examples throughout this package
-#' 
+#'
 #' @name passwd
 #' @examplesIf interactive() && has_postgres()
 #' con <- dbConnect(Postgres())
 #' user <- dbGetQuery(con, "select current_user")$current_user
 #' # Create a table
 #' ## Create the table (with no data)
-#' 
+#'
 #' invisible(dbExecute(con, "
 #'   CREATE TABLE passwd (
 #'   user_name             text UNIQUE NOT NULL,
@@ -19,22 +19,22 @@
 #'   shell                 text NOT NULL
 #' );
 #' "))
-#' 
+#'
 #' # Some sample data
 #' sample_data <- tribble(
 #'   ~user_name, ~pwhash, ~uid, ~gid, ~real_name, ~home_phone, ~home_dir, ~shell,
-#'   'admin','xxx',0,0,'Admin','111-222-3333','/root','/bin/dash',
-#'   'bob','xxx',1,1,'Bob','123-456-7890','/home/bob','/bin/zsh',
-#'   'alice','xxx',2,1,'Alice','098-765-4321','/home/alice','/bin/zsh'
+#'   "admin", "xxx", 0, 0, "Admin", "111-222-3333", "/root", "/bin/dash",
+#'   "bob", "xxx", 1, 1, "Bob", "123-456-7890", "/home/bob", "/bin/zsh",
+#'   "alice", "xxx", 2, 1, "Alice", "098-765-4321", "/home/alice", "/bin/zsh"
 #' )
-#' 
+#'
 #' # Append rows to the `passwd` table
 #' rows_append(
 #'   tbl(con, "passwd"),
 #'   copy_inline(con, sample_data),
 #'   in_place = TRUE
 #' )
-#' 
+#'
 #' # Check that the data is in the table
 #' tbl(con, "passwd")
 NULL

R/pipeline.R

@@ -45,8 +45,10 @@ pipeline_info <- function() {
 
   is_piped <- any(is_magrittr_env)
 
-  list(is_piped = is_piped,
-       env      = if (is_piped) sys.frames()[[max(which(is_magrittr_env))]])
+  list(
+    is_piped = is_piped,
+    env = if (is_piped) sys.frames()[[max(which(is_magrittr_env))]]
+  )
 }
 
 #' Toggle Auto Execution On or Off for Pipelines

R/privileges.R

@@ -103,7 +103,7 @@ from <- to
 #' #  ON fruits
 #' #  TO jane
 #' priv <-
-#'  rls_tbl(con, "fruits") %>%
+#'   rls_tbl(con, "fruits") %>%
 #'   grant(select) %>%
 #'   to(jane)
 #' translate_privilege(priv, con)
@@ -112,7 +112,7 @@ from <- to
 #' #  ON fruits
 #' #  FROM jane
 #' priv <-
-#'  rls_tbl(con, "fruits") %>%
+#'   rls_tbl(con, "fruits") %>%
 #'   revoke(select) %>%
 #'   from(jane)
 #' translate_privilege(priv, con)
@@ -122,7 +122,7 @@ from <- to
 #' #  ON fruits
 #' #  TO jane
 #' priv <-
-#'  rls_tbl(con, "fruits") %>%
+#'   rls_tbl(con, "fruits") %>%
 #'   grant(select, cols = c("apples", "strawberries")) %>%
 #'   to(jane)
 #' sql <- translate_privilege(priv, con)
@@ -136,13 +136,15 @@ translate_privilege <- function(priv, con) {
 
   table_cols <- collapse(lapply(priv$privilege, \(w) {
     cols <- collapse(w$cols)
-    sprintf("%s %s",
+    sprintf(
+      "%s %s",
       collapse(w$commands),
       ifelse(is_really_empty(cols), "", glue("({cols})"))
     )
   }))
 
-  query <- sprintf(template,
+  query <- sprintf(
+    template,
     table_cols,
     attr(priv$data, "table"),
     priv$user