[inst/examples/globe/server.R:3:27:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/inst/examples/globe/server.R#L7) *style:* **Put spaces around all infix operators.**
```r
                   emissive="#0011ff",
                          ~^~
```
[inst/examples/globe/server.R:8:30:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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:147:47:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L147) *style:* **Put spaces around all infix operators.**
```r
  img=system.file("images/world.jpg",  package="threejs"),
                                             ~^~
```
[R/globe.R:161:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L161) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(lat) || missing(long))
    ^
```
[R/globe.R:168:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L168) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0)
    ^
```
[R/globe.R:171:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L171) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(j))
      ^
```
[R/globe.R:177:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L177) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(i) > 0)
    ^
```
[R/globe.R:180:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L180) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(j))
      ^
```
[R/globe.R:186:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L186) *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:187:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L187) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(arcs))
    ^
```
[R/globe.R:197:22:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L197) *style:* **Put spaces around all infix operators.**
```r
  options <- list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                    ~^~
```
[R/globe.R:197:32:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L197) *style:* **Put spaces around all infix operators.**
```r
  options <- list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                              ~^~
```
[R/globe.R:197:44:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L197) *style:* **Put spaces around all infix operators.**
```r
  options <- list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                                          ~^~
```
[R/globe.R:197:63:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L197) *style:* **Put spaces around all infix operators.**
```r
  options <- list(lat=lat, long=long, color=color, arcsOpacity=arcsOpacity,
                                                             ~^~
```
[R/globe.R:198:23:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L198) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                     ~^~
```
[R/globe.R:198:41:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L198) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                       ~^~
```
[R/globe.R:198:56:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L198) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                                      ~^~
```
[R/globe.R:198:65:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L198) *style:* **Put spaces around all infix operators.**
```r
                 value=value, atmosphere=atmosphere, bg=bg, arcs=arcs,
                                                               ~^~
```
[R/globe.R:199:27:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L199) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                         ~^~
```
[R/globe.R:199:46:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L199) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                                            ~^~
```
[R/globe.R:199:66:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L199) *style:* **Put spaces around all infix operators.**
```r
                 arcsColor=arcsColor, arcsLwd=arcsLwd, arcsHeight=arcsHeight)
                                                                ~^~
```
[R/globe.R:201:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L201) *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:203:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L203) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("bodycolor" %in% names(options))
    ^
```
[R/globe.R:205:20:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L205) *style:* **Commas should always have a space after.**
```r
    i <- grep("^#",options$bodycolor)
                   ^
```
[R/globe.R:206:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L206) *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:208:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L208) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("emissive" %in% names(options))
    ^
```
[R/globe.R:211:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L211) *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:213:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L213) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("lightcolor" %in% names(options))
    ^
```
[R/globe.R:216:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L216) *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:220:29:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L220) *warning:* **no visible global function definition for ‘texture’**
```r
  if (!is.list(img)) img <- texture(img)
                            ^~~~~~~
```
[R/globe.R:244:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L244) *warning:* **no visible global function definition for ‘shinyRenderWidget’**
```r
    shinyRenderWidget(expr, globeOutput, env, quoted = TRUE)
    ^~~~~~~~~~~~~~~~~
```
[R/globe.R:244:29:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/globe.R#L244) *warning:* **no visible binding for global variable ‘globeOutput’**
```r
    shinyRenderWidget(expr, globeOutput, env, quoted = TRUE)
                            ^~~~~~~~~~~
```
[R/graph.R:124:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L124) *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:127:31:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L127) *warning:* **no visible binding for global variable ‘as_edgelist’**
```r
    fromlist <- lapply(g[-1], as_edgelist)
                              ^~~~~~~~~~~
```
[R/graph.R:130:45:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L130) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
    lcollist <- lapply(g[-1], function(x) { ifel(is.null(E(x)$color), NA, E(x)$color) })
                                            ^~~~
