[inst/examples/globe/server.R:3:27:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L3) *style:* **Put spaces around all infix operators.**
```r
data(world.cities, package="maps")
                         ~^~
```
[inst/examples/globe/server.R:5:23:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L5) *style:* **Put spaces around all infix operators.**
```r
earth_dark <- list(img=system.file("images/world.jpg",package="threejs"),
                     ~^~
```
[inst/examples/globe/server.R:5:55:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L5) *style:* **Commas should always have a space after.**
```r
earth_dark <- list(img=system.file("images/world.jpg",package="threejs"),
                                                      ^
```
[inst/examples/globe/server.R:5:62:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L5) *style:* **Put spaces around all infix operators.**
```r
earth_dark <- list(img=system.file("images/world.jpg",package="threejs"),
                                                            ~^~
```
[inst/examples/globe/server.R:6:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L6) *style:* **Put spaces around all infix operators.**
```r
                   bodycolor="#0011ff",
                           ~^~
```
[inst/examples/globe/server.R:7:28:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L7) *style:* **Put spaces around all infix operators.**
```r
                   emissive="#000010",
                          ~^~
```
[inst/examples/globe/server.R:8:30:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L8) *style:* **Put spaces around all infix operators.**
```r
                   lightcolor="#99ddff")
                            ~^~
```
[inst/examples/globe/server.R:14:42:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L14) *style:* **Commas should always have a space after.**
```r
     world.cities[order(world.cities$pop,decreasing=TRUE)[1:input$N],]
                                         ^
```
[inst/examples/globe/server.R:14:52:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L14) *style:* **Put spaces around all infix operators.**
```r
     world.cities[order(world.cities$pop,decreasing=TRUE)[1:input$N],]
                                                  ~^~
```
[inst/examples/globe/server.R:14:70:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L14) *style:* **Commas should always have a space after.**
```r
     world.cities[order(world.cities$pop,decreasing=TRUE)[1:input$N],]
                                                                     ^
```
[inst/examples/globe/server.R:20:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L20) *style:* **Put spaces around all infix operators.**
```r
    col <- rainbow(10, start=2.8 / 6,end=3.4 / 6)
                           ~^~
```
[inst/examples/globe/server.R:20:38:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L20) *style:* **Commas should always have a space after.**
```r
    col <- rainbow(10, start=2.8 / 6,end=3.4 / 6)
                                     ^
```
[inst/examples/globe/server.R:20:41:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L20) *style:* **Put spaces around all infix operators.**
```r
    col <- rainbow(10, start=2.8 / 6,end=3.4 / 6)
                                       ~^~
```
[inst/examples/globe/server.R:24:15:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L24) *style:* **Put spaces around all infix operators.**
```r
    list(value=value, color=col, cities=cities)
             ~^~
```
[inst/examples/globe/server.R:24:28:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L24) *style:* **Put spaces around all infix operators.**
```r
    list(value=value, color=col, cities=cities)
                          ~^~
```
[inst/examples/globe/server.R:24:40:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L24) *style:* **Put spaces around all infix operators.**
```r
    list(value=value, color=col, cities=cities)
                                      ~^~
```
[inst/examples/globe/server.R:30:26:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L30) *style:* **Commas should never have a space before.**
```r
    args <- c(earth_dark , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=TRUE))
                        ~^
```
[inst/examples/globe/server.R:30:36:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L30) *style:* **Put spaces around all infix operators.**
```r
    args <- c(earth_dark , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=TRUE))
                                  ~^~
```
[inst/examples/globe/server.R:30:55:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L30) *style:* **Put spaces around all infix operators.**
```r
    args <- c(earth_dark , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=TRUE))
                                                     ~^~
```
[inst/examples/globe/server.R:30:76:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L30) *style:* **Put spaces around all infix operators.**
```r
    args <- c(earth_dark , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=TRUE))
                                                                          ~^~
```
[inst/examples/globe/server.R:30:91:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L30) *style:* **Put spaces around all infix operators.**
```r
    args <- c(earth_dark , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=TRUE))
                                                                                ~^~
```
[inst/examples/globe/server.R:30:111:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L30) *style:* **Put spaces around all infix operators.**
```r
    args <- c(earth_dark , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=TRUE))
                                                                                ~^~
```
[inst/examples/globe/server.R:31:26:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/server.R#L31) *style:* **Put spaces around all infix operators.**
```r
    do.call(globejs, args=args)
                        ~^~
```
[inst/examples/globe/ui.R:8:57:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/globe/ui.R#L8) *style:* **Put spaces around all infix operators.**
```r
      sliderInput("N", "Number of cities to plot", value=5000, min = 100, max = 10000, step = 100),
                                                       ~^~
```
[inst/examples/scatterplot/server.R:15:40:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/inst/examples/scatterplot/server.R#L15) *style:* **Commas should always have a space after.**
```r
    color <- rep(rainbow(input$colors),length.out = nrow(data))
                                       ^
```
[R/globe.R:153:47:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L153) *style:* **Put spaces around all infix operators.**
```r
  img=system.file("images/world.jpg",  package="threejs"),
                                             ~^~
```
[R/globe.R:167:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L167) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(lat) || missing(long))
    ^
```
[R/globe.R:174:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L174) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0)
    ^
```
[R/globe.R:177:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L177) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(j))
      ^
```
[R/globe.R:183:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L183) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0)
    ^
```
[R/globe.R:186:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L186) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(j))
      ^
```
[R/globe.R:192:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L192) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0) bg <- substr(bg, 1, 7)
    ^
```
[R/globe.R:193:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L193) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(arcs))
    ^
```
[R/globe.R:203:22:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L203) *style:* **Put spaces around all infix operators.**
```r
  options <- list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                    ~^~
```
[R/globe.R:203:32:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L203) *style:* **Put spaces around all infix operators.**
```r
  options <- list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                              ~^~
```
[R/globe.R:203:44:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L203) *style:* **Put spaces around all infix operators.**
```r
  options <- list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                                          ~^~
```
[R/globe.R:203:63:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L203) *style:* **Put spaces around all infix operators.**
```r
  options <- list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                                                             ~^~
```
[R/globe.R:204:23:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L204) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                     ~^~
```
[R/globe.R:204:41:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L204) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                       ~^~
```
[R/globe.R:204:56:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L204) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                                      ~^~
```
[R/globe.R:204:65:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L204) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                                               ~^~
```
[R/globe.R:205:27:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L205) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                         ~^~
```
[R/globe.R:205:46:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L205) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                                            ~^~
```
[R/globe.R:205:66:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L205) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                                                                ~^~
```
[R/globe.R:207:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L207) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(additional_args) > 0) options <- c(options, additional_args)
    ^
```
[R/globe.R:209:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L209) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("bodycolor" %in% names(options))
    ^
```
[R/globe.R:211:20:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L211) *style:* **Commas should always have a space after.**
```r
    i <- grep("^#",options$bodycolor)
                   ^
```
[R/globe.R:212:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L212) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(i) > 0) options$bodycolor <- substr(options$bodycolor, 1, 7)
      ^
```
[R/globe.R:214:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L214) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("emissive" %in% names(options))
    ^
```
[R/globe.R:217:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L217) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(i) > 0) options$emissive <- substr(options$emissive, 1, 7)
      ^
```
[R/globe.R:219:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L219) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("lightcolor" %in% names(options))
    ^
```
[R/globe.R:222:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L222) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(i) > 0) options$lightcolor <- substr(options$lightcolor, 1, 7)
      ^
```
[R/globe.R:226:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L226) *warning:* **no visible global function definition for ‘texture’**
```r
  if (!is.list(img)) img <- texture(img)
                            ^~~~~~~
```
[R/globe.R:250:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L250) *warning:* **no visible global function definition for ‘shinyRenderWidget’**
```r
    shinyRenderWidget(expr, globeOutput, env, quoted = TRUE)
    ^~~~~~~~~~~~~~~~~
```
[R/globe.R:250:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/globe.R#L250) *warning:* **no visible binding for global variable ‘globeOutput’**
```r
    shinyRenderWidget(expr, globeOutput, env, quoted = TRUE)
                            ^~~~~~~~~~~
```
[R/graph.R:122:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L122) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.list(g) && "igraph" %in% class(g[[1]]))
    ^
```
[R/graph.R:124:23:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L124) *warning:* **no visible binding for global variable ‘as_edgelist’**
```r
    from <- lapply(g, as_edgelist)
                      ^~~~~~~~~~~
```
[R/graph.R:127:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L127) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(missing(edge.color)) edge.color <- lapply(g, function(x) { ifel(is.null(E(x)$color), NA, E(x)$color) })
      ^
```
[R/graph.R:127:67:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L127) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
    if(missing(edge.color)) edge.color <- lapply(g, function(x) { ifel(is.null(E(x)$color), NA, E(x)$color) })
                                                                  ^~~~
```
[R/graph.R:127:80:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L127) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    if(missing(edge.color)) edge.color <- lapply(g, function(x) { ifel(is.null(E(x)$color), NA, E(x)$color) })
                                                                               ^
```
[R/graph.R:127:80:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L127) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    if(missing(edge.color)) edge.color <- lapply(g, function(x) { ifel(is.null(E(x)$color), NA, E(x)$color) })
                                                                               ^
```
[R/graph.R:128:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L128) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(missing(layout)) layout <- lapply(g, function(x) {ifel(is.null(x$layout), layout_with_fr(x, dim=3, niter=50), x$layout)})
      ^
```
[R/graph.R:128:58:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L128) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
    if(missing(layout)) layout <- lapply(g, function(x) {ifel(is.null(x$layout), layout_with_fr(x, dim=3, niter=50), x$layout)})
                                                         ^~~~
```
[R/graph.R:128:82:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L128) *warning:* **no visible global function definition for ‘layout_with_fr’**
```r
    if(missing(layout)) layout <- lapply(g, function(x) {ifel(is.null(x$layout), layout_with_fr(x, dim=3, niter=50), x$layout)})
                                                                                ^~~~~~~~~~~~~~
```
[R/graph.R:128:103:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L128) *style:* **Put spaces around all infix operators.**
```r
    if(missing(layout)) layout <- lapply(g, function(x) {ifel(is.null(x$layout), layout_with_fr(x, dim=3, niter=50), x$layout)})
                                                                                ~^~
```
[R/graph.R:128:112:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L128) *style:* **Put spaces around all infix operators.**
```r
    if(missing(layout)) layout <- lapply(g, function(x) {ifel(is.null(x$layout), layout_with_fr(x, dim=3, niter=50), x$layout)})
                                                                                ~^~
```
[R/graph.R:129:12:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L129) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    else if(is.function(layout)) layout <- lapply(g, layout)
           ^
```
[R/graph.R:130:12:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L130) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    else if(!is.list(layout)) layout <- list(layout)
           ^
```
[R/graph.R:131:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L131) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(missing(vertex.color)) vertex.color <- lapply(g, function(x) ifel(is.null(V(x)$color), "orange", V(x)$color))
      ^
```
[R/graph.R:131:69:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L131) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
    if(missing(vertex.color)) vertex.color <- lapply(g, function(x) ifel(is.null(V(x)$color), "orange", V(x)$color))
                                                                    ^~~~
```
[R/graph.R:131:82:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L131) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
    if(missing(vertex.color)) vertex.color <- lapply(g, function(x) ifel(is.null(V(x)$color), "orange", V(x)$color))
                                                                                ^
```
[R/graph.R:131:82:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L131) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
    if(missing(vertex.color)) vertex.color <- lapply(g, function(x) ifel(is.null(V(x)$color), "orange", V(x)$color))
                                                                                ^
```
[R/graph.R:135:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L135) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!("igraph" %in% class(g))) stop("g must be an igraph object")
      ^
```
[R/graph.R:136:13:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L136) *warning:* **no visible global function definition for ‘as_edgelist’**
```r
    from <- as_edgelist(g)
            ^~~~~~~~~~~
```
[R/graph.R:139:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L139) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(missing(layout)) layout <- list(ifel(is.null(g$layout), layout_with_fr(g, dim=3, niter=50), g$layout))
      ^
```
[R/graph.R:139:85:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L139) *style:* **Put spaces around all infix operators.**
```r
    if(missing(layout)) layout <- list(ifel(is.null(g$layout), layout_with_fr(g, dim=3, niter=50), g$layout))
                                                                                ~^~
```
[R/graph.R:139:94:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L139) *style:* **Put spaces around all infix operators.**
```r
    if(missing(layout)) layout <- list(ifel(is.null(g$layout), layout_with_fr(g, dim=3, niter=50), g$layout))
                                                                                ~^~
```
[R/graph.R:140:12:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L140) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    else if(is.function(layout)) layout <- list(layout(g))
           ^
```
[R/graph.R:141:12:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L141) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    else if(!is.list(layout)) layout <- list(layout)
           ^
```
[R/graph.R:142:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L142) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(missing(vertex.color)) vertex.color <- list(ifel(is.null(V(g)$color), "orange", V(g)$color))
      ^
```
[R/graph.R:142:52:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L142) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
    if(missing(vertex.color)) vertex.color <- list(ifel(is.null(V(g)$color), "orange", V(g)$color))
                                                   ^~~~
```
[R/graph.R:142:65:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L142) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
    if(missing(vertex.color)) vertex.color <- list(ifel(is.null(V(g)$color), "orange", V(g)$color))
                                                                ^
```
[R/graph.R:142:65:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L142) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
    if(missing(vertex.color)) vertex.color <- list(ifel(is.null(V(g)$color), "orange", V(g)$color))
                                                                ^
```
[R/graph.R:143:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L143) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(missing(edge.color)) edge.color <- ifel(is.null(E(g)$color), NA, E(g)$color)
      ^
```
[R/graph.R:143:43:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L143) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
    if(missing(edge.color)) edge.color <- ifel(is.null(E(g)$color), NA, E(g)$color)
                                          ^~~~
```
[R/graph.R:143:56:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L143) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    if(missing(edge.color)) edge.color <- ifel(is.null(E(g)$color), NA, E(g)$color)
                                                       ^
```
[R/graph.R:143:56:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L143) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    if(missing(edge.color)) edge.color <- ifel(is.null(E(g)$color), NA, E(g)$color)
                                                       ^
```
[R/graph.R:146:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L146) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(vertex.size)) vertex.size <- ifel(is.null(V(g)$size), 2, V(g)$size / 7)
    ^
```
[R/graph.R:146:43:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L146) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
  if(missing(vertex.size)) vertex.size <- ifel(is.null(V(g)$size), 2, V(g)$size / 7)
                                          ^~~~
```
[R/graph.R:146:56:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L146) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
  if(missing(vertex.size)) vertex.size <- ifel(is.null(V(g)$size), 2, V(g)$size / 7)
                                                       ^
```
[R/graph.R:146:56:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L146) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
  if(missing(vertex.size)) vertex.size <- ifel(is.null(V(g)$size), 2, V(g)$size / 7)
                                                       ^
```
[R/graph.R:147:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L147) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(vertex.shape)) vertex.shape <- ifel(is.null(V(g)$shape), "circle", V(g)$shape)
    ^
```
[R/graph.R:147:45:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L147) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
  if(missing(vertex.shape)) vertex.shape <- ifel(is.null(V(g)$shape), "circle", V(g)$shape)
                                            ^~~~
```
[R/graph.R:147:58:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L147) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
  if(missing(vertex.shape)) vertex.shape <- ifel(is.null(V(g)$shape), "circle", V(g)$shape)
                                                         ^
```
[R/graph.R:147:58:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L147) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
  if(missing(vertex.shape)) vertex.shape <- ifel(is.null(V(g)$shape), "circle", V(g)$shape)
                                                         ^
```
[R/graph.R:148:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L148) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(vertex.label)) vertex.label <- ifel(is.null(V(g)$label), NA, V(g)$label)
    ^
```
[R/graph.R:148:45:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L148) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
  if(missing(vertex.label)) vertex.label <- ifel(is.null(V(g)$label), NA, V(g)$label)
                                            ^~~~
```
[R/graph.R:148:58:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L148) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
  if(missing(vertex.label)) vertex.label <- ifel(is.null(V(g)$label), NA, V(g)$label)
                                                         ^
```
[R/graph.R:148:58:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L148) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
  if(missing(vertex.label)) vertex.label <- ifel(is.null(V(g)$label), NA, V(g)$label)
                                                         ^
```
[R/graph.R:149:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L149) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(edge.width)) edge.width <- ifel(is.null(E(g)$width), 1, E(g)$width)
    ^
```
[R/graph.R:149:41:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L149) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
  if(missing(edge.width)) edge.width <- ifel(is.null(E(g)$width), 1, E(g)$width)
                                        ^~~~
```
[R/graph.R:149:54:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L149) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
  if(missing(edge.width)) edge.width <- ifel(is.null(E(g)$width), 1, E(g)$width)
                                                     ^
```
[R/graph.R:149:54:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L149) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
  if(missing(edge.width)) edge.width <- ifel(is.null(E(g)$width), 1, E(g)$width)
                                                     ^
```
[R/graph.R:150:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L150) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(edge.width) > 1)
    ^
```
[R/graph.R:155:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L155) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(edge.alpha))
    ^
```
[R/graph.R:157:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L157) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(E(g)) > 1000) edge.alpha <- 0.3
      ^
```
[R/graph.R:159:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L159) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!is.null(E(g)$alpha)) edge.alpha <- E(g)$alpha
      ^
```
[R/graph.R:159:17:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L159) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    if(!is.null(E(g)$alpha)) edge.alpha <- E(g)$alpha
                ^
```
[R/graph.R:159:17:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L159) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    if(!is.null(E(g)$alpha)) edge.alpha <- E(g)$alpha
                ^
```
[R/graph.R:163:17:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L163) *warning:* **no visible binding for global variable ‘norm_coords’**
```r
  layout <- Map(norm_coords, layout)
                ^~~~~~~~~~~
```
[R/graph.R:165:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L165) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.list(main)) main <- as.list(main)
    ^
```
[R/graph.R:170:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L170) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("pie" %in% u) pch <- gsub("pie", "@", pch)
    ^
```
[R/graph.R:171:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L171) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("sphere" %in% u) pch <- gsub("sphere", "o", pch)
    ^
```
[R/graph.R:172:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L172) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("square" %in% u) pch <- gsub("square", ".", pch)
    ^
```
[R/graph.R:173:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L173) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("csquare" %in% u) pch <- gsub("csquare", ".", pch)
    ^
```
[R/graph.R:174:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L174) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("rectangle" %in% u) pch <- gsub("rectangle", ".", pch)
    ^
```
[R/graph.R:175:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L175) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("crectangle" %in% u) pch <- gsub("crectangle", ".", pch)
    ^
```
[R/graph.R:176:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L176) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("vrectangle" %in% u) pch <- gsub("vrectangle", ".", pch)
    ^
```
[R/graph.R:181:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L181) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("click" %in% names(opts))
    ^
```
[R/graph.R:183:38:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L183) *warning:* **no visible binding for global variable ‘gopts’, Did you mean 'opts'?**
```r
    opts$click <- lapply(opts$click, gopts)
                                     ^~~~~
```
[R/graph.R:186:1:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L186) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/graph.R:187:22:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L187) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=from, to=to,
                    ~^~
```
[R/graph.R:187:34:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L187) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=from, to=to,
                                ~^~
```
[R/graph.R:187:44:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L187) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=from, to=to,
                                          ~^~
```
[R/graph.R:187:63:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L187) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=from, to=to,
                                                             ~^~
```
[R/graph.R:187:82:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L187) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=from, to=to,
                                                                                ~^~
```
[R/graph.R:187:91:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L187) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=from, to=to,
                                                                                ~^~
```
[R/graph.R:188:24:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L188) *style:* **Put spaces around all infix operators.**
```r
                    lwd=edge.width, linealpha=edge.alpha, axis=FALSE, grid=FALSE, center=TRUE,
                      ~^~
```
[R/graph.R:188:46:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L188) *style:* **Put spaces around all infix operators.**
```r
                    lwd=edge.width, linealpha=edge.alpha, axis=FALSE, grid=FALSE, center=TRUE,
                                            ~^~
```
[R/graph.R:188:63:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L188) *style:* **Put spaces around all infix operators.**
```r
                    lwd=edge.width, linealpha=edge.alpha, axis=FALSE, grid=FALSE, center=TRUE,
                                                             ~^~
```
[R/graph.R:188:75:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L188) *style:* **Put spaces around all infix operators.**
```r
                    lwd=edge.width, linealpha=edge.alpha, axis=FALSE, grid=FALSE, center=TRUE,
                                                                         ~^~
```
[R/graph.R:188:89:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L188) *style:* **Put spaces around all infix operators.**
```r
                    lwd=edge.width, linealpha=edge.alpha, axis=FALSE, grid=FALSE, center=TRUE,
                                                                                ~^~
```
[R/graph.R:189:23:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L189) *style:* **Put spaces around all infix operators.**
```r
                    bg=bg, main=main, xlim=c(-1, 1), ylim=c(-1, 1), zlim=c(-1, 1)), opts)
                     ~^~
```
[R/graph.R:189:32:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L189) *style:* **Put spaces around all infix operators.**
```r
                    bg=bg, main=main, xlim=c(-1, 1), ylim=c(-1, 1), zlim=c(-1, 1)), opts)
                              ~^~
```
[R/graph.R:189:43:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L189) *style:* **Put spaces around all infix operators.**
```r
                    bg=bg, main=main, xlim=c(-1, 1), ylim=c(-1, 1), zlim=c(-1, 1)), opts)
                                         ~^~
```
[R/graph.R:189:58:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L189) *style:* **Put spaces around all infix operators.**
```r
                    bg=bg, main=main, xlim=c(-1, 1), ylim=c(-1, 1), zlim=c(-1, 1)), opts)
                                                        ~^~
```
[R/graph.R:189:73:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L189) *style:* **Put spaces around all infix operators.**
```r
                    bg=bg, main=main, xlim=c(-1, 1), ylim=c(-1, 1), zlim=c(-1, 1)), opts)
                                                                       ~^~
```
[R/graph.R:190:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L190) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!all(unlist(Map(is.na, edge.color)))) options$lcol <- edge.color
    ^
```
[R/graph.R:191:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L191) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!(length(vertex.label) == 1 && is.na(vertex.label))) options$labels <- vertex.label
    ^
```
[R/graph.R:192:33:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/graph.R#L192) *style:* **Put spaces around all infix operators.**
```r
  do.call("scatterplot3js", args=options)
                               ~^~
```
[R/scatterplot.R:198:19:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L198) *style:* **Commas should always have a space after.**
```r
  num.ticks = c(6,6,6),
                  ^
```
[R/scatterplot.R:198:21:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L198) *style:* **Commas should always have a space after.**
```r
  num.ticks = c(6,6,6),
                    ^
```
[R/scatterplot.R:214:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L214) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(is.matrix(x))
      ^
```
[R/scatterplot.R:218:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L218) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.list(x))
    ^
```
[R/scatterplot.R:222:18:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L222) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        ans <- if(is.data.frame(y)) as.matrix(y) else y
                 ^
```
[R/scatterplot.R:233:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L233) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(pch)) pch <- rep("o", NROW)
    ^
```
[R/scatterplot.R:234:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L234) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(pch) != NROW) pch <- rep_len(pch, NROW)
    ^
```
[R/scatterplot.R:238:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L238) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.list(color)) color <- list(color)
    ^
```
[R/scatterplot.R:239:54:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L239) *style:* **Put spaces around all infix operators.**
```r
  color <- lapply(color, function(x) col2rgb(x, alpha=TRUE))
                                                    ~^~
```
[R/scatterplot.R:241:97:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L241) *style:* **Put spaces around all infix operators.**
```r
  color <- lapply(color, function(y) apply(y, 2, function(x) rgb(x[1], x[2], x[3], maxColorValue=255)))
                                                                                ~^~
```
[R/scatterplot.R:243:39:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L243) *style:* **Commas should always have a space after.**
```r
  bg <- sub("^(#[[:xdigit:]]{6}+).*$","\\1", bg, perl = TRUE)
                                      ^
```
[R/scatterplot.R:253:51:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L253) *style:* **Put spaces around all infix operators.**
```r
  x <- lapply(x, function (y) y[, c(1, 3, 2), drop=FALSE])
                                                 ~^~
```
[R/scatterplot.R:264:63:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L264) *style:* **Put spaces around all infix operators.**
```r
  mn <- Reduce(pmin, lapply(x, function(y) apply(y[, 1:3, drop=FALSE], 2, min)))
                                                             ~^~
```
[R/scatterplot.R:265:63:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L265) *style:* **Put spaces around all infix operators.**
```r
  mx <- Reduce(pmax, lapply(x, function(y) apply(y[, 1:3, drop=FALSE], 2, max)))
                                                             ~^~
```
[R/scatterplot.R:278:44:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L278) *style:* **Put spaces around all infix operators.**
```r
  x <- lapply(x, function(x) (x[, 1:3, drop=FALSE] - rep(mn, each = n)) / (rep(mx - mn, each = n)))
                                          ~^~
```
[R/scatterplot.R:289:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L289) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("center" %in% names(options) && options$center) # not yet documented, useful for graph
    ^
```
[R/scatterplot.R:293:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L293) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!("linealpha" %in% names(options))) options$linealpha <- 1
    ^
```
[R/scatterplot.R:294:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L294) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!("alpha" %in% names(options))) options$alpha <- a
    ^
```
[R/scatterplot.R:304:40:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L304) *style:* **Commas should always have a space after.**
```r
    num.ticks <- pmax(1, num.ticks[c(1,3,2)])
                                       ^
```
[R/scatterplot.R:304:42:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L304) *style:* **Commas should always have a space after.**
```r
    num.ticks <- pmax(1, num.ticks[c(1,3,2)])
                                         ^
```
[R/scatterplot.R:306:19:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L306) *style:* **Put spaces around all infix operators.**
```r
    t1 <- seq(from=mn[1], to=mx[1], length.out=num.ticks[1])
                 ~^~
```
[R/scatterplot.R:306:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L306) *style:* **Put spaces around all infix operators.**
```r
    t1 <- seq(from=mn[1], to=mx[1], length.out=num.ticks[1])
                           ~^~
```
[R/scatterplot.R:306:47:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L306) *style:* **Put spaces around all infix operators.**
```r
    t1 <- seq(from=mn[1], to=mx[1], length.out=num.ticks[1])
                                             ~^~
```
[R/scatterplot.R:308:19:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L308) *style:* **Put spaces around all infix operators.**
```r
    t2 <- seq(from=mn[2], to=mx[2], length.out=num.ticks[2])
                 ~^~
```
[R/scatterplot.R:308:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L308) *style:* **Put spaces around all infix operators.**
```r
    t2 <- seq(from=mn[2], to=mx[2], length.out=num.ticks[2])
                           ~^~
```
[R/scatterplot.R:308:47:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L308) *style:* **Put spaces around all infix operators.**
```r
    t2 <- seq(from=mn[2], to=mx[2], length.out=num.ticks[2])
                                             ~^~
```
[R/scatterplot.R:310:19:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L310) *style:* **Put spaces around all infix operators.**
```r
    t3 <- seq(from=mn[3], to=mx[3], length.out=num.ticks[3])
                 ~^~
```
[R/scatterplot.R:310:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L310) *style:* **Put spaces around all infix operators.**
```r
    t3 <- seq(from=mn[3], to=mx[3], length.out=num.ticks[3])
                           ~^~
```
[R/scatterplot.R:310:47:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L310) *style:* **Put spaces around all infix operators.**
```r
    t3 <- seq(from=mn[3], to=mx[3], length.out=num.ticks[3])
                                             ~^~
```
[R/scatterplot.R:312:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L312) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(flip.y) t3 <- t3[length(t3):1]
      ^
```
[R/scatterplot.R:318:9:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L318) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(any(i))
        ^
```
[R/scatterplot.R:328:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L328) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!is.null(x.ticklabs)) options$xticklab <- x.ticklabs
      ^
```
[R/scatterplot.R:329:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L329) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!is.null(y.ticklabs)) options$zticklab <- y.ticklabs
      ^
```
[R/scatterplot.R:330:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L330) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!is.null(z.ticklabs)) options$yticklab <- z.ticklabs
      ^
```
[R/scatterplot.R:337:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L337) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("from" %in% names(options))
    ^
```
[R/scatterplot.R:339:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L339) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!("to" %in% names(options))) stop("both from and to must be specified")
      ^
```
[R/scatterplot.R:340:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L340) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!is.list(options$from)) options$from <- list(options$from)
      ^
```
[R/scatterplot.R:341:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L341) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!is.list(options$to)) options$to <- list(options$to)
      ^
```
[R/scatterplot.R:345:9:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L345) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(a) == 1) a <- list(a)
        ^
```
[R/scatterplot.R:350:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L350) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!("lwd" %in% names(options))) options$lwd <- 1L
      ^
```
[R/scatterplot.R:351:7:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L351) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if("lcol" %in% names(options)) # discard alpha, normalize line colors
      ^
```
[R/scatterplot.R:353:30:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L353) *style:* **Put spaces around all infix operators.**
```r
      lc <- col2rgb(lc, alpha=FALSE)
                            ~^~
```
[R/scatterplot.R:354:83:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L354) *style:* **Put spaces around all infix operators.**
```r
      options$lcol <- apply(lc, 2, function(x) rgb(x[1], x[2], x[3], maxColorValue=255))
                                                                                ~^~
```
[R/scatterplot.R:358:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L358) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(options$from) != length(options$to)) stop("mismatched line from/to animation coordinates")
    ^
```
[R/scatterplot.R:360:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L360) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(N > 0) # not enough vertex positions, replicate as needed
    ^
```
[R/scatterplot.R:378:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L378) *warning:* **no visible global function definition for ‘shinyWidgetOutput’**
```r
    shinyWidgetOutput(outputId, "scatterplotThree", width, height, package = "threejs")
    ^~~~~~~~~~~~~~~~~
```
[R/scatterplot.R:385:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L385) *warning:* **no visible global function definition for ‘shinyRenderWidget’**
```r
    shinyRenderWidget(expr, scatterplotThreeOutput, env, quoted = TRUE)
    ^~~~~~~~~~~~~~~~~
```
[R/scatterplot.R:385:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/scatterplot.R#L385) *warning:* **no visible binding for global variable ‘scatterplotThreeOutput’**
```r
    shinyRenderWidget(expr, scatterplotThreeOutput, env, quoted = TRUE)
                            ^~~~~~~~~~~~~~~~~~~~~~
```
[R/utilities.R:43:23:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L43) *style:* **Commas should always have a space after.**
```r
  ext <- gsub(".*\\.","", data)
                      ^
```
[R/utilities.R:44:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L44) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(grepl("^http", data))
    ^
```
[R/utilities.R:46:24:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L46) *style:* **Put spaces around all infix operators.**
```r
    u <- url(data, open="rb")
                      ~^~
```
[R/utilities.R:49:29:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L49) *style:* **Put spaces around all infix operators.**
```r
    writeBin(readBin(u, what="raw", n=10e6), data, useBytes=TRUE)
                           ~^~
```
[R/utilities.R:49:38:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L49) *style:* **Put spaces around all infix operators.**
```r
    writeBin(readBin(u, what="raw", n=10e6), data, useBytes=TRUE)
                                    ~^~
```
[R/utilities.R:49:60:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L49) *style:* **Put spaces around all infix operators.**
```r
    writeBin(readBin(u, what="raw", n=10e6), data, useBytes=TRUE)
                                                          ~^~
```
[R/utilities.R:53:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L53) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(nchar(ext) < 1) ext <- "png"
    ^
```
[R/utilities.R:54:10:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L54) *warning:* **no visible global function definition for ‘dataURI’**
```r
  img <- dataURI(file=data, mime=sprintf("image/%s", ext))
         ^~~~~~~
```
[R/utilities.R:54:22:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L54) *style:* **Put spaces around all infix operators.**
```r
  img <- dataURI(file=data, mime=sprintf("image/%s", ext))
                    ~^~
```
[R/utilities.R:54:33:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L54) *style:* **Put spaces around all infix operators.**
```r
  img <- dataURI(file=data, mime=sprintf("image/%s", ext))
                               ~^~
```
[R/utilities.R:55:11:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L55) *style:* **Put spaces around all infix operators.**
```r
  list(img=img, dataURI=TRUE)
         ~^~
```
[R/utilities.R:55:24:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L55) *style:* **Put spaces around all infix operators.**
```r
  list(img=img, dataURI=TRUE)
                      ~^~
```
[R/utilities.R:61:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L61) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(isTRUE(a)) return(b)
    ^
```
[R/utilities.R:76:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L76) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("igraph" %in% class(g[[1]]))
    ^
```
[R/utilities.R:78:13:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L78) *warning:* **no visible global function definition for ‘as_edgelist’**
```r
    from <- as_edgelist(g[[1]])
            ^~~~~~~~~~~
```
[R/utilities.R:82:14:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L82) *warning:* **no visible global function definition for ‘gcol’, Did you mean 'lcol'?**
```r
    color <- gcol(V(g[[1]])$color)
             ^~~~
```
[R/utilities.R:82:19:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L82) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
    color <- gcol(V(g[[1]])$color)
                  ^
```
[R/utilities.R:85:13:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L85) *warning:* **no visible global function definition for ‘gcol’, Did you mean 'lcol'?**
```r
    lcol <- gcol(E(g[[1]])$color)$color
            ^~~~
```
[R/utilities.R:85:18:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L85) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    lcol <- gcol(E(g[[1]])$color)$color
                 ^
```
[R/utilities.R:87:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L87) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("layout" %in% names(g)) layout <- g$layout
    ^
```
[R/utilities.R:88:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L88) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("vertex.color" %in% names(g))
    ^
```
[R/utilities.R:90:14:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L90) *warning:* **no visible global function definition for ‘gcol’, Did you mean 'lcol'?**
```r
    color <- gcol(g$vertex.color)
             ^~~~
```
[R/utilities.R:94:5:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L94) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("edge.color" %in% names(g)) lcol <- gcol(g$edge.color)$color
    ^
```
[R/utilities.R:94:42:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L94) *warning:* **no visible global function definition for ‘gcol’, Did you mean 'lcol'?**
```r
  if("edge.color" %in% names(g)) lcol <- gcol(g$edge.color)$color
                                         ^~~~
```
[R/utilities.R:95:21:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L95) *style:* **Put spaces around all infix operators.**
```r
  ans <- list(layout=layout, from=from, to=to, color=color, lcol=lcol, alpha=alpha)
                   ~^~
```
[R/utilities.R:95:34:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L95) *style:* **Put spaces around all infix operators.**
```r
  ans <- list(layout=layout, from=from, to=to, color=color, lcol=lcol, alpha=alpha)
                                ~^~
```
[R/utilities.R:95:43:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L95) *style:* **Put spaces around all infix operators.**
```r
  ans <- list(layout=layout, from=from, to=to, color=color, lcol=lcol, alpha=alpha)
                                         ~^~
```
[R/utilities.R:95:53:](https://github.com/bwlewis/rthreejs/blob/c66c8bf7d9ca684f7c9c467b6876235f795a97b7/R/utilities.R#L95) *style:* **Put spaces around all infix operators.**
```r
  ans <- list(layout=layout, from=from, to=to, color=color, lcol=lcol, alpha=alpha)


Executing the daily benchmark build, I will reply here when finished:

@nanosoldier `runbenchmarks(ALL, isdaily = true)`


On 01/30/17 16:12, Graham Percival wrote:
> Don't we want to |exit (1)| (or |goto err0|) if this failed?

I was thinking that the test would fail when the output didn't match, and
the important part was to print the warning explaining what was going on...
but you're right, we should probably return nonzero as well.  I'll fix it.

--
Colin Percival
Security Officer Emeritus, FreeBSD | The power to serve
Founder, Tarsnap | www.tarsnap.com | Online backups for the truly paranoid


This commit is great, thanks a lot


Это как делается? Что-то не совсем понимаю:) В скринкасте вроде такого не было:)


@nateberkopec do you know if this commit should be included in 3.7.0? It is not right now.


Там отличие  в надписи кнопки, как с этим быть?


TODO: Need unique IDs for each element for the case where there is more than one cron entry.


I see. Hmm yea, there's a few things you can change. In general, you want functions to not have side-effects. That basically means that you don't want the function to change values outside it's scope (content defined inside the function). Also, you don't want it operating on values that are assumed to be there.

`match()` is operating on two objects defined outside the function. If those variables didn't exist, the function would throw an error.

A way to ensure that doesn't happen is to pass in arguments. Ex.
``` javascript
function match(source, comparison) { ... }
```

To find matches, you can check if the values of each key are the same. Rather than comparing each key to see if they match, you can just check if a key from `a` will return a value from `b`.
``` javascript
 var a = {crap: "Crap", name: "Tamir", age: 4, weight: 12};
 var b = {name: "John", age: 4, weight: 10};
```
`a.crap` will return "Crap"
`b.crap` will return "undefined" because that key doesn't exist

`a.name` returns "Tamir"
`b.name` returns "John"
*No Match*

`a.age` returns 4
`b.age` returns 4
*Match*

Here's an example of the revised function
``` javascript
function match(source, comparison) {
  var sourceKeys = Object.keys(source);
  var isMatch = false;

  sourceKeys.some(function(key) {
      if (comparison[key] !== 'undefined' && source[key] === comparison[key]) {
        isMatch = true;
        return true;
      }
  });

  return isMatch;
}

```


I want to revert to work before I deleted it.


ted
Comment on this commit
   Subscribe


asdf


Vivek, glanced through the changes. They look right. Did you also check in the JoveNotesProcessor changes? Once you do, I will also have a look at those.


This is great! No surprises tho; it's entirely consistent with the degree of transparency on the rest of the page. Nice one.


Was this functionality removed? The only vestige appears to be in the `docker/run` script. It seems useful though!


Oh my bad, didn't realize. I'll undo this.


Haha :D


"Hello World" code


@rburkey2005, does this work for you?