[R/as_data.R:6:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @details \code{as_data()} can currently convert R objects to greta_arrays if they are
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/as_data.R:20:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L20) *style:* **Lines should not be more than 80 characters.**
```r
#' arr <- array(sample(c(TRUE, FALSE), 2 * 2 * 2, replace = TRUE), dim = c(2, 2, 2))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/as_data.R:32:21:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L32) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
as_data <- function (x) {
                    ^
```
[R/as_data.R:33:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L33) *warning:* **no visible global function definition for ‘check_tf_version’**
```r
  check_tf_version("error")
  ^~~~~~~~~~~~~~~~
```
[R/as_data.R:39:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L39) *style:* **Variable or function name should be snake_case.**
```r
as_data.greta_array <- function (x) {
^~~~~~~~~~~~~~~~~~~
```
[R/as_data.R:39:33:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L39) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
as_data.greta_array <- function (x) {
                                ^
```
[R/as_data.R:41:10:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L41) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
    stop ("cannot coerce a non-data greta_array to data",
         ^
```
[R/as_data.R:49:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L49) *style:* **Variable or function name should be snake_case.**
```r
as_data.default <- function (x)
^~~~~~~~~~~~~~~
```
[R/as_data.R:49:29:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/as_data.R#L49) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
as_data.default <- function (x)
                            ^
```
[R/calculate.R:69:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
#' plot(mu_est ~ petal_length_plot, type = "n", ylim = range(mu_plot_draws[[1]]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate.R:75:23:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L75) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
calculate <- function (target, values = list(),
                      ^
```
[R/calculate.R:84:10:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L84) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
    stop ("'target' is not a greta array")
         ^
```
[R/calculate.R:93:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L93) *style:* **Variable or function name should be snake_case.**
```r
calculate_mcmc.list <- function (target, target_name, values, tf_float) {
^~~~~~~~~~~~~~~~~~~
```
[R/calculate.R:93:33:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L93) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
calculate_mcmc.list <- function (target, target_name, values, tf_float) {
                                ^
```
[R/calculate.R:95:17:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L95) *warning:* **no visible global function definition for ‘get_model_info’**
```r
  model_info <- get_model_info(values)
                ^~~~~~~~~~~~~~
```
[R/calculate.R:111:10:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L111) *warning:* **no visible global function definition for ‘get_node’**
```r
  dag$target_nodes <- list(get_node(target))
         ^~~~~~~~
```
[R/calculate.R:128:10:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L128) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (trace)
         ^
```
[R/calculate.R:160:10:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L160) *warning:* **no visible binding for global variable ‘dag_class’**
```r
  dag <- dag_class$new(all_greta_arrays, tf_float = tf_float)
         ^~~~~~~~~
```
[R/calculate.R:175:19:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L175) *warning:* **no visible global function definition for ‘get_node’**
```r
  dependencies <- get_node(target)$child_names(recursive = TRUE)
                  ^~~~~~~~
```
[R/calculate.R:180:44:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L180) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
                                  function (x)
                                           ^
```
[R/calculate.R:188:38:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L188) *warning:* **no visible binding for global variable ‘node_type’**
```r
  is_variable <- vapply(unmet_nodes, node_type, FUN.VALUE = "") == "variable"
                                     ^~~~~~~~~
```
[R/calculate.R:199:42:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L199) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
                                function (x) get_node(x)$unique_name,
                                         ^
```
[R/calculate.R:226:10:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L226) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
    stop (msg,
         ^
```
[R/calculate.R:235:28:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L235) *warning:* **no visible binding for global variable ‘add_first_dim’**
```r
  values <- lapply(values, add_first_dim)
                           ^~~~~~~~~~~~~
```
[R/calculate.R:238:23:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L238) *warning:* **no visible global function definition for ‘get_node’**
```r
  name <- dag$tf_name(get_node(target))
                      ^~~~~~~~
```
[R/calculate.R:241:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L241) *warning:* **no visible global function definition for ‘drop_first_dim’**
```r
  drop_first_dim(result)
  ^~~~~~~~~~~~~~
```
[R/calculate.R:246:24:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L246) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
assign_dim <- function (value, greta_array) {
                       ^
```
[R/calculate.R:247:12:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L247) *warning:* **no visible global function definition for ‘strip_unknown_class’**
```r
  array <- strip_unknown_class(get_node(greta_array)$value())
           ^~~~~~~~~~~~~~~~~~~
```
[R/calculate.R:247:32:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L247) *warning:* **no visible global function definition for ‘get_node’**
```r
  array <- strip_unknown_class(get_node(greta_array)$value())
                               ^~~~~~~~
```
[R/calculate.R:249:10:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/calculate.R#L249) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
    stop ("a provided value has different number of elements",
         ^
```
[R/callbacks.R:4:33:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/callbacks.R#L4) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
read_trace_log_file <- function (filename) {
                                ^
```
[R/callbacks.R:12:36:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/callbacks.R#L12) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
read_progress_log_file <- function (filename, skip = 0) {
                                   ^
```
[R/callbacks.R:24:29:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/callbacks.R#L24) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
render_progress <- function (reads) {
                            ^
```
[R/callbacks.R:45:25:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/callbacks.R#L45) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
percentages <- function () {
                        ^
```
[R/callbacks.R:48:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/callbacks.R#L48) *warning:* **no visible global function definition for ‘render_progress’**
```r
  render_progress(reads)
  ^~~~~~~~~~~~~~~
```
[R/callbacks.R:51:27:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/callbacks.R#L51) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
progress_bars <- function () {
                          ^
```
[R/callbacks.R:55:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/callbacks.R#L55) *warning:* **no visible global function definition for ‘render_progress’**
```r
  render_progress(reads)
  ^~~~~~~~~~~~~~~
```
[R/dag_class.R:499:7:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/dag_class.R#L499) *style:* **Variable or function name should be snake_case.**
```r
      A <- self$adjacency_matrix
      ^
```
[R/dag_class.R:500:7:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/dag_class.R#L500) *style:* **Variable or function name should be snake_case.**
```r
      S <- (A + t(A)) > 0
      ^
```
[R/dag_class.R:506:7:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/dag_class.R#L506) *style:* **Variable or function name should be snake_case.**
```r
      P <- R <- S
      ^
```
[R/dag_class.R:506:12:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/dag_class.R#L506) *style:* **Variable or function name should be snake_case.**
```r
      P <- R <- S
           ^
```
[R/dag_class.R:508:9:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/dag_class.R#L508) *style:* **Variable or function name should be snake_case.**
```r
        P <- P %*% S
        ^
```
[R/dag_class.R:511:11:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/dag_class.R#L511) *style:* **Variable or function name should be snake_case.**
```r
          R <- T
          ^
```
[R/distribution.R:42:18:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/distribution.R#L42) *warning:* **no visible global function definition for ‘as.greta_array’**
```r
  greta_array <- as.greta_array(greta_array)
                 ^~~~~~~~~~~~~~
```
[R/distribution.R:44:11:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/distribution.R#L44) *warning:* **no visible global function definition for ‘get_node’**
```r
  node <- get_node(greta_array)
          ^~~~~~~~
```
[R/distribution.R:65:17:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/distribution.R#L65) *warning:* **no visible global function definition for ‘get_node’**
```r
  value_node <- get_node(value)
                ^~~~~~~~
```
[R/extract_replace_combine.R:83:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L83) *warning:* **no visible global function definition for ‘dummy’, Did you mean 'dump'?**
```r
  dummy_in <- dummy(dims_in)
  ^~~~~
```
[R/extract_replace_combine.R:103:11:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L103) *warning:* **no visible global function definition for ‘get_node’**
```r
  node <- get_node(x)
          ^~~~~~~~
```
[R/extract_replace_combine.R:144:12:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L144) *warning:* **no visible global function definition for ‘flatten_rowwise’**
```r
  index <- flatten_rowwise(dummy_out)
           ^~~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:162:11:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L162) *warning:* **no visible global function definition for ‘get_node’**
```r
  node <- get_node(x)
          ^~~~~~~~
```
[R/extract_replace_combine.R:170:18:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L170) *warning:* **no visible global function definition for ‘as.greta_array’**
```r
  replacement <- as.greta_array(value)
                 ^~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:215:24:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L215) *warning:* **no visible global function definition for ‘get_node’**
```r
  replacement_value <- get_node(replacement)$value()
                       ^~~~~~~~
```
[R/extract_replace_combine.R:241:24:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L241) *warning:* **no visible binding for global variable ‘as.greta_array’**
```r
  dots <- lapply(dots, as.greta_array)
                       ^~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:270:24:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L270) *warning:* **no visible binding for global variable ‘as.greta_array’**
```r
  dots <- lapply(dots, as.greta_array)
                       ^~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:360:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L360) *style:* **Variable or function name should be snake_case.**
```r
  arg.list <- list(...)
  ^~~~~~~~
```
[R/extract_replace_combine.R:365:5:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L365) *style:* **Variable or function name should be snake_case.**
```r
    arg.list <- arg.list[!to_discard]
    ^~~~~~~~
```
[R/extract_replace_combine.R:370:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L370) *style:* **Variable or function name should be snake_case.**
```r
  N <- max(vapply(dims, length, FUN.VALUE = 1L))
  ^
```
[R/extract_replace_combine.R:376:5:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L376) *style:* **Variable or function name should be snake_case.**
```r
    N <- N + 1
    ^
```
[R/extract_replace_combine.R:389:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L389) *style:* **Variable or function name should be snake_case.**
```r
  arg.list <- arg.list
  ^~~~~~~~
```
[R/extract_replace_combine.R:392:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L392) *style:* **Variable or function name should be snake_case.**
```r
  arg.list <- lapply(arg.list,
  ^~~~~~~~
```
[R/extract_replace_combine.R:437:24:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L437) *warning:* **no visible binding for global variable ‘as.greta_array’, Did you mean 'is_greta_array'?**
```r
  args <- lapply(args, as.greta_array, optional = TRUE)
                       ^~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:448:26:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L448) *warning:* **no visible binding for global variable ‘flatten’**
```r
  arrays <- lapply(args, flatten)
                         ^~~~~~~
```
[R/extract_replace_combine.R:518:16:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L518) *warning:* **no visible global function definition for ‘get_node’**
```r
  new_value <- get_node(x)$value()
               ^~~~~~~~
```
[R/extract_replace_combine.R:534:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L534) *style:* **Variable or function name should be snake_case.**
```r
head.greta_array <- function(x, n = 6L, ...) {
^~~~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:567:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L567) *style:* **Variable or function name should be snake_case.**
```r
tail.greta_array <- function(x, n = 6L, ...) {
^~~~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:609:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L609) *style:* **Variable or function name should be snake_case.**
```r
diag.default <- function(...)
^~~~~~~~~~~~
```
[R/extract_replace_combine.R:613:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/extract_replace_combine.R#L613) *style:* **Variable or function name should be snake_case.**
```r
diag.greta_array <- function(x = 1, nrow, ncol) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:106:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L106) *style:* **Variable or function name should be snake_case.**
```r
log.greta_array <- function(x, base = exp(1)) {
^~~~~~~~~~~~~~~
```
[R/functions.R:108:15:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L108) *warning:* **no visible global function definition for ‘copy_representation’**
```r
    result <- copy_representation(x, "log")
              ^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:117:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L117) *style:* **Variable or function name should be snake_case.**
```r
exp.greta_array <- function(x) {
^~~~~~~~~~~~~~~
```
[R/functions.R:120:15:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L120) *warning:* **no visible global function definition for ‘copy_representation’**
```r
    result <- copy_representation(x, "exp")
              ^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:130:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L130) *style:* **Variable or function name should be snake_case.**
```r
log1p.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~
```
[R/functions.R:131:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L131) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("log1p", x, tf_operation = "tf$log1p")
  ^~
```
[R/functions.R:135:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L135) *style:* **Variable or function name should be snake_case.**
```r
expm1.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~
```
[R/functions.R:136:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L136) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("expm1", x, tf_operation = "tf$expm1")
  ^~
```
[R/functions.R:140:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L140) *style:* **Variable or function name should be snake_case.**
```r
abs.greta_array <- function(x) {
^~~~~~~~~~~~~~~
```
[R/functions.R:141:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L141) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("abs", x, tf_operation = "tf$abs")
  ^~
```
[R/functions.R:145:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L145) *style:* **Variable or function name should be snake_case.**
```r
sqrt.greta_array <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:146:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L146) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("sqrt", x, tf_operation = "tf$sqrt")
  ^~
```
[R/functions.R:150:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L150) *style:* **Variable or function name should be snake_case.**
```r
sign.greta_array <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:151:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L151) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("sign", x, tf_operation = "tf$sign")
  ^~
```
[R/functions.R:155:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L155) *style:* **Variable or function name should be snake_case.**
```r
ceiling.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:156:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L156) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("ceil", x, tf_operation = "tf$ceil")
  ^~
```
[R/functions.R:160:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L160) *style:* **Variable or function name should be snake_case.**
```r
floor.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~
```
[R/functions.R:161:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L161) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("floor", x, tf_operation = "tf$floor")
  ^~
```
[R/functions.R:165:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L165) *style:* **Variable or function name should be snake_case.**
```r
round.greta_array <- function(x, digits = 0) {
^~~~~~~~~~~~~~~~~
```
[R/functions.R:169:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L169) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("round", x, tf_operation = "tf$round")
  ^~
```
[R/functions.R:174:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L174) *style:* **Variable or function name should be snake_case.**
```r
cos.greta_array <- function(x) {
^~~~~~~~~~~~~~~
```
[R/functions.R:175:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L175) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("cos", x, tf_operation = "tf$cos")
  ^~
```
[R/functions.R:179:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L179) *style:* **Variable or function name should be snake_case.**
```r
sin.greta_array <- function(x) {
^~~~~~~~~~~~~~~
```
[R/functions.R:180:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L180) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("sin", x, tf_operation = "tf$sin")
  ^~
```
[R/functions.R:184:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L184) *style:* **Variable or function name should be snake_case.**
```r
tan.greta_array <- function(x) {
^~~~~~~~~~~~~~~
```
[R/functions.R:185:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L185) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("tan", x, tf_operation = "tf$tan")
  ^~
```
[R/functions.R:189:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L189) *style:* **Variable or function name should be snake_case.**
```r
acos.greta_array <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:190:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L190) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("acos", x, tf_operation = "tf$acos")
  ^~
```
[R/functions.R:194:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L194) *style:* **Variable or function name should be snake_case.**
```r
asin.greta_array <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:195:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L195) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("asin", x, tf_operation = "tf$asin")
  ^~
```
[R/functions.R:199:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L199) *style:* **Variable or function name should be snake_case.**
```r
atan.greta_array <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:200:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L200) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("atan", x, tf_operation = "tf$atan")
  ^~
```
[R/functions.R:204:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L204) *style:* **Variable or function name should be snake_case.**
```r
lgamma.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~~
```
[R/functions.R:205:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L205) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("lgamma", x, tf_operation = "tf$lgamma")
  ^~
```
[R/functions.R:209:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L209) *style:* **Variable or function name should be snake_case.**
```r
digamma.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:210:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L210) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("digamma", x, tf_operation = "tf$digamma")
  ^~
```
[R/functions.R:229:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L229) *style:* **Variable or function name should be snake_case.**
```r
aperm.greta_array <- function(a, perm = NULL, ...) {
^~~~~~~~~~~~~~~~~
```
[R/functions.R:253:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L253) *style:* **Variable or function name should be snake_case.**
```r
chol.greta_array <- function(x, ...) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:259:15:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L259) *warning:* **no visible global function definition for ‘copy_representation’**
```r
    result <- copy_representation(x, "cholesky")
              ^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:296:7:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L296) *style:* **Variable or function name should be snake_case.**
```r
      U <- representation(a, "cholesky")
      ^
```
[R/functions.R:331:41:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L331) *style:* **Variable or function name should be snake_case.**
```r
chol2inv <- function(x, size = NCOL(x), LINPACK = FALSE) {
                                        ^~~~~~~
```
[R/functions.R:336:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L336) *style:* **Variable or function name should be snake_case.**
```r
chol2inv.default <- function(x, size = NCOL(x), LINPACK = FALSE) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:336:49:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L336) *style:* **Variable or function name should be snake_case.**
```r
chol2inv.default <- function(x, size = NCOL(x), LINPACK = FALSE) {
                                                ^~~~~~~
```
[R/functions.R:341:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L341) *style:* **Variable or function name should be snake_case.**
```r
chol2inv.greta_array <- function(x, size = NCOL(x), LINPACK = FALSE) {
^~~~~~~~~~~~~~~~~~~~
```
[R/functions.R:341:53:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L341) *style:* **Variable or function name should be snake_case.**
```r
chol2inv.greta_array <- function(x, size = NCOL(x), LINPACK = FALSE) {
                                                    ^~~~~~~
```
[R/functions.R:358:21:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L358) *style:* **Variable or function name should be snake_case.**
```r
cov2cor <- function(V) {
                    ^
```
[R/functions.R:363:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L363) *style:* **Variable or function name should be snake_case.**
```r
cov2cor.default <- function(V) {
^~~~~~~~~~~~~~~
```
[R/functions.R:363:29:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L363) *style:* **Variable or function name should be snake_case.**
```r
cov2cor.default <- function(V) {
                            ^
```
[R/functions.R:368:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L368) *style:* **Variable or function name should be snake_case.**
```r
cov2cor.greta_array <- function(V) {
^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:368:33:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L368) *style:* **Variable or function name should be snake_case.**
```r
cov2cor.greta_array <- function(V) {
                                ^
```
[R/functions.R:376:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L376) *style:* **Variable or function name should be snake_case.**
```r
sum.greta_array <- function(..., na.rm = TRUE) {
^~~~~~~~~~~~~~~
```
[R/functions.R:376:34:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L376) *style:* **Variable or function name should be snake_case.**
```r
sum.greta_array <- function(..., na.rm = TRUE) {
                                 ^~~~~
```
[R/functions.R:389:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L389) *style:* **Variable or function name should be snake_case.**
```r
prod.greta_array <- function(..., na.rm = TRUE) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:389:35:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L389) *style:* **Variable or function name should be snake_case.**
```r
prod.greta_array <- function(..., na.rm = TRUE) {
                                  ^~~~~
```
[R/functions.R:402:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L402) *style:* **Variable or function name should be snake_case.**
```r
min.greta_array <- function(..., na.rm = TRUE) {
^~~~~~~~~~~~~~~
```
[R/functions.R:402:34:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L402) *style:* **Variable or function name should be snake_case.**
```r
min.greta_array <- function(..., na.rm = TRUE) {
                                 ^~~~~
```
[R/functions.R:415:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L415) *style:* **Variable or function name should be snake_case.**
```r
mean.greta_array <- function(x, trim = 0, na.rm = TRUE, ...) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:415:43:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L415) *style:* **Variable or function name should be snake_case.**
```r
mean.greta_array <- function(x, trim = 0, na.rm = TRUE, ...) {
                                          ^~~~~
```
[R/functions.R:425:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L425) *style:* **Variable or function name should be snake_case.**
```r
max.greta_array <- function(..., na.rm = TRUE) {
^~~~~~~~~~~~~~~
```
[R/functions.R:425:34:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L425) *style:* **Variable or function name should be snake_case.**
```r
max.greta_array <- function(..., na.rm = TRUE) {
                                 ^~~~~
```
[R/functions.R:447:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L447) *style:* **Variable or function name should be snake_case.**
```r
cumsum.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~~
```
[R/functions.R:448:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L448) *warning:* **no visible global function definition for ‘check_cum_op’**
```r
  check_cum_op(x)
  ^~~~~~~~~~~~
```
[R/functions.R:449:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L449) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("cumsum", x, tf_operation = "tf_cumsum")
  ^~
```
[R/functions.R:453:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L453) *style:* **Variable or function name should be snake_case.**
```r
cumprod.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:454:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L454) *warning:* **no visible global function definition for ‘check_cum_op’**
```r
  check_cum_op(x)
  ^~~~~~~~~~~~
```
[R/functions.R:455:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L455) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("cumprod", x, tf_operation = "tf_cumprod")
  ^~
```
[R/functions.R:473:10:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L473) *warning:* **no visible global function definition for ‘rowcol_idx’**
```r
  idx <- rowcol_idx(x, dims, which)
         ^~~~~~~~~~
```
[R/functions.R:487:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L487) *style:* **Variable or function name should be snake_case.**
```r
identity.default <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:492:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L492) *style:* **Variable or function name should be snake_case.**
```r
identity.greta_array <- function(x) {
^~~~~~~~~~~~~~~~~~~~
```
[R/functions.R:494:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L494) *warning:* **no visible global function definition for ‘op’, Did you mean 'x'?**
```r
  op("identity", x, tf_operation = "tf$identity")
  ^~
```
[R/functions.R:499:25:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L499) *style:* **Variable or function name should be snake_case.**
```r
colMeans <- function(x, na.rm = FALSE, dims = 1L)
                        ^~~~~
```
[R/functions.R:503:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L503) *style:* **Variable or function name should be snake_case.**
```r
colMeans.default <- function(x, na.rm = FALSE, dims = 1L)
^~~~~~~~~~~~~~~~
```
[R/functions.R:503:33:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L503) *style:* **Variable or function name should be snake_case.**
```r
colMeans.default <- function(x, na.rm = FALSE, dims = 1L)
                                ^~~~~
```
[R/functions.R:507:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L507) *style:* **Variable or function name should be snake_case.**
```r
colMeans.greta_array <- function(x, na.rm = FALSE, dims = 1L) {
^~~~~~~~~~~~~~~~~~~~
```
[R/functions.R:507:37:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L507) *style:* **Variable or function name should be snake_case.**
```r
colMeans.greta_array <- function(x, na.rm = FALSE, dims = 1L) {
                                    ^~~~~
```
[R/functions.R:518:25:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L518) *style:* **Variable or function name should be snake_case.**
```r
rowMeans <- function(x, na.rm = FALSE, dims = 1L)
                        ^~~~~
```
[R/functions.R:522:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L522) *style:* **Variable or function name should be snake_case.**
```r
rowMeans.default <- function(x, na.rm = FALSE, dims = 1L)
^~~~~~~~~~~~~~~~
```
[R/functions.R:522:33:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L522) *style:* **Variable or function name should be snake_case.**
```r
rowMeans.default <- function(x, na.rm = FALSE, dims = 1L)
                                ^~~~~
```
[R/functions.R:526:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L526) *style:* **Variable or function name should be snake_case.**
```r
rowMeans.greta_array <- function(x, na.rm = FALSE, dims = 1L) {
^~~~~~~~~~~~~~~~~~~~
```
[R/functions.R:526:37:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L526) *style:* **Variable or function name should be snake_case.**
```r
rowMeans.greta_array <- function(x, na.rm = FALSE, dims = 1L) {
                                    ^~~~~
```
[R/functions.R:537:24:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L537) *style:* **Variable or function name should be snake_case.**
```r
colSums <- function(x, na.rm = FALSE, dims = 1L)
                       ^~~~~
```
[R/functions.R:541:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L541) *style:* **Variable or function name should be snake_case.**
```r
colSums.default <- function(x, na.rm = FALSE, dims = 1L)
^~~~~~~~~~~~~~~
```
[R/functions.R:541:32:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L541) *style:* **Variable or function name should be snake_case.**
```r
colSums.default <- function(x, na.rm = FALSE, dims = 1L)
                               ^~~~~
```
[R/functions.R:545:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L545) *style:* **Variable or function name should be snake_case.**
```r
colSums.greta_array <- function(x, na.rm = FALSE, dims = 1L) {
^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:545:36:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L545) *style:* **Variable or function name should be snake_case.**
```r
colSums.greta_array <- function(x, na.rm = FALSE, dims = 1L) {
                                   ^~~~~
```
[R/functions.R:556:24:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L556) *style:* **Variable or function name should be snake_case.**
```r
rowSums <- function(x, na.rm = FALSE, dims = 1L)
                       ^~~~~
```
[R/functions.R:560:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L560) *style:* **Variable or function name should be snake_case.**
```r
rowSums.default <- function(x, na.rm = FALSE, dims = 1L)
^~~~~~~~~~~~~~~
```
[R/functions.R:560:32:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L560) *style:* **Variable or function name should be snake_case.**
```r
rowSums.default <- function(x, na.rm = FALSE, dims = 1L)
                               ^~~~~
```
[R/functions.R:564:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L564) *style:* **Variable or function name should be snake_case.**
```r
rowSums.greta_array <- function(x, na.rm = FALSE, dims = 1L) {
^~~~~~~~~~~~~~~~~~~
```
[R/functions.R:564:36:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L564) *style:* **Variable or function name should be snake_case.**
```r
rowSums.greta_array <- function(x, na.rm = FALSE, dims = 1L) {
                                   ^~~~~
```
[R/functions.R:575:22:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L575) *style:* **Variable or function name should be snake_case.**
```r
sweep <- function(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...) {
                     ^~~~~~
```
[R/functions.R:575:30:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L575) *style:* **Variable or function name should be snake_case.**
```r
sweep <- function(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...) {
                             ^~~~~
```
[R/functions.R:575:37:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L575) *style:* **Variable or function name should be snake_case.**
```r
sweep <- function(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...) {
                                    ^~~
```
[R/functions.R:575:48:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L575) *style:* **Variable or function name should be snake_case.**
```r
sweep <- function(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...) {
                                               ^~~~~~~~~~~~
```
[R/functions.R:585:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L585) *style:* **Variable or function name should be snake_case.**
```r
sweep.default <- base::sweep
^~~~~~~~~~~~~
```
[R/functions.R:588:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L588) *style:* **Variable or function name should be snake_case.**
```r
sweep.greta_array <- function(x,
^~~~~~~~~~~~~~~~~
```
[R/functions.R:589:31:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L589) *style:* **Variable or function name should be snake_case.**
```r
                              MARGIN,
                              ^~~~~~
```
[R/functions.R:590:31:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L590) *style:* **Variable or function name should be snake_case.**
```r
                              STATS,
                              ^~~~~
```
[R/functions.R:591:31:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L591) *style:* **Variable or function name should be snake_case.**
```r
                              FUN = c("-", "+", "/", "*"),
                              ^~~
```
[R/functions.R:592:31:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L592) *style:* **Variable or function name should be snake_case.**
```r
                              check.margin = TRUE, ...) {
                              ^~~~~~~~~~~~
```
[R/functions.R:595:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L595) *style:* **Variable or function name should be snake_case.**
```r
  FUN <- match.arg(FUN)
  ^~~
```
[R/functions.R:597:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L597) *style:* **Variable or function name should be snake_case.**
```r
  STATS <- as.greta_array(STATS)
  ^~~~~
```
[R/functions.R:597:12:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L597) *warning:* **no visible global function definition for ‘as.greta_array’**
```r
  STATS <- as.greta_array(STATS)
           ^~~~~~~~~~~~~~
```
[R/functions.R:630:20:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L630) *style:* **Variable or function name should be snake_case.**
```r
          function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                   ^
```
[R/functions.R:630:23:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L630) *style:* **Variable or function name should be snake_case.**
```r
          function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                      ^
```
[R/functions.R:630:26:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L630) *style:* **Variable or function name should be snake_case.**
```r
          function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                         ^~~
```
[R/functions.R:630:55:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L630) *style:* **Variable or function name should be snake_case.**
```r
          function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                                                      ^~~~~~~~~~~~~
```
[R/functions.R:633:13:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L633) *style:* **Variable or function name should be snake_case.**
```r
            FUN <- match.arg(FUN)
            ^~~
```
[R/functions.R:670:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L670) *style:* **Variable or function name should be snake_case.**
```r
backsolve.default <- function(r, x, k = ncol(r),
^~~~~~~~~~~~~~~~~
```
[R/functions.R:680:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L680) *style:* **Variable or function name should be snake_case.**
```r
backsolve.greta_array <- function(r, x,
^~~~~~~~~~~~~~~~~~~~~
```
[R/functions.R:711:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L711) *style:* **Variable or function name should be snake_case.**
```r
forwardsolve.default <- function(l, x, k = ncol(l),
^~~~~~~~~~~~~~~~~~~~
```
[R/functions.R:721:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L721) *style:* **Variable or function name should be snake_case.**
```r
forwardsolve.greta_array <- function(l, x,
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/functions.R:744:19:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L744) *style:* **Variable or function name should be snake_case.**
```r
apply <- function(X, MARGIN, FUN, ...) {
                  ^
```
[R/functions.R:744:22:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L744) *style:* **Variable or function name should be snake_case.**
```r
apply <- function(X, MARGIN, FUN, ...) {
                     ^~~~~~
```
[R/functions.R:744:30:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L744) *style:* **Variable or function name should be snake_case.**
```r
apply <- function(X, MARGIN, FUN, ...) {
                             ^~~
```
[R/functions.R:749:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L749) *style:* **Variable or function name should be snake_case.**
```r
apply.default <- function(X, MARGIN, FUN, ...) {
^~~~~~~~~~~~~
```
[R/functions.R:749:27:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L749) *style:* **Variable or function name should be snake_case.**
```r
apply.default <- function(X, MARGIN, FUN, ...) {
                          ^
```
[R/functions.R:749:30:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L749) *style:* **Variable or function name should be snake_case.**
```r
apply.default <- function(X, MARGIN, FUN, ...) {
                             ^~~~~~
```
[R/functions.R:749:38:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L749) *style:* **Variable or function name should be snake_case.**
```r
apply.default <- function(X, MARGIN, FUN, ...) {
                                     ^~~
```
[R/functions.R:757:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L757) *style:* **Variable or function name should be snake_case.**
```r
apply.greta_array <- function(X, MARGIN,
^~~~~~~~~~~~~~~~~
```
[R/functions.R:757:31:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L757) *style:* **Variable or function name should be snake_case.**
```r
apply.greta_array <- function(X, MARGIN,
                              ^
```
[R/functions.R:757:34:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L757) *style:* **Variable or function name should be snake_case.**
```r
apply.greta_array <- function(X, MARGIN,
                                 ^~~~~~
```
[R/functions.R:758:31:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L758) *style:* **Variable or function name should be snake_case.**
```r
                              FUN = c("sum", "max", "mean", "min", "prod",
                              ^~~
```
[R/functions.R:762:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L762) *style:* **Variable or function name should be snake_case.**
```r
  FUN <- match.arg(FUN)
  ^~~
```
[R/functions.R:769:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L769) *style:* **Variable or function name should be snake_case.**
```r
  MARGIN <- as.integer(MARGIN)
  ^~~~~~
```
[R/functions.R:775:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L775) *style:* **Variable or function name should be snake_case.**
```r
  s.call <- ds[-MARGIN]
  ^~~~~~
```
[R/functions.R:776:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L776) *style:* **Variable or function name should be snake_case.**
```r
  s.ans <- ds[MARGIN]
  ^~~~~
```
[R/functions.R:778:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L778) *style:* **Variable or function name should be snake_case.**
```r
  d.call <- d[-MARGIN]
  ^~~~~~
```
[R/functions.R:779:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L779) *style:* **Variable or function name should be snake_case.**
```r
  d.ans <- d[MARGIN]
  ^~~~~
```
[R/functions.R:823:20:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L823) *style:* **Variable or function name should be snake_case.**
```r
tapply <- function(X, INDEX, FUN, ...) {
                   ^
```
[R/functions.R:823:23:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L823) *style:* **Variable or function name should be snake_case.**
```r
tapply <- function(X, INDEX, FUN, ...) {
                      ^~~~~
```
[R/functions.R:823:30:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L823) *style:* **Variable or function name should be snake_case.**
```r
tapply <- function(X, INDEX, FUN, ...) {
                             ^~~
```
[R/functions.R:828:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L828) *style:* **Variable or function name should be snake_case.**
```r
tapply.default <- function(X, INDEX, FUN = NULL, ...,
^~~~~~~~~~~~~~
```
[R/functions.R:828:28:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L828) *style:* **Variable or function name should be snake_case.**
```r
tapply.default <- function(X, INDEX, FUN = NULL, ...,
                           ^
```
[R/functions.R:828:31:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L828) *style:* **Variable or function name should be snake_case.**
```r
tapply.default <- function(X, INDEX, FUN = NULL, ...,
                              ^~~~~
```
[R/functions.R:828:38:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L828) *style:* **Variable or function name should be snake_case.**
```r
tapply.default <- function(X, INDEX, FUN = NULL, ...,
                                     ^~~
```
[R/functions.R:839:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L839) *style:* **Variable or function name should be snake_case.**
```r
tapply.greta_array <- function(X, INDEX,
^~~~~~~~~~~~~~~~~~
```
[R/functions.R:839:32:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L839) *style:* **Variable or function name should be snake_case.**
```r
tapply.greta_array <- function(X, INDEX,
                               ^
```
[R/functions.R:839:35:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L839) *style:* **Variable or function name should be snake_case.**
```r
tapply.greta_array <- function(X, INDEX,
                                  ^~~~~
```
[R/functions.R:840:32:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L840) *style:* **Variable or function name should be snake_case.**
```r
                               FUN = c("sum", "max", "mean", "min", "prod"),
                               ^~~
```
[R/functions.R:843:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L843) *style:* **Variable or function name should be snake_case.**
```r
  FUN <- match.arg(FUN)
  ^~~
```
[R/functions.R:873:33:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L873) *style:* **Variable or function name should be snake_case.**
```r
eigen <- function(x, symmetric, only.values, EISPACK) {
                                ^~~~~~~~~~~
```
[R/functions.R:873:46:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L873) *style:* **Variable or function name should be snake_case.**
```r
eigen <- function(x, symmetric, only.values, EISPACK) {
                                             ^~~~~~~
```
[R/functions.R:878:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L878) *style:* **Variable or function name should be snake_case.**
```r
eigen.default <- function(x, symmetric,
^~~~~~~~~~~~~
```
[R/functions.R:879:27:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L879) *style:* **Variable or function name should be snake_case.**
```r
                          only.values = FALSE, EISPACK = FALSE) {
                          ^~~~~~~~~~~
```
[R/functions.R:879:48:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L879) *style:* **Variable or function name should be snake_case.**
```r
                          only.values = FALSE, EISPACK = FALSE) {
                                               ^~~~~~~
```
[R/functions.R:887:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L887) *style:* **Variable or function name should be snake_case.**
```r
eigen.greta_array <- function(x, symmetric,
^~~~~~~~~~~~~~~~~
```
[R/functions.R:888:31:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L888) *style:* **Variable or function name should be snake_case.**
```r
                              only.values = FALSE, EISPACK = FALSE) {
                              ^~~~~~~~~~~
```
[R/functions.R:888:52:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L888) *style:* **Variable or function name should be snake_case.**
```r
                              only.values = FALSE, EISPACK = FALSE) {
                                                   ^~~~~~~
```
[R/functions.R:890:8:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L890) *warning:* **no visible global function definition for ‘as.greta_array’**
```r
  x <- as.greta_array(x)
       ^~~~~~~~~~~~~~
```
[R/functions.R:942:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L942) *style:* **Variable or function name should be snake_case.**
```r
rdist.default <- function(x1, x2 = NULL, compact = FALSE) {
^~~~~~~~~~~~~
```
[R/functions.R:956:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L956) *style:* **Variable or function name should be snake_case.**
```r
rdist.greta_array <- function(x1, x2 = NULL, compact = FALSE) {
^~~~~~~~~~~~~~~~~
```
[R/functions.R:962:9:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L962) *warning:* **no visible global function definition for ‘as.greta_array’**
```r
  x1 <- as.greta_array(x1)
        ^~~~~~~~~~~~~~
```
[R/functions.R:966:11:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L966) *warning:* **no visible global function definition for ‘flatten’**
```r
    x1 <- flatten(x1)
          ^~~~~~~
```
[R/functions.R:982:11:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L982) *warning:* **no visible global function definition for ‘as.greta_array’**
```r
    x2 <- as.greta_array(x2)
          ^~~~~~~~~~~~~~
```
[R/functions.R:985:13:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/functions.R#L985) *warning:* **no visible global function definition for ‘flatten’**
```r
      x2 <- flatten(x2)
            ^~~~~~~
```
[R/greta_array_class.R:135:11:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_array_class.R#L135) *warning:* **no visible global function definition for ‘get_node’**
```r
  node <- get_node(x)
          ^~~~~~~~
```
[R/greta_array_class.R:147:11:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_array_class.R#L147) *warning:* **no visible global function definition for ‘get_node’**
```r
  node <- get_node(object)
          ^~~~~~~~
```
[R/greta_array_class.R:188:12:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_array_class.R#L188) *warning:* **no visible global function definition for ‘get_node’**
```r
  value <- get_node(object)$value()
           ^~~~~~~~
```
[R/greta_array_class.R:208:15:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_array_class.R#L208) *warning:* **no visible global function definition for ‘get_node’**
```r
    x_node <- get_node(x)
              ^~~~~~~~
```
[R/greta_model_class.R:33:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L33) *style:* **Lines should not be more than 80 characters.**
```r
#'   depend, or which depend on them. Further arguments to \code{model} can be used to configure the tensorflow
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/greta_model_class.R:55:3:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L55) *warning:* **no visible global function definition for ‘check_tf_version’**
```r
  check_tf_version("error")
  ^~~~~~~~~~~~~~~~
```
[R/greta_model_class.R:176:12:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L176) *warning:* **no visible global function definition for ‘as.greta_model’**
```r
  model <- as.greta_model(dag)
           ^~~~~~~~~~~~~~
```
[R/greta_model_class.R:178:33:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L178) *warning:* **no visible global function definition for ‘all_greta_arrays’, Did you mean 'are_greta_arrays'?**
```r
  model$visible_greta_arrays <- all_greta_arrays(parent.frame())
                                ^~~~~~~~~~~~~~~~
```
[R/greta_model_class.R:212:1:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L212) *style:* **Lines should not be more than 80 characters.**
```r
#' @return \code{plot} - a \code{\link[DiagrammeR:create_graph]{DiagrammeR::gdr_graph}} object (invisibly).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/greta_model_class.R:244:28:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L244) *warning:* **no visible global function definition for ‘greta_col’**
```r
  node_edge_colours <- rep(greta_col("lighter", colour), n_nodes)
                           ^~~~~~~~~
```
[R/greta_model_class.R:245:49:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L245) *warning:* **no visible global function definition for ‘greta_col’**
```r
  node_edge_colours[types == "distribution"] <- greta_col("light", colour)
                                                ^~~~~~~~~
```
[R/greta_model_class.R:248:23:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L248) *warning:* **no visible global function definition for ‘greta_col’**
```r
  node_colours <- rep(greta_col("super_light", colour), n_nodes)
                      ^~~~~~~~~
```
[R/greta_model_class.R:249:44:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L249) *warning:* **no visible global function definition for ‘greta_col’**
```r
  node_colours[types == "distribution"] <- greta_col("lighter", colour)
                                           ^~~~~~~~~
```
[R/greta_model_class.R:265:51:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L265) *warning:* **no visible binding for global variable ‘get_node’**
```r
  visible_nodes <- lapply(x$visible_greta_arrays, get_node)
                                                  ^~~~~~~~
```
[R/greta_model_class.R:355:28:](https://github.com/greta-dev/greta/blob/bdaa771c5c3d183f7110b69169ee8276de227fd7/R/greta_model_class.R#L355) *warning:* **no visible global function definition for ‘greta_col’**
```r
  gr$nodes_df$fontcolor <- greta_col("dark", colour)
                           ^~~~~~~~~
```


Good point. Although, what about the case where a user program requests FAN_OPEN_PERM so that they can process perm events as per normal, but at the same time wanted to do further processing by checking whether it was a FAN_OPEN_PERM, but because of a EXEC? So, something along the lines of:

1) check if FAN_OPEN_PERM, yes?
2) check if the open was because of an exec by any chance i.e. FAN_OPEN_EXEC? yes?
3) ok, it was because of an EXEC, now do X, otherwise do Y

I wasn't too sure whether it was OK to do this either. This is why I initially liked the concept of bonus flags better, as it would've maybe been more acceptable to do these things in the perm hook.