```
[R/graph.R:130:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L130) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    lcollist <- lapply(g[-1], function(x) { ifel(is.null(E(x)$color), NA, E(x)$color) })
                                                         ^
```
[R/graph.R:130:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L130) *warning:* **no visible global function definition for ‘E’, Did you mean 'g'?**
```r
    lcollist <- lapply(g[-1], function(x) { ifel(is.null(E(x)$color), NA, E(x)$color) })
                                                         ^
```
[R/graph.R:131:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L131) *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:131:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L131) *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:131:82:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L131) *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:131:103:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L131) *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:131:112:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L131) *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:134:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L134) *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:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L136) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(layout)) layout <- ifel(is.null(g$layout), function(g) layout_with_fr(g, dim=3, niter=50), g$layout)
    ^
```
[R/graph.R:136:33:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L136) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
  if(missing(layout)) layout <- ifel(is.null(g$layout), function(g) layout_with_fr(g, dim=3, niter=50), g$layout)
                                ^~~~
```
[R/graph.R:136:69:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L136) *warning:* **no visible global function definition for ‘layout_with_fr’**
```r
  if(missing(layout)) layout <- ifel(is.null(g$layout), function(g) layout_with_fr(g, dim=3, niter=50), g$layout)
                                                                    ^~~~~~~~~~~~~~
```
[R/graph.R:136:90:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L136) *style:* **Put spaces around all infix operators.**
```r
  if(missing(layout)) layout <- ifel(is.null(g$layout), function(g) layout_with_fr(g, dim=3, niter=50), g$layout)
                                                                                ~^~
```
[R/graph.R:136:99:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L136) *style:* **Put spaces around all infix operators.**
```r
  if(missing(layout)) layout <- ifel(is.null(g$layout), function(g) layout_with_fr(g, dim=3, niter=50), g$layout)
                                                                                ~^~
```
[R/graph.R:137:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L137) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(vertex.color)) vertex.color <- ifel(is.null(V(g)$color), "orange", V(g)$color)
    ^
```
[R/graph.R:137:45:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L137) *warning:* **no visible global function definition for ‘ifel’, Did you mean 'file'?**
```r
  if(missing(vertex.color)) vertex.color <- ifel(is.null(V(g)$color), "orange", V(g)$color)
                                            ^~~~
```
[R/graph.R:137:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L137) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
  if(missing(vertex.color)) vertex.color <- ifel(is.null(V(g)$color), "orange", V(g)$color)
                                                         ^
```
[R/graph.R:137:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L137) *warning:* **no visible global function definition for ‘V’, Did you mean 'g'?**
```r
  if(missing(vertex.color)) vertex.color <- ifel(is.null(V(g)$color), "orange", V(g)$color)
                                                         ^
```
[R/graph.R:138:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L138) *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:138:43:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L138) *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:138:56:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L138) *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:138:56:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L138) *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:139:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L139) *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:139:45:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L139) *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:139:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L139) *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:139:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L139) *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:140:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L140) *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:140:45:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L140) *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:140:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L140) *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:140:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L140) *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:141:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L141) *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:141:41:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L141) *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:141:54:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L141) *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:141:54:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L141) *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:142:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L142) *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:142:41:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L142) *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:142:54:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L142) *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:142:54:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L142) *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:143:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L143) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(edge.alpha))
    ^
```
[R/graph.R:145:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L145) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(E(g)) > 1000) edge.alpha <- 0.4
      ^
```
[R/graph.R:150:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L150) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.function(layout)) layout <- layout(g)
    ^
```
[R/graph.R:151:8:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L151) *warning:* **no visible global function definition for ‘as_edgelist’**
```r
  g <- as_edgelist(g)
       ^~~~~~~~~~~
```
[R/graph.R:155:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L155) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.list(layout))
    ^
```
[R/graph.R:158:33:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L158) *warning:* **no visible binding for global variable ‘norm_coords’**
```r
    layout <- Reduce(rbind, Map(norm_coords, layout))
                                ^~~~~~~~~~~
```
[R/graph.R:164:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L164) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("pie" %in% u) pch <- gsub("pie", "@", pch)
    ^
```
[R/graph.R:165:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L165) *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:166:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L166) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("square" %in% u) pch <- gsub("square", ".", pch)
    ^
```
[R/graph.R:167:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L167) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("csquare" %in% u) pch <- gsub("csquare", ".", pch)
    ^
```
[R/graph.R:168:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L168) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("rectangle" %in% u) pch <- gsub("rectangle", ".", pch)
    ^
```
[R/graph.R:169:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L169) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("crectangle" %in% u) pch <- gsub("crectangle", ".", pch)
    ^
```
[R/graph.R:170:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L170) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("vrectangle" %in% u) pch <- gsub("vrectangle", ".", pch)
    ^
```
[R/graph.R:171:22:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L171) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=g,
                    ~^~
```
[R/graph.R:171:34:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L171) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=g,
                                ~^~
```
[R/graph.R:171:44:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L171) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=g,
                                          ~^~
```
[R/graph.R:171:63:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L171) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=g,
                                                             ~^~
```
[R/graph.R:171:82:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L171) *style:* **Put spaces around all infix operators.**
```r
  options <- c(list(x=layout, pch=pch, size=vertex.size, color=vertex.color, from=g,
                                                                                ~^~
```
[R/graph.R:172:22:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L172) *style:* **Put spaces around all infix operators.**
```r
                  lwd=edge.width, linealpha=edge.alpha, lcol=edge.color,
                    ~^~
```
[R/graph.R:172:44:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L172) *style:* **Put spaces around all infix operators.**
```r
                  lwd=edge.width, linealpha=edge.alpha, lcol=edge.color,
                                          ~^~
```
[R/graph.R:172:61:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L172) *style:* **Put spaces around all infix operators.**
```r
                  lwd=edge.width, linealpha=edge.alpha, lcol=edge.color,
                                                           ~^~
```
[R/graph.R:173:23:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L173) *style:* **Put spaces around all infix operators.**
```r
                  axis=FALSE, grid=FALSE, center=TRUE, bg=bg, main=main), list(...))
                     ~^~
```
[R/graph.R:173:35:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L173) *style:* **Put spaces around all infix operators.**
```r
                  axis=FALSE, grid=FALSE, center=TRUE, bg=bg, main=main), list(...))
                                 ~^~
```
[R/graph.R:173:49:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L173) *style:* **Put spaces around all infix operators.**
```r
                  axis=FALSE, grid=FALSE, center=TRUE, bg=bg, main=main), list(...))
                                               ~^~
```
[R/graph.R:173:58:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L173) *style:* **Put spaces around all infix operators.**
```r
                  axis=FALSE, grid=FALSE, center=TRUE, bg=bg, main=main), list(...))
                                                        ~^~
```
[R/graph.R:173:67:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L173) *style:* **Put spaces around all infix operators.**
```r
                  axis=FALSE, grid=FALSE, center=TRUE, bg=bg, main=main), list(...))
                                                                 ~^~
```
[R/graph.R:174:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L174) *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:175:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L175) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!(length(edge.color) == 1 && is.na(edge.color))) options$lcol <- edge.color
    ^
```
[R/graph.R:176:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L176) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.na(scenes)) options$scenes <- scenes
    ^
```
[R/graph.R:177:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L177) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(glist)
    ^
```
[R/graph.R:179:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L179) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if((length(fromlist) + 1) != scenes) stop("mismatching graph and layout lengths")
      ^
```
[R/graph.R:179:8:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L179) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if((length(fromlist) + 1) != scenes) stop("mismatching graph and layout lengths")
       ^
```
[R/graph.R:184:33:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/graph.R#L184) *style:* **Put spaces around all infix operators.**
```r
  do.call("scatterplot3js", args=options)
                               ~^~
```
[R/scatterplot.R:208:19:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L208) *style:* **Commas should always have a space after.**
```r
  num.ticks = c(6,6,6),
                  ^
```
[R/scatterplot.R:208:21:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L208) *style:* **Commas should always have a space after.**
```r
  num.ticks = c(6,6,6),
                    ^
```
[R/scatterplot.R:224:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L224) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(is.matrix(x))
      ^
```
[R/scatterplot.R:232:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L232) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(pch)) pch <- rep("o", nrow(x))
    ^
```
[R/scatterplot.R:233:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L233) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(pch) != nrow(x)) pch <- rep_len(pch, nrow(x))
    ^
```
[R/scatterplot.R:239:42:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L239) *style:* **Commas should always have a space after.**
```r
  color <- sub("^(#[[:xdigit:]]{6}+).*$","\\1", color, perl = TRUE)
                                         ^
```
[R/scatterplot.R:240:39:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L240) *style:* **Commas should always have a space after.**
```r
  bg <- sub("^(#[[:xdigit:]]{6}+).*$","\\1", bg, perl = TRUE)
                                      ^
```
[R/scatterplot.R:250:28:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L250) *style:* **Put spaces around all infix operators.**
```r
  x <- x[, c(1, 3, 2), drop=FALSE]
                          ~^~
```
[R/scatterplot.R:261:28:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L261) *style:* **Put spaces around all infix operators.**
```r
  mn <- apply(x[, 1:3, drop=FALSE], 2, min)
                          ~^~
```
[R/scatterplot.R:262:28:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L262) *style:* **Put spaces around all infix operators.**
```r
  mx <- apply(x[, 1:3, drop=FALSE], 2, max)
                          ~^~
```
[R/scatterplot.R:277:29:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L277) *style:* **Put spaces around all infix operators.**
```r
  x[, 1:3] <- (x[, 1:3, drop=FALSE] - rep(mn, each = n)) / (rep(mx - mn, each = n))
                           ~^~
```
[R/scatterplot.R:281:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L281) *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:285:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L285) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("scenes" %in% names(options)) # XXX experimental
    ^
```
[R/scatterplot.R:288:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L288) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(N != floor(N)) stop("number of points must be a multiple of scenes")
      ^
```
[R/scatterplot.R:289:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L289) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if("fps" %in% names(options)) nframes <- options$fps * (options$scenes - 1)
      ^
```
[R/scatterplot.R:290:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L290) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if("fpl" %in% names(options)) nframes <- options$fpl * (options$scenes - 1)
      ^
```
[R/scatterplot.R:296:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L296) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!("linealpha" %in% names(options))) options$linealpha <- 1
    ^
```
[R/scatterplot.R:307:40:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L307) *style:* **Commas should always have a space after.**
```r
    num.ticks <- pmax(1, num.ticks[c(1,3,2)])
                                       ^
```
[R/scatterplot.R:307:42:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L307) *style:* **Commas should always have a space after.**
```r
    num.ticks <- pmax(1, num.ticks[c(1,3,2)])
                                         ^
```
[R/scatterplot.R:309:19:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L309) *style:* **Put spaces around all infix operators.**
```r
    t1 <- seq(from=mn[1], to=mx[1], length.out=num.ticks[1])
                 ~^~
```
[R/scatterplot.R:309:29:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L309) *style:* **Put spaces around all infix operators.**
```r
    t1 <- seq(from=mn[1], to=mx[1], length.out=num.ticks[1])
                           ~^~
```
[R/scatterplot.R:309:47:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L309) *style:* **Put spaces around all infix operators.**
```r
    t1 <- seq(from=mn[1], to=mx[1], length.out=num.ticks[1])
                                             ~^~
```
[R/scatterplot.R:311:19:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L311) *style:* **Put spaces around all infix operators.**
```r
    t2 <- seq(from=mn[2], to=mx[2], length.out=num.ticks[2])
                 ~^~
```
[R/scatterplot.R:311:29:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L311) *style:* **Put spaces around all infix operators.**
```r
    t2 <- seq(from=mn[2], to=mx[2], length.out=num.ticks[2])
                           ~^~
```
[R/scatterplot.R:311:47:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L311) *style:* **Put spaces around all infix operators.**
```r
    t2 <- seq(from=mn[2], to=mx[2], length.out=num.ticks[2])
                                             ~^~
```
[R/scatterplot.R:313:19:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L313) *style:* **Put spaces around all infix operators.**
```r
    t3 <- seq(from=mn[3], to=mx[3], length.out=num.ticks[3])
                 ~^~
```
[R/scatterplot.R:313:29:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L313) *style:* **Put spaces around all infix operators.**
```r
    t3 <- seq(from=mn[3], to=mx[3], length.out=num.ticks[3])
                           ~^~
```
[R/scatterplot.R:313:47:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L313) *style:* **Put spaces around all infix operators.**
```r
    t3 <- seq(from=mn[3], to=mx[3], length.out=num.ticks[3])
                                             ~^~
```
[R/scatterplot.R:315:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L315) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(flip.y) t3 <- t3[length(t3):1]
      ^
```
[R/scatterplot.R:321:9:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L321) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(any(i))
        ^
```
[R/scatterplot.R:331:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L331) *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:332:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L332) *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:333:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L333) *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:340:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L340) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("from" %in% names(options))
    ^
```
[R/scatterplot.R:342:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L342) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(is.matrix(options$from) && ncol(options$from) == 2)
      ^
```
[R/scatterplot.R:344:48:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L344) *style:* **Commented code should be removed.**
```r
      options$to <- options$from[, 2] - 1    # zero-index
                                               ^~~~~~~~~~
```
[R/scatterplot.R:346:9:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L346) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(options$from) == 1)
        ^
```
[R/scatterplot.R:355:9:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L355) *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:358:9:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L358) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(nl != length(options$to)) stop("from and to must be the same length")
        ^
```
[R/scatterplot.R:360:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L360) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!("lwd" %in% names(options))) options$lwd <- 1L
      ^
```
[R/scatterplot.R:362:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L362) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("fromlist" %in% names(options))
    ^
```
[R/scatterplot.R:364:7:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L364) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!("tolist" %in% names(options))) stop("both fromlist and tolist must be specified")
      ^
```
[R/scatterplot.R:365:68:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L365) *style:* **Commented code should be removed.**
```r
    options$fromlist <- Map(function(x) x - 1, options$fromlist) # zero-index
                                                                   ^~~~~~~~~~
```
[R/scatterplot.R:392:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L392) *warning:* **no visible global function definition for ‘shinyWidgetOutput’**
```r
    shinyWidgetOutput(outputId, "scatterplotThree", width, height, package = "threejs")
    ^~~~~~~~~~~~~~~~~
```
[R/scatterplot.R:399:5:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L399) *warning:* **no visible global function definition for ‘shinyRenderWidget’**
```r
    shinyRenderWidget(expr, scatterplotThreeOutput, env, quoted = TRUE)
    ^~~~~~~~~~~~~~~~~
```
[R/scatterplot.R:399:29:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L399) *warning:* **no visible binding for global variable ‘scatterplotThreeOutput’**
```r
    shinyRenderWidget(expr, scatterplotThreeOutput, env, quoted = TRUE)
                            ^~~~~~~~~~~~~~~~~~~~~~
```
[R/scatterplot.R:409:9:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L409) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(is.matrix(x))
        ^
```
[R/scatterplot.R:419:44:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L419) *style:* **Commas should always have a space after.**
```r
    color <- sub("^#([[:xdigit:]]{6}+).*$","\\1", color, perl = TRUE)
                                           ^
```
[R/scatterplot.R:422:30:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L422) *style:* **Put spaces around all infix operators.**
```r
    x <- x[, c(1, 3, 2), drop=FALSE]
                            ~^~
```
[R/scatterplot.R:424:31:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L424) *style:* **Put spaces around all infix operators.**
```r
    x[, 1:3] <- (x[, 1:3, drop=FALSE] - rep(options$mn, each = n)) / (rep(options$mx - options$mn, each = n))
                             ~^~
```
[R/scatterplot.R:431:34:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L431) *style:* **Commas should always have a space after.**
```r
    x <- as.vector(t(signif(data,signif)))
                                 ^
```
[R/scatterplot.R:436:90:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L436) *style:* **Put spaces around all infix operators.**
```r
      local_options$size <- c(rep(options$size, length.out = n_old), rep(size, length.out=n))
                                                                                ~^~
```
[R/scatterplot.R:441:61:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L441) *style:* **Put spaces around all infix operators.**
```r
      local_options$color <- c(rep(options$color, length.out=n_old), rep(color, length.out=n))
                                                           ~^~
```
[R/scatterplot.R:441:91:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L441) *style:* **Put spaces around all infix operators.**
```r
      local_options$color <- c(rep(options$color, length.out=n_old), rep(color, length.out=n))
                                                                                ~^~
```
[R/scatterplot.R:446:57:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L446) *style:* **Put spaces around all infix operators.**
```r
      local_options$pch <- c(rep(options$pch, length.out=n_old), rep(pch, length.out=n))
                                                       ~^~
```
[R/scatterplot.R:446:85:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/R/scatterplot.R#L446) *style:* **Put spaces around all infix operators.**
```r
      local_options$pch <- c(rep(options$pch, length.out=n_old), rep(pch, length.out=n))
                                                                                ~^~
```
[R/utilities.R:43:23:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/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/883218ad45c1ea18b26d73645f3def239330a17d/R/utilities.R#L61) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(isTRUE(a)) return(b)
    ^
```
[tests/threejs.R:4:26:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L4) *style:* **Put spaces around all infix operators.**
```r
i <- sample(3, N, replace=TRUE)
                        ~^~
```
[tests/threejs.R:5:31:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L5) *style:* **Put spaces around all infix operators.**
```r
x <- matrix(rnorm(N * 3), ncol=3)
                             ~^~
```
[tests/threejs.R:6:24:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L6) *style:* **Put spaces around all infix operators.**
```r
scatterplot3js(x, color=rainbow(N), size=i, renderer="canvas")
                      ~^~
```
[tests/threejs.R:6:41:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L6) *style:* **Put spaces around all infix operators.**
```r
scatterplot3js(x, color=rainbow(N), size=i, renderer="canvas")
                                       ~^~
```
[tests/threejs.R:6:53:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L6) *style:* **Put spaces around all infix operators.**
```r
scatterplot3js(x, color=rainbow(N), size=i, renderer="canvas")
                                                   ~^~
```
[tests/threejs.R:11:18:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L11) *style:* **Commas should always have a space after.**
```r
scatterplot3js(x,y,z, color=rainbow(length(z)))
                 ^
```
[tests/threejs.R:11:20:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L11) *style:* **Commas should always have a space after.**
```r
scatterplot3js(x,y,z, color=rainbow(length(z)))
                   ^
```
[tests/threejs.R:11:28:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L11) *style:* **Put spaces around all infix operators.**
```r
scatterplot3js(x,y,z, color=rainbow(length(z)))
                          ~^~
```
[tests/threejs.R:12:18:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L12) *style:* **Commas should always have a space after.**
```r
scatterplot3js(x,y,z, color=rainbow(length(z)), axisLabels=c("a", "b", "c"))
                 ^
```
[tests/threejs.R:12:20:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L12) *style:* **Commas should always have a space after.**
```r
scatterplot3js(x,y,z, color=rainbow(length(z)), axisLabels=c("a", "b", "c"))
                   ^
```
[tests/threejs.R:12:28:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L12) *style:* **Put spaces around all infix operators.**
```r
scatterplot3js(x,y,z, color=rainbow(length(z)), axisLabels=c("a", "b", "c"))
                          ~^~
```
[tests/threejs.R:12:59:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L12) *style:* **Put spaces around all infix operators.**
```r
scatterplot3js(x,y,z, color=rainbow(length(z)), axisLabels=c("a", "b", "c"))
                                                         ~^~
```
[tests/threejs.R:15:22:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L15) *style:* **Put spaces around all infix operators.**
```r
data(flights, package="threejs")
                    ~^~
```
[tests/threejs.R:17:37:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L17) *style:* **Put spaces around all infix operators.**
```r
freq <- sort(table(dest), decreasing=TRUE)
                                   ~^~
```
[tests/threejs.R:22:12:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L22) *style:* **Put spaces around all infix operators.**
```r
globejs(lat=ll[, 1], long=ll[, 2], arcs=frequent_flights,
          ~^~
```
[tests/threejs.R:22:26:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L22) *style:* **Put spaces around all infix operators.**
```r
globejs(lat=ll[, 1], long=ll[, 2], arcs=frequent_flights,
                        ~^~
```
[tests/threejs.R:22:40:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L22) *style:* **Put spaces around all infix operators.**
```r
globejs(lat=ll[, 1], long=ll[, 2], arcs=frequent_flights,
                                      ~^~
```
[tests/threejs.R:23:19:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L23) *style:* **Put spaces around all infix operators.**
```r
        arcsHeight=0.3, arcsLwd=2, arcsColor="#ffff00", arcsOpacity=0.15,
                 ~^~
```
[tests/threejs.R:23:32:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L23) *style:* **Put spaces around all infix operators.**
```r
        arcsHeight=0.3, arcsLwd=2, arcsColor="#ffff00", arcsOpacity=0.15,
                              ~^~
```
[tests/threejs.R:23:45:](https://github.com/bwlewis/rthreejs/blob/883218ad45c1ea18b26d73645f3def239330a17d/tests/threejs.R#L23) *style:* **Put spaces around all infix operators.**
```r
        arcsHeight=0.3, arcsLwd=2, arcsColor="#ffff00", arcsOpacity=0.15,
                                           ~^~
```


Good point, will fix that


I like this example 👍


Happy coincidence :)


The reason for the original patch was that it provided ~5% better
performance for GROMACS on *AMD* processors when we last tested (which was
~2 years ago), at a time when Intel didn't even have FMA. I have no real
problem with abandoning it for AMD since those old CPUs is no longer a very
important HPC platform.

Another (unrelated) challenge with FFTW is that the data layout combined
with AVX-256 load/store instruction limitations means it is frequently
faster to use the SSE2 codelets instead (because all the shuffling with the
256-bit loads killed performance). This will work fine if *both*
accelerations are enabled.

Unfortunately, our experience is that no distributions or system
administrators ever understood that, but simply thought that the AVX choice
must always be better than SSE. at least for the FFTW usage in GROMACS, the
performance difference can be substantial, so we even warn about SSE not
being enabled in versions we find installed on the system.

The issue Jeff describes is slightly different. It's always better to never
mix AVX and SSE instructions, but that would presently require FFTW to add
another set of kernels that are pretty much identical to the SSE ones, but
compiled with an AVX flag to generate VEX prefix instructions. That too
might help performance for some small transforms, but I suspect that too
will fall in Matteo's category of "too small improvement to be worth it" :-)

However, one important point: Some of these performance bottlenecks might
only show up when you actually call FFTW from another code that is
AVX-heavy. Just testing FFTW with its own pure benchmarks on the command
line will not lead to any SSE/AVX switches, and then you won't see the
penalty.

On Thu, Jan 19, 2017 at 7:10 PM, Jeff Hammond <notifications@github.com>
wrote:

> Thanks for the details. Sorry I didn't see the subsequent commit. Someone
> referred me to this commit directly.
>
> —
> You are receiving this because you were mentioned.
> Reply to this email directly, view it on GitHub
> <https://github.com/FFTW/fftw3/commit/579cec9a64cc177e673f006eb112d488be21b230#commitcomment-20542237>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AAFperl9dq6ndh4B4Yu4sdK3Iq44GgGzks5rT6cGgaJpZM4LoUmC>
> .
>

--
--
Erik Lindahl <erik.lindahl@gmail.com>
Professor of Biophysics, Dept. Biochemistry & Biophysics, Stockholm
University
Science for Life Laboratory, Box 1031, 17121 Solna, Sweden


ROFL!


here are the edits! github won't let me edit the message board directly

________________________________
From: Alex Pawlowski <notifications@github.com>
Sent: Thursday, January 19, 2017 1:35:34 PM
To: mycpp/my-clean-power
Cc: Halsted, Michelle Caroline; Mention
Subject: Re: [mycpp/my-clean-power] Cleaned up to flow better. (3196cf1)

hey @mhalsted<https://github.com/mhalsted> your edits didn't make the msg, can you look at this commit and make changes? thanks!!!

-
You are receiving this because you were mentioned.
Reply to this email directly, view it on GitHub<https://github.com/mycpp/my-clean-power/commit/3196cf19fc77ccb86ddb5a29f506d9940dac0c91#commitcomment-20542555>, or mute the thread<https://github.com/notifications/unsubscribe-auth/APkeo-nn7vGD0_9aoHj0p3dO72YAmo6dks5rT6z2gaJpZM4Loc5G>.


TeamCity JinnSports :: [Continuous]{Dev} - Build, test, approve [Build 64](http://localhost:8443/viewLog.html?buildId=66&buildTypeId=JinnSports_ContinuousDevBuildAndTest) outcome was **FAILURE**
Summary: StyleCop violations: 0 Build time: 00:06:10
### Failed tests
```
JinnSports.UnitTests.Services.dll: JinnSports.UnitTests.Services.EventsServiceTests.CountCheckEventsExist(1): <no details avaliable>

```


TeamCity Chorus :: chorus-win32-master Continuous [Build 2.6.351.62b9dded771ebd5373f3f8fc9467d368a20c03a5](http://build.palaso.org/viewLog.html?buildId=83096&buildTypeId=bt2) outcome was **SUCCESS**
Summary: Tests passed: 949, ignored: 50 Build time: 00:26:56


The following doc(s) have been deployed to the [2111legacy](https://2111legacy-static-docs.pantheonsite.io/docs) Multidev environment:
- [docs/changelog/2016/12](https://2111legacy-static-docs.pantheonsite.io/docs/changelog/2016/12)
- [docs/new-relic](https://2111legacy-static-docs.pantheonsite.io/docs/new-relic)
- [docs/guides/terminus](https://2111legacy-static-docs.pantheonsite.io/docs/guides/terminus)
- [docs/terminus/commands/compare](https://2111legacy-static-docs.pantheonsite.io/docs/terminus/commands/compare)
- [docs/terminus/get-started/legacy](https://2111legacy-static-docs.pantheonsite.io/docs/terminus/get-started/legacy)
- [docs/terminus/plugins](https://2111legacy-static-docs.pantheonsite.io/docs/terminus/plugins)
- [source/_views/terminuspage.html](https://github.com/pantheon-systems/documentation/commit/26f52d24c5e0ea65baf5c6c18db097e9d074b16e/source/_views/terminuspage.html)
- [source/docs/assets/css/main.css](https://github.com/pantheon-systems/documentation/commit/26f52d24c5e0ea65baf5c6c18db097e9d074b16e/source/docs/assets/css/main.css)
- [scripts/deploy-multidev.sh](https://github.com/pantheon-systems/documentation/commit/0e5806fd915f7130f5150a641ab4fa59faf37541/scripts/deploy-multidev.sh)


Merge


I think you should put in JavaDoc comments with
/**
*/
because I think they will show up when using a more advanced IDE.


TeamCity Chorus :: chorus-precise64-master Continuous [Build 2.6.721.62b9dded771ebd5373f3f8fc9467d368a20c03a5](http://build.palaso.org/viewLog.html?buildId=83110&buildTypeId=bt323) outcome was **SUCCESS**
Summary: Tests passed: 937, ignored: 56 Build time: 00:15:57


Hi, @JonasProgrammer ! Could you please make pull requests to the original project? Actually, you are 4 commits ahead of `master` branch in the original project `iryndin/jdbf`. Could you please make one pull request on each new commit you made in your fork ?


Added a jar file that can be downloaded to play the game