[inst/examples/globe/server.R:3:27:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L3) *style:* **Put spaces around all infix operators.**
```r
data(world.cities, package="maps")
                         ~^~
```
[inst/examples/globe/server.R:7:48:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L7) *style:* **Commas should always have a space after.**
```r
earth_dark   <- system.file("images/world.jpg",package="threejs")
                                               ^
```
[inst/examples/globe/server.R:7:55:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L7) *style:* **Put spaces around all infix operators.**
```r
earth_dark   <- system.file("images/world.jpg",package="threejs")
                                                     ~^~
```
[inst/examples/globe/server.R:8:42:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L8) *style:* **Commas should always have a space after.**
```r
moon    <- system.file("images/moon.jpg",package="threejs")
                                         ^
```
[inst/examples/globe/server.R:8:49:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L8) *style:* **Put spaces around all infix operators.**
```r
moon    <- system.file("images/moon.jpg",package="threejs")
                                               ~^~
```
[inst/examples/globe/server.R:9:42:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L9) *style:* **Commas should always have a space after.**
```r
mars    <- system.file("images/mars.jpg",package="threejs")
                                         ^
```
[inst/examples/globe/server.R:9:49:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L9) *style:* **Put spaces around all infix operators.**
```r
mars    <- system.file("images/mars.jpg",package="threejs")
                                               ~^~
```
[inst/examples/globe/server.R:10:45:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L10) *style:* **Commas should always have a space after.**
```r
jupiter <- system.file("images/jupiter.jpg",package="threejs")
                                            ^
```
[inst/examples/globe/server.R:10:52:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L10) *style:* **Put spaces around all infix operators.**
```r
jupiter <- system.file("images/jupiter.jpg",package="threejs")
                                                  ~^~
```
[inst/examples/globe/server.R:12:15:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L12) *style:* **Put spaces around all infix operators.**
```r
    earth_dark=list(img=earth_dark,bodycolor="#0011ff",emissive="#0011ff",lightcolor="#99ddff"),
             ~^~
```
[inst/examples/globe/server.R:12:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L12) *style:* **Put spaces around all infix operators.**
```r
    earth_dark=list(img=earth_dark,bodycolor="#0011ff",emissive="#0011ff",lightcolor="#99ddff"),
                      ~^~
```
[inst/examples/globe/server.R:12:36:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L12) *style:* **Commas should always have a space after.**
```r
    earth_dark=list(img=earth_dark,bodycolor="#0011ff",emissive="#0011ff",lightcolor="#99ddff"),
                                   ^
```
[inst/examples/globe/server.R:12:45:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L12) *style:* **Put spaces around all infix operators.**
```r
    earth_dark=list(img=earth_dark,bodycolor="#0011ff",emissive="#0011ff",lightcolor="#99ddff"),
                                           ~^~
```
[inst/examples/globe/server.R:12:56:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L12) *style:* **Commas should always have a space after.**
```r
    earth_dark=list(img=earth_dark,bodycolor="#0011ff",emissive="#0011ff",lightcolor="#99ddff"),
                                                       ^
```
[inst/examples/globe/server.R:12:64:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L12) *style:* **Put spaces around all infix operators.**
```r
    earth_dark=list(img=earth_dark,bodycolor="#0011ff",emissive="#0011ff",lightcolor="#99ddff"),
                                                              ~^~
```
[inst/examples/globe/server.R:12:75:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L12) *style:* **Commas should always have a space after.**
```r
    earth_dark=list(img=earth_dark,bodycolor="#0011ff",emissive="#0011ff",lightcolor="#99ddff"),
                                                                          ^
```
[inst/examples/globe/server.R:12:85:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L12) *style:* **Put spaces around all infix operators.**
```r
    earth_dark=list(img=earth_dark,bodycolor="#0011ff",emissive="#0011ff",lightcolor="#99ddff"),
                                                                                ~^~
```
[inst/examples/globe/server.R:13:9:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L13) *style:* **Put spaces around all infix operators.**
```r
    moon=list(img=moon,bodycolor="#555555", emissive="#444444", lightcolor="#555555"),
       ~^~
```
[inst/examples/globe/server.R:13:18:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L13) *style:* **Put spaces around all infix operators.**
```r
    moon=list(img=moon,bodycolor="#555555", emissive="#444444", lightcolor="#555555"),
                ~^~
```
[inst/examples/globe/server.R:13:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L13) *style:* **Commas should always have a space after.**
```r
    moon=list(img=moon,bodycolor="#555555", emissive="#444444", lightcolor="#555555"),
                       ^
```
[inst/examples/globe/server.R:13:33:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L13) *style:* **Put spaces around all infix operators.**
```r
    moon=list(img=moon,bodycolor="#555555", emissive="#444444", lightcolor="#555555"),
                               ~^~
```
[inst/examples/globe/server.R:13:53:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L13) *style:* **Put spaces around all infix operators.**
```r
    moon=list(img=moon,bodycolor="#555555", emissive="#444444", lightcolor="#555555"),
                                                   ~^~
```
[inst/examples/globe/server.R:13:75:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L13) *style:* **Put spaces around all infix operators.**
```r
    moon=list(img=moon,bodycolor="#555555", emissive="#444444", lightcolor="#555555"),
                                                                         ~^~
```
[inst/examples/globe/server.R:14:9:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L14) *style:* **Put spaces around all infix operators.**
```r
    mars=list(img=mars,bodycolor="#aaaaaa", emissive="#000000", lightcolor="#aaaaaa"),
       ~^~
```
[inst/examples/globe/server.R:14:18:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L14) *style:* **Put spaces around all infix operators.**
```r
    mars=list(img=mars,bodycolor="#aaaaaa", emissive="#000000", lightcolor="#aaaaaa"),
                ~^~
```
[inst/examples/globe/server.R:14:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L14) *style:* **Commas should always have a space after.**
```r
    mars=list(img=mars,bodycolor="#aaaaaa", emissive="#000000", lightcolor="#aaaaaa"),
                       ^
```
[inst/examples/globe/server.R:14:33:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L14) *style:* **Put spaces around all infix operators.**
```r
    mars=list(img=mars,bodycolor="#aaaaaa", emissive="#000000", lightcolor="#aaaaaa"),
                               ~^~
```
[inst/examples/globe/server.R:14:53:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L14) *style:* **Put spaces around all infix operators.**
```r
    mars=list(img=mars,bodycolor="#aaaaaa", emissive="#000000", lightcolor="#aaaaaa"),
                                                   ~^~
```
[inst/examples/globe/server.R:14:75:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L14) *style:* **Put spaces around all infix operators.**
```r
    mars=list(img=mars,bodycolor="#aaaaaa", emissive="#000000", lightcolor="#aaaaaa"),
                                                                         ~^~
```
[inst/examples/globe/server.R:15:12:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L15) *style:* **Put spaces around all infix operators.**
```r
    jupiter=list(img=jupiter,bodycolor="#222222", emissive="#000000", lightcolor="#aaaaaa")
          ~^~
```
[inst/examples/globe/server.R:15:21:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L15) *style:* **Put spaces around all infix operators.**
```r
    jupiter=list(img=jupiter,bodycolor="#222222", emissive="#000000", lightcolor="#aaaaaa")
                   ~^~
```
[inst/examples/globe/server.R:15:30:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L15) *style:* **Commas should always have a space after.**
```r
    jupiter=list(img=jupiter,bodycolor="#222222", emissive="#000000", lightcolor="#aaaaaa")
                             ^
```
[inst/examples/globe/server.R:15:39:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L15) *style:* **Put spaces around all infix operators.**
```r
    jupiter=list(img=jupiter,bodycolor="#222222", emissive="#000000", lightcolor="#aaaaaa")
                                     ~^~
```
[inst/examples/globe/server.R:15:59:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L15) *style:* **Put spaces around all infix operators.**
```r
    jupiter=list(img=jupiter,bodycolor="#222222", emissive="#000000", lightcolor="#aaaaaa")
                                                         ~^~
```
[inst/examples/globe/server.R:15:81:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L15) *style:* **Put spaces around all infix operators.**
```r
    jupiter=list(img=jupiter,bodycolor="#222222", emissive="#000000", lightcolor="#aaaaaa")
                                                                               ~^~
```
[inst/examples/globe/server.R:23:42:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L23) *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:23:52:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L23) *style:* **Put spaces around all infix operators.**
```r
     world.cities[order(world.cities$pop,decreasing=TRUE)[1:input$N],]
                                                  ~^~
```
[inst/examples/globe/server.R:23:70:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L23) *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:29:29:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L29) *style:* **Put spaces around all infix operators.**
```r
    col <- rainbow(10, start=2.8 / 6,end=3.4 / 6)
                           ~^~
```
[inst/examples/globe/server.R:29:38:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L29) *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:29:41:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L29) *style:* **Put spaces around all infix operators.**
```r
    col <- rainbow(10, start=2.8 / 6,end=3.4 / 6)
                                       ~^~
```
[inst/examples/globe/server.R:33:15:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L33) *style:* **Put spaces around all infix operators.**
```r
    list(value=value, color=col, cities=cities)
             ~^~
```
[inst/examples/globe/server.R:33:28:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L33) *style:* **Put spaces around all infix operators.**
```r
    list(value=value, color=col, cities=cities)
                          ~^~
```
[inst/examples/globe/server.R:33:40:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L33) *style:* **Put spaces around all infix operators.**
```r
    list(value=value, color=col, cities=cities)
                                      ~^~
```
[inst/examples/globe/server.R:40:32:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L40) *style:* **Commas should never have a space before.**
```r
    args <- c(col[[input$map]] , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=atmo))
                              ~^
```
[inst/examples/globe/server.R:40:42:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L40) *style:* **Put spaces around all infix operators.**
```r
    args <- c(col[[input$map]] , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=atmo))
                                        ~^~
```
[inst/examples/globe/server.R:40:61:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L40) *style:* **Put spaces around all infix operators.**
```r
    args <- c(col[[input$map]] , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=atmo))
                                                           ~^~
```
[inst/examples/globe/server.R:40:82:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L40) *style:* **Put spaces around all infix operators.**
```r
    args <- c(col[[input$map]] , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=atmo))
                                                                                ~^~
```
[inst/examples/globe/server.R:40:97:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L40) *style:* **Put spaces around all infix operators.**
```r
    args <- c(col[[input$map]] , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=atmo))
                                                                                ~^~
```
[inst/examples/globe/server.R:40:117:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L40) *style:* **Put spaces around all infix operators.**
```r
    args <- c(col[[input$map]] , list(lat=v$cities$lat, long=v$cities$long, value=v$value, color=v$color, atmosphere=atmo))
                                                                                ~^~
```
[inst/examples/globe/server.R:41:26:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/server.R#L41) *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/8068fe2f3f546971f219e54d027535fd7e391e20/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/globe/ui.R:9:31:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/ui.R#L9) *style:* **Put spaces around all infix operators.**
```r
      selectInput("map", label="Surface map",
                             ~^~
```
[inst/examples/globe/ui.R:11:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/ui.R#L11) *style:* **Put spaces around all infix operators.**
```r
           list("Earth"="earth_dark",
                      ~^~
```
[inst/examples/globe/ui.R:12:23:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/ui.R#L12) *style:* **Put spaces around all infix operators.**
```r
                "Moon"="moon",
                     ~^~
```
[inst/examples/globe/ui.R:13:23:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/ui.R#L13) *style:* **Put spaces around all infix operators.**
```r
                "Mars"="mars",
                     ~^~
```
[inst/examples/globe/ui.R:14:26:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/globe/ui.R#L14) *style:* **Put spaces around all infix operators.**
```r
                "Jupiter"="jupiter"),
                        ~^~
```
[inst/examples/scatterplot/server.R:5:3:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L5) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!exists("example_data")) example_data <- matrix(runif(50 * 3), ncol=3)
  ^
```
[inst/examples/scatterplot/server.R:5:71:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L5) *style:* **Put spaces around all infix operators.**
```r
if(!exists("example_data")) example_data <- matrix(runif(50 * 3), ncol=3)
                                                                     ~^~
```
[inst/examples/scatterplot/server.R:11:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L11) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(num.ticks == 0) num.ticks <- NULL
      ^
```
[inst/examples/scatterplot/server.R:12:37:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L12) *style:* **Commas should always have a space after.**
```r
    else num.ticks <- rep(num.ticks,3)
                                    ^
```
[inst/examples/scatterplot/server.R:13:40:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L13) *style:* **Commas should always have a space after.**
```r
    color <- rep(rainbow(input$colors),length.out=nrow(example_data))
                                       ^
```
[inst/examples/scatterplot/server.R:13:50:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L13) *style:* **Put spaces around all infix operators.**
```r
    color <- rep(rainbow(input$colors),length.out=nrow(example_data))
                                                ~^~
```
[inst/examples/scatterplot/server.R:14:57:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L14) *style:* **Put spaces around all infix operators.**
```r
    sizes <- rep(c(0.5, 1, 2)[1:input$sizes], length.out=nrow(example_data))
                                                       ~^~
```
[inst/examples/scatterplot/server.R:15:61:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L15) *style:* **Commas should always have a space after.**
```r
    labs <- sprintf("x=%.2f, y=%.2f, z=%.2f", example_data[,1], example_data[,2], example_data[,3])
                                                            ^
```
[inst/examples/scatterplot/server.R:15:79:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L15) *style:* **Commas should always have a space after.**
```r
    labs <- sprintf("x=%.2f, y=%.2f, z=%.2f", example_data[,1], example_data[,2], example_data[,3])
                                                                              ^
```
[inst/examples/scatterplot/server.R:15:97:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L15) *style:* **Commas should always have a space after.**
```r
    labs <- sprintf("x=%.2f, y=%.2f, z=%.2f", example_data[,1], example_data[,2], example_data[,3])
                                                                                ^
```
[inst/examples/scatterplot/server.R:16:21:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L16) *style:* **Put spaces around all infix operators.**
```r
    scatterplot3js(x=example_data,
                   ~^~
```
[inst/examples/scatterplot/server.R:17:30:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L17) *style:* **Put spaces around all infix operators.**
```r
                    num.ticks=num.ticks,
                            ~^~
```
[inst/examples/scatterplot/server.R:18:26:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L18) *style:* **Put spaces around all infix operators.**
```r
                    color=color,
                        ~^~
```
[inst/examples/scatterplot/server.R:19:25:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L19) *style:* **Put spaces around all infix operators.**
```r
                    size=sizes,
                       ~^~
```
[inst/examples/scatterplot/server.R:20:27:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L20) *style:* **Put spaces around all infix operators.**
```r
                    labels=labs,
                         ~^~
```
[inst/examples/scatterplot/server.R:21:33:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L21) *style:* **Put spaces around all infix operators.**
```r
                    label.margin="80px 10px 10px 10px",
                               ~^~
```
[inst/examples/scatterplot/server.R:22:29:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L22) *style:* **Put spaces around all infix operators.**
```r
                    renderer=input$renderer,
                           ~^~
```
[inst/examples/scatterplot/server.R:23:25:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/server.R#L23) *style:* **Put spaces around all infix operators.**
```r
                    grid=input$grid)
                       ~^~
```
[inst/examples/scatterplot/ui.R:13:36:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/ui.R#L13) *style:* **Put spaces around all infix operators.**
```r
      selectInput("renderer", label="Rendering method",
                                  ~^~
```
[inst/examples/scatterplot/ui.R:14:31:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/ui.R#L14) *style:* **Put spaces around all infix operators.**
```r
         choices = list("Auto"="auto", "Canvas"="canvas", "WebGL"="webgl"),
                             ~^~
```
[inst/examples/scatterplot/ui.R:14:48:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/ui.R#L14) *style:* **Put spaces around all infix operators.**
```r
         choices = list("Auto"="auto", "Canvas"="canvas", "WebGL"="webgl"),
                                              ~^~
```
[inst/examples/scatterplot/ui.R:14:66:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/inst/examples/scatterplot/ui.R#L14) *style:* **Put spaces around all infix operators.**
```r
         choices = list("Auto"="auto", "Canvas"="canvas", "WebGL"="webgl"),
                                                                ~^~
```
[R/globe.R:162:47:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L162) *style:* **Put spaces around all infix operators.**
```r
  img=system.file("images/world.jpg",  package="threejs"),
                                             ~^~
```
[R/globe.R:176:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L176) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(lat) || missing(long))
    ^
```
[R/globe.R:183:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/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/8068fe2f3f546971f219e54d027535fd7e391e20/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/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L192) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0)
    ^
```
[R/globe.R:195:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L195) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(j))
      ^
```
[R/globe.R:201:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L201) *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:202:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L202) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(arcs))
    ^
```
[R/globe.R:212:21:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L212) *style:* **Put spaces around all infix operators.**
```r
  options = list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                   ~^~
```
[R/globe.R:212:31:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L212) *style:* **Put spaces around all infix operators.**
```r
  options = list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                             ~^~
```
[R/globe.R:212:43:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L212) *style:* **Put spaces around all infix operators.**
```r
  options = list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                                         ~^~
```
[R/globe.R:212:62:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L212) *style:* **Put spaces around all infix operators.**
```r
  options = list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                                                            ~^~
```
[R/globe.R:213:23:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L213) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                     ~^~
```
[R/globe.R:213:41:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L213) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                       ~^~
```
[R/globe.R:213:56:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L213) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                                      ~^~
```
[R/globe.R:213:65:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L213) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                                               ~^~
```
[R/globe.R:214:27:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L214) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                         ~^~
```
[R/globe.R:214:46:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L214) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                                            ~^~
```
[R/globe.R:214:66:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L214) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                                                                ~^~
```
[R/globe.R:216:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L216) *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:218:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L218) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("bodycolor" %in% names(options))
    ^
```
[R/globe.R:220:19:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L220) *style:* **Commas should always have a space after.**
```r
    i = grep("^#",options$bodycolor)
                  ^
```
[R/globe.R:221:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L221) *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:221:68:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L221) *style:* **Commas should always have a space after.**
```r
    if(length(i) > 0) options$bodycolor = substr(options$bodycolor,1,7)
                                                                   ^
```
[R/globe.R:221:70:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L221) *style:* **Commas should always have a space after.**
```r
    if(length(i) > 0) options$bodycolor = substr(options$bodycolor,1,7)
                                                                     ^
```
[R/globe.R:223:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L223) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("emissive" %in% names(options))
    ^
```
[R/globe.R:225:19:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L225) *style:* **Commas should always have a space after.**
```r
    i = grep("^#",options$emissive)
                  ^
```
[R/globe.R:226:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L226) *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:226:66:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L226) *style:* **Commas should always have a space after.**
```r
    if(length(i) > 0) options$emissive = substr(options$emissive,1,7)
                                                                 ^
```
[R/globe.R:226:68:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L226) *style:* **Commas should always have a space after.**
```r
    if(length(i) > 0) options$emissive = substr(options$emissive,1,7)
                                                                   ^
```
[R/globe.R:228:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L228) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("lightcolor" %in% names(options))
    ^
```
[R/globe.R:230:19:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L230) *style:* **Commas should always have a space after.**
```r
    i = grep("^#",options$lightcolor)
                  ^
```
[R/globe.R:231:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L231) *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:231:70:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L231) *style:* **Commas should always have a space after.**
```r
    if(length(i) > 0) options$lightcolor = substr(options$lightcolor,1,7)
                                                                     ^
```
[R/globe.R:231:72:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L231) *style:* **Commas should always have a space after.**
```r
    if(length(i) > 0) options$lightcolor = substr(options$lightcolor,1,7)
                                                                       ^
```
[R/globe.R:235:28:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L235) *warning:* **no visible global function definition for ‘texture’**
```r
  if (!is.list(img)) img = texture(img)
                           ^~~~~~~
```
[R/globe.R:259:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L259) *warning:* **no visible global function definition for ‘shinyRenderWidget’**
```r
    shinyRenderWidget(expr, globeOutput, env, quoted = TRUE)
    ^~~~~~~~~~~~~~~~~
```
[R/globe.R:259:29:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/globe.R#L259) *warning:* **no visible binding for global variable ‘globeOutput’**
```r
    shinyRenderWidget(expr, globeOutput, env, quoted = TRUE)
                            ^~~~~~~~~~~
```
[R/graph.R:68:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L68) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.data.frame(edges))
    ^
```
[R/graph.R:70:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L70) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(edges$size)) edges$size = 1
    ^
```
[R/graph.R:71:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L71) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(edges$color)) edges$color = "lightgray"
    ^
```
[R/graph.R:72:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L72) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!all(c("from", "size", "to", "color") %in% names(edges)))
    ^
```
[R/graph.R:76:26:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L76) *style:* **Put spaces around all infix operators.**
```r
    nodes = data.frame(id=unique(c(edges$from, edges$to)), size=1, color="orange", stringsAsFactors=FALSE)
                        ~^~
```
[R/graph.R:76:64:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L76) *style:* **Put spaces around all infix operators.**
```r
    nodes = data.frame(id=unique(c(edges$from, edges$to)), size=1, color="orange", stringsAsFactors=FALSE)
                                                              ~^~
```
[R/graph.R:76:73:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L76) *style:* **Put spaces around all infix operators.**
```r
    nodes = data.frame(id=unique(c(edges$from, edges$to)), size=1, color="orange", stringsAsFactors=FALSE)
                                                                       ~^~
```
[R/graph.R:76:100:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L76) *style:* **Put spaces around all infix operators.**
```r
    nodes = data.frame(id=unique(c(edges$from, edges$to)), size=1, color="orange", stringsAsFactors=FALSE)
                                                                                ~^~
```
[R/graph.R:79:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L79) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(nodes$label)) nodes$label = nodes$id
    ^
```
[R/graph.R:80:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L80) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(nodes$size)) nodes$size = 1
    ^
```
[R/graph.R:81:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L81) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(nodes$color)) nodes$color = "orange"
    ^
```
[R/graph.R:82:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L82) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!all(c("id", "size", "label", "color") %in% names(nodes)))
    ^
```
[R/graph.R:85:47:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L85) *style:* **Put spaces around all infix operators.**
```r
  stroke = switch(as.character(stroke), "TRUE"="black", "white")
                                             ~^~
```
[R/graph.R:88:17:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L88) *style:* **Put spaces around all infix operators.**
```r
  x = list(nodes=nodes,
               ~^~
```
[R/graph.R:89:17:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L89) *style:* **Put spaces around all infix operators.**
```r
           edges=edges,
               ~^~
```
[R/graph.R:90:16:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L90) *style:* **Put spaces around all infix operators.**
```r
           main=main,
              ~^~
```
[R/graph.R:91:14:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L91) *style:* **Put spaces around all infix operators.**
```r
           bg=bg,
            ~^~
```
[R/graph.R:92:14:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L92) *style:* **Put spaces around all infix operators.**
```r
           fg=fg,
            ~^~
```
[R/graph.R:93:22:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L93) *style:* **Put spaces around all infix operators.**
```r
           showLabels=showLabels,
                    ~^~
```
[R/graph.R:94:22:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L94) *style:* **Put spaces around all infix operators.**
```r
           attraction=attraction,
                    ~^~
```
[R/graph.R:95:21:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L95) *style:* **Put spaces around all infix operators.**
```r
           repulsion=repulsion,
                   ~^~
```
[R/graph.R:96:22:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L96) *style:* **Put spaces around all infix operators.**
```r
           iterations=max_iterations,
                    ~^~
```
[R/graph.R:97:21:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L97) *style:* **Put spaces around all infix operators.**
```r
           curvature=curvature,
                   ~^~
```
[R/graph.R:98:19:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L98) *style:* **Put spaces around all infix operators.**
```r
           opacity=opacity,
                 ~^~
```
[R/graph.R:99:18:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L99) *style:* **Put spaces around all infix operators.**
```r
           stroke=stroke)
                ~^~
```
[R/graph.R:102:35:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L102) *style:* **Put spaces around all infix operators.**
```r
          x = toJSON(x, auto_unbox=TRUE),
                                 ~^~
```
[R/graph.R:123:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L123) *warning:* **no visible global function definition for ‘shinyRenderWidget’**
```r
    shinyRenderWidget(expr, graphOutput, env, quoted = TRUE)
    ^~~~~~~~~~~~~~~~~
```
[R/graph.R:123:29:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L123) *warning:* **no visible binding for global variable ‘graphOutput’**
```r
    shinyRenderWidget(expr, graphOutput, env, quoted = TRUE)
                            ^~~~~~~~~~~
```
[R/graph.R:149:1:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L149) *style:* **lines should not be more than 130 characters.**
```r
  if (!is.data.frame(edges) || !(c("from", "to") %in% names(edges))) stop("edges must be a data frame with 'from' and 'to' columns")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graph.R:152:26:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L152) *style:* **Put spaces around all infix operators.**
```r
    nodes = data.frame(id=unique(c(edges$from, edges$to)))
                        ~^~
```
[R/graph.R:157:18:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L157) *style:* **Commas should always have a space after.**
```r
    idx = edges[,"from"] > edges[,"to"]
                 ^
```
[R/graph.R:157:35:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L157) *style:* **Commas should always have a space after.**
```r
    idx = edges[,"from"] > edges[,"to"]
                                  ^
```
[R/graph.R:158:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L158) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(idx))
      ^
```
[R/graph.R:169:22:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L169) *style:* **Commas should always have a space after.**
```r
  names(id) = nodes[,"id"]
                     ^
```
[R/graph.R:170:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L170) *warning:* **no visible global function definition for ‘sparseMatrix’**
```r
  M = sparseMatrix(i=id[as.character(edges$from)], j=id[as.character(edges$to)], x=x, dims=c(N, N), symmetric=symmetric)
      ^~~~~~~~~~~~
```
[R/graph.R:170:21:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L170) *style:* **Put spaces around all infix operators.**
```r
  M = sparseMatrix(i=id[as.character(edges$from)], j=id[as.character(edges$to)], x=x, dims=c(N, N), symmetric=symmetric)
                   ~^~
```
[R/graph.R:170:53:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L170) *style:* **Put spaces around all infix operators.**
```r
  M = sparseMatrix(i=id[as.character(edges$from)], j=id[as.character(edges$to)], x=x, dims=c(N, N), symmetric=symmetric)
                                                   ~^~
```
[R/graph.R:170:83:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L170) *style:* **Put spaces around all infix operators.**
```r
  M = sparseMatrix(i=id[as.character(edges$from)], j=id[as.character(edges$to)], x=x, dims=c(N, N), symmetric=symmetric)
                                                                                ~^~
```
[R/graph.R:170:91:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L170) *style:* **Put spaces around all infix operators.**
```r
  M = sparseMatrix(i=id[as.character(edges$from)], j=id[as.character(edges$to)], x=x, dims=c(N, N), symmetric=symmetric)
                                                                                ~^~
```
[R/graph.R:170:110:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L170) *style:* **Put spaces around all infix operators.**
```r
  M = sparseMatrix(i=id[as.character(edges$from)], j=id[as.character(edges$to)], x=x, dims=c(N, N), symmetric=symmetric)
                                                                                ~^~
```
[R/graph.R:171:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L171) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(nodes$label)) colnames(M) = rownames(M) = nodes$label
    ^
```
[R/graph.R:189:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L189) *warning:* **no visible global function definition for ‘Matrix’, Did you mean 'matrix'?**
```r
  M = Matrix(M)
      ^~~~~~
```
[R/graph.R:190:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L190) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!any(grepl("CMatrix", class(M)))) stop("M must be a matrix or CsparseMatrix object")
    ^
```
[R/graph.R:193:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L193) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("x" %in% slotNames(M)) size = as.numeric(M@x)
    ^
```
[R/graph.R:193:15:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L193) *warning:* **no visible global function definition for ‘slotNames’, Did you mean 'setNames'?**
```r
  if("x" %in% slotNames(M)) size = as.numeric(M@x)
              ^~~~~~~~~
```
[R/graph.R:194:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L194) *style:* **Put spaces around all infix operators.**
```r
  nodes = data.frame(id=1:n, label=1:n, size=1, color="orange")
                      ~^~
```
[R/graph.R:194:35:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L194) *style:* **Put spaces around all infix operators.**
```r
  nodes = data.frame(id=1:n, label=1:n, size=1, color="orange")
                                 ~^~
```
[R/graph.R:194:45:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L194) *style:* **Put spaces around all infix operators.**
```r
  nodes = data.frame(id=1:n, label=1:n, size=1, color="orange")
                                           ~^~
```
[R/graph.R:194:54:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L194) *style:* **Put spaces around all infix operators.**
```r
  nodes = data.frame(id=1:n, label=1:n, size=1, color="orange")
                                                    ~^~
```
[R/graph.R:195:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L195) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(colnames(M))) nodes$label = colnames(M)
    ^
```
[R/graph.R:197:26:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L197) *style:* **Put spaces around all infix operators.**
```r
  edges = data.frame(from=M@i + 1, to=rep(seq_along(dp), dp), size=size, color="lightgray")
                        ~^~
```
[R/graph.R:197:38:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L197) *style:* **Put spaces around all infix operators.**
```r
  edges = data.frame(from=M@i + 1, to=rep(seq_along(dp), dp), size=size, color="lightgray")
                                    ~^~
```
[R/graph.R:197:67:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L197) *style:* **Put spaces around all infix operators.**
```r
  edges = data.frame(from=M@i + 1, to=rep(seq_along(dp), dp), size=size, color="lightgray")
                                                                 ~^~
```
[R/graph.R:197:79:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L197) *style:* **Put spaces around all infix operators.**
```r
  edges = data.frame(from=M@i + 1, to=rep(seq_along(dp), dp), size=size, color="lightgray")
                                                                             ~^~
```
[R/graph.R:198:13:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L198) *style:* **Put spaces around all infix operators.**
```r
  list(nodes=nodes, edges=edges)
           ~^~
```
[R/graph.R:198:26:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/graph.R#L198) *style:* **Put spaces around all infix operators.**
```r
  list(nodes=nodes, edges=edges)
                        ~^~
```
[R/scatterplot.R:148:19:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L148) *style:* **Commas should always have a space after.**
```r
  num.ticks = c(6,6,6),
                  ^
```
[R/scatterplot.R:148:21:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L148) *style:* **Commas should always have a space after.**
```r
  num.ticks = c(6,6,6),
                    ^
```
[R/scatterplot.R:159:23:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L159) *style:* **Commas should always have a space after.**
```r
  renderer = c("auto","canvas","webgl"),
                      ^
```
[R/scatterplot.R:159:32:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L159) *style:* **Commas should always have a space after.**
```r
  renderer = c("auto","canvas","webgl"),
                               ^
```
[R/scatterplot.R:165:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L165) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!missing(y) && !missing(z))
    ^
```
[R/scatterplot.R:167:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L167) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(is.matrix(x))
      ^
```
[R/scatterplot.R:169:16:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L169) *style:* **Put spaces around all infix operators.**
```r
    x = cbind(x=x,y=y,z=z)
              ~^~
```
[R/scatterplot.R:169:19:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L169) *style:* **Commas should always have a space after.**
```r
    x = cbind(x=x,y=y,z=z)
                  ^
```
[R/scatterplot.R:169:20:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L169) *style:* **Put spaces around all infix operators.**
```r
    x = cbind(x=x,y=y,z=z)
                  ~^~
```
[R/scatterplot.R:169:23:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L169) *style:* **Commas should always have a space after.**
```r
    x = cbind(x=x,y=y,z=z)
                      ^
```
[R/scatterplot.R:169:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L169) *style:* **Put spaces around all infix operators.**
```r
    x = cbind(x=x,y=y,z=z)
                      ~^~
```
[R/scatterplot.R:171:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L171) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(ncol(x) != 3) stop("x must be a three column matrix")
    ^
```
[R/scatterplot.R:172:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L172) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.data.frame(x)) x = as.matrix(x)
    ^
```
[R/scatterplot.R:173:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L173) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.matrix(x)) stop("x must be a three column matrix")
    ^
```
[R/scatterplot.R:175:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L175) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(pch)) pch = NULL
    ^
```
[R/scatterplot.R:176:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L176) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(renderer) && nrow(x) > 10000)
    ^
```
[R/scatterplot.R:186:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L186) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0)
    ^
```
[R/scatterplot.R:189:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L189) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(j))
      ^
```
[R/scatterplot.R:191:40:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L191) *style:* **Commas should always have a space after.**
```r
      color[i][j] = substr(color[i][j],1,7)
                                       ^
```
[R/scatterplot.R:191:42:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L191) *style:* **Commas should always have a space after.**
```r
      color[i][j] = substr(color[i][j],1,7)
                                         ^
```
[R/scatterplot.R:194:17:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L194) *style:* **Commas should always have a space after.**
```r
  i = grep("^#",bg)
                ^
```
[R/scatterplot.R:195:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L195) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0)
    ^
```
[R/scatterplot.R:197:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L197) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(nchar(bg) > 7)
      ^
```
[R/scatterplot.R:199:22:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L199) *style:* **Commas should always have a space after.**
```r
      bg = substr(bg,1,7)
                     ^
```
[R/scatterplot.R:199:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L199) *style:* **Commas should always have a space after.**
```r
      bg = substr(bg,1,7)
                       ^
```
[R/scatterplot.R:205:49:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L205) *style:* **Commas should always have a space after.**
```r
  options = options[!(names(options) %in% c("x","y","z","i","j"))]
                                                ^
```
[R/scatterplot.R:205:53:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L205) *style:* **Commas should always have a space after.**
```r
  options = options[!(names(options) %in% c("x","y","z","i","j"))]
                                                    ^
```
[R/scatterplot.R:205:57:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L205) *style:* **Commas should always have a space after.**
```r
  options = options[!(names(options) %in% c("x","y","z","i","j"))]
                                                        ^
```
[R/scatterplot.R:205:61:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L205) *style:* **Commas should always have a space after.**
```r
  options = options[!(names(options) %in% c("x","y","z","i","j"))]
                                                            ^
```
[R/scatterplot.R:207:18:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L207) *style:* **Commas should always have a space after.**
```r
  i = grep("\\.",names(options))
                 ^
```
[R/scatterplot.R:208:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L208) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0) names(options)[i] = gsub("\\.", "", names(options)[i])
    ^
```
[R/scatterplot.R:211:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L211) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(colnames(x)) == 3 && is.null(options$axisLabels)) options$axisLabels = colnames(x)
    ^
```
[R/scatterplot.R:214:22:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L214) *style:* **Commas should always have a space after.**
```r
  x = matrix(x[, c(1,3,2)], ncol=3)
                     ^
```
[R/scatterplot.R:214:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L214) *style:* **Commas should always have a space after.**
```r
  x = matrix(x[, c(1,3,2)], ncol=3)
                       ^
```
[R/scatterplot.R:214:33:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L214) *style:* **Put spaces around all infix operators.**
```r
  x = matrix(x[, c(1,3,2)], ncol=3)
                               ~^~
```
[R/scatterplot.R:221:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L221) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!missing(xlim) && length(xlim) == 2)
    ^
```
[R/scatterplot.R:226:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L226) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!missing(ylim) && length(ylim) == 2)
    ^
```
[R/scatterplot.R:231:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L231) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!missing(zlim) && length(zlim) == 2)
    ^
```
[R/scatterplot.R:238:24:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L238) *style:* **Put spaces around all infix operators.**
```r
  x = (x - rep(mn, each=n)) / (rep(mx - mn, each=n))
                      ~^~
```
[R/scatterplot.R:238:49:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L238) *style:* **Put spaces around all infix operators.**
```r
  x = (x - rep(mn, each=n)) / (rep(mx - mn, each=n))
                                               ~^~
```
[R/scatterplot.R:239:18:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L239) *style:* **Commas should always have a space after.**
```r
  if (flip.y) x[,3] = 1 - x[,3]
                 ^
```
[R/scatterplot.R:239:30:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L239) *style:* **Commas should always have a space after.**
```r
  if (flip.y) x[,3] = 1 - x[,3]
                             ^
```
[R/scatterplot.R:245:28:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L245) *style:* **Commas should always have a space after.**
```r
  x = as.vector(t(signif(x,signif)))
                           ^
```
[R/scatterplot.R:248:5:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L248) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(num.ticks))
    ^
```
[R/scatterplot.R:250:7:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L250) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(num.ticks) != 3) stop("num.ticks must have length 3")
      ^
```
[R/scatterplot.R:251:31:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L251) *style:* **Commas should always have a space after.**
```r
    num.ticks = num.ticks[c(1,3,2)]
                              ^
```
[R/scatterplot.R:251:33:](https://github.com/bwlewis/rthreejs/blob/8068fe2f3f546971f219e54d027535fd7e391e20/R/scatterplot.R#L251) *style:* **Commas should always have a space after.**
```r
    num.ticks = num.ticks[c(1,3,2)]
                                ^
```


> for now just don't output it if sink is configured for passthrough?

that would result in an underrun for most sinks.


is that what the sudden lag ever time i fired an arrow was, I thought it was because I was running so much stuff in the background :P