[inst/extdata/test_retinas/3hgbqg/main.r:4:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L4) *style:* **Lines should not be more than 80 characters.**
```r
  LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/3hgbqg/main.r:4:3:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L4) *style:* **Variable or function name should be snake_case.**
```r
  LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
  ^~~~~~~~~~
```
[inst/extdata/test_retinas/3hgbqg/main.r:5:3:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L5) *style:* **Variable or function name should be snake_case.**
```r
  RESOLUTION_var <- 500 #Plot width in pixels
  ^~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/3hgbqg/main.r:9:3:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L9) *style:* **Variable or function name should be snake_case.**
```r
  IJ <-data.frame(maxX = 1429,
  ^~
```
[inst/extdata/test_retinas/3hgbqg/main.r:9:6:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L9) *style:* **Put spaces around all infix operators.**
```r
  IJ <-data.frame(maxX = 1429,
     ^~~
```
[inst/extdata/test_retinas/3hgbqg/main.r:13:33:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                  deltaX = (1429-108)/21,
                               ~^~
```
[inst/extdata/test_retinas/3hgbqg/main.r:13:38:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                  deltaX = (1429-108)/21,
                                    ~^~
```
[inst/extdata/test_retinas/3hgbqg/main.r:14:32:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L14) *style:* **Put spaces around all infix operators.**
```r
                  deltaY = (989-85)/14)
                              ~^~
```
[inst/extdata/test_retinas/3hgbqg/main.r:14:36:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L14) *style:* **Put spaces around all infix operators.**
```r
                  deltaY = (989-85)/14)
                                  ~^~
```
[inst/extdata/test_retinas/3hgbqg/main.r:26:23:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L26) *style:* **Commas should never have a space before.**
```r
          height = 30 ,# height of the counting frame in microns
                     ~^
```
[inst/extdata/test_retinas/3hgbqg/main.r:26:24:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L26) *style:* **Commas should always have a space after.**
```r
          height = 30 ,# height of the counting frame in microns
                       ^
```
[inst/extdata/test_retinas/3hgbqg/main.r:31:30:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L31) *style:* **Commas should never have a space before.**
```r
          extrapolate = TRUE ,          #Predicts densities to the equator.
                            ~^
```
[inst/extdata/test_retinas/3hgbqg/main.r:33:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L33) *style:* **Lines should not be more than 80 characters.**
```r
          rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/3hgbqg/main.r:34:24:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L34) *style:* **Put spaces around all infix operators.**
```r
          plot_suppress=TRUE,
                      ~^~
```
[inst/extdata/test_retinas/3hgbqg/main.r:41:3:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/3hgbqg/main.r#L41) *warning:* **no visible global function definition for ‘retinaplot’**
```r
  retinaplot(my_retina)
  ^~~~~~~~~~
```
[inst/extdata/test_retinas/40oik5/main.r:2:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L2) *style:* **Lines should not be more than 80 characters.**
```r
LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/40oik5/main.r:2:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L2) *style:* **Variable or function name should be snake_case.**
```r
LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~
```
[inst/extdata/test_retinas/40oik5/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L3) *style:* **Variable or function name should be snake_case.**
```r
RESOLUTION_var <- 500 #Plot width in pixels
^~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/40oik5/main.r:5:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L5) *style:* **Variable or function name should be snake_case.**
```r
IJ <-data.frame(maxX = 944,
^~
```
[inst/extdata/test_retinas/40oik5/main.r:5:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L5) *style:* **Put spaces around all infix operators.**
```r
IJ <-data.frame(maxX = 944,
   ^~~
```
[inst/extdata/test_retinas/40oik5/main.r:21:15:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L21) *style:* **Commas should never have a space before.**
```r
  height = 25 ,# height of the counting frame in microns
             ~^
```
[inst/extdata/test_retinas/40oik5/main.r:21:16:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L21) *style:* **Commas should always have a space after.**
```r
  height = 25 ,# height of the counting frame in microns
               ^
```
[inst/extdata/test_retinas/40oik5/main.r:26:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L26) *style:* **Commas should never have a space before.**
```r
  extrapolate = TRUE ,          #Predicts densities to the equator.
                    ~^
```
[inst/extdata/test_retinas/40oik5/main.r:28:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L28) *style:* **Lines should not be more than 80 characters.**
```r
  rotation_ccw = 0, # when set to -90 degrees, the rotation is unaltered from the measured orientation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/40oik5/main.r:29:16:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L29) *style:* **Put spaces around all infix operators.**
```r
  plot_suppress=TRUE,
              ~^~
```
[inst/extdata/test_retinas/40oik5/main.r:34:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L34) *warning:* **no visible global function definition for ‘retinaplot’**
```r
retinaplot(my_retina, rotation=115, col_breaks_source = c(0, 35000))
^~~~~~~~~~
```
[inst/extdata/test_retinas/40oik5/main.r:34:31:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/40oik5/main.r#L34) *style:* **Put spaces around all infix operators.**
```r
retinaplot(my_retina, rotation=115, col_breaks_source = c(0, 35000))
                             ~^~
```
[inst/extdata/test_retinas/8pm223/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L3) *style:* **Lines should not be more than 80 characters.**
```r
LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/8pm223/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L3) *style:* **Variable or function name should be snake_case.**
```r
LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~
```
[inst/extdata/test_retinas/8pm223/main.r:4:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L4) *style:* **Variable or function name should be snake_case.**
```r
RESOLUTION_var <- 500 #Plot width in pixels
^~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/8pm223/main.r:6:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L6) *style:* **Variable or function name should be snake_case.**
```r
IJ <-data.frame(maxX = 981,
^~
```
[inst/extdata/test_retinas/8pm223/main.r:6:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L6) *style:* **Put spaces around all infix operators.**
```r
IJ <-data.frame(maxX = 981,
   ^~~
```
[inst/extdata/test_retinas/8pm223/main.r:22:15:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L22) *style:* **Commas should never have a space before.**
```r
  height = 25 ,# height of the counting frame in microns
             ~^
```
[inst/extdata/test_retinas/8pm223/main.r:22:16:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L22) *style:* **Commas should always have a space after.**
```r
  height = 25 ,# height of the counting frame in microns
               ^
```
[inst/extdata/test_retinas/8pm223/main.r:27:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L27) *style:* **Commas should never have a space before.**
```r
  extrapolate = TRUE ,          #Predicts densities to the equator.
                    ~^
```
[inst/extdata/test_retinas/8pm223/main.r:29:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L29) *style:* **Lines should not be more than 80 characters.**
```r
  rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/8pm223/main.r:30:16:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L30) *style:* **Put spaces around all infix operators.**
```r
  plot_suppress=TRUE,
              ~^~
```
[inst/extdata/test_retinas/8pm223/main.r:34:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/8pm223/main.r#L34) *warning:* **no visible global function definition for ‘retinaplot’**
```r
retinaplot(my_retina)
^~~~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L3) *style:* **Variable or function name should be snake_case.**
```r
LAMBDA_var <- 0.1 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:4:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L4) *style:* **Variable or function name should be snake_case.**
```r
RESOLUTION_var <- 500 #Plot width in pixels
^~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:8:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L8) *style:* **Variable or function name should be snake_case.**
```r
IJ <-data.frame(maxX = 1210,
^~
```
[inst/extdata/test_retinas/bjii4t/main.r:8:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L8) *style:* **Put spaces around all infix operators.**
```r
IJ <-data.frame(maxX = 1210,
   ^~~
```
[inst/extdata/test_retinas/bjii4t/main.r:12:31:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L12) *style:* **Put spaces around all infix operators.**
```r
                deltaX = (1210-72)/20,
                             ~^~
```
[inst/extdata/test_retinas/bjii4t/main.r:12:35:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L12) *style:* **Put spaces around all infix operators.**
```r
                deltaX = (1210-72)/20,
                                 ~^~
```
[inst/extdata/test_retinas/bjii4t/main.r:13:30:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                deltaY = (928-46)/15)
                            ~^~
```
[inst/extdata/test_retinas/bjii4t/main.r:13:34:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                deltaY = (928-46)/15)
                                ~^~
```
[inst/extdata/test_retinas/bjii4t/main.r:26:21:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L26) *style:* **Commas should never have a space before.**
```r
        height = 45 ,# height of the counting frame in microns
                   ~^
```
[inst/extdata/test_retinas/bjii4t/main.r:26:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L26) *style:* **Commas should always have a space after.**
```r
        height = 45 ,# height of the counting frame in microns
                     ^
```
[inst/extdata/test_retinas/bjii4t/main.r:31:28:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L31) *style:* **Commas should never have a space before.**
```r
        extrapolate = TRUE ,          #Predicts densities to the equator.
                          ~^
```
[inst/extdata/test_retinas/bjii4t/main.r:33:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L33) *style:* **Lines should not be more than 80 characters.**
```r
        rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:34:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L34) *style:* **Put spaces around all infix operators.**
```r
        plot_suppress=TRUE,
                    ~^~
```
[inst/extdata/test_retinas/bjii4t/main.r:41:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L41) *warning:* **no visible global function definition for ‘retinaplot’**
```r
retinaplot(my_retina)
^~~~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:43:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L43) *style:* **Variable or function name should be snake_case.**
```r
findPeak <- function(my_retina){
^~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:44:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L44) *style:* **Use spaces to indent, not tabs.**
```r
	coord <- my_retina$trimmed_data
^
```
[inst/extdata/test_retinas/bjii4t/main.r:45:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L45) *style:* **Use spaces to indent, not tabs.**
```r
	peak_temp <- coord[which.max(coord$z),]
^
```
[inst/extdata/test_retinas/bjii4t/main.r:45:40:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L45) *style:* **Commas should always have a space after.**
```r
	peak_temp <- coord[which.max(coord$z),]
                                       ^
```
[inst/extdata/test_retinas/bjii4t/main.r:46:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L46) *style:* **Lines should not be more than 80 characters.**
```r
	peak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:46:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L46) *style:* **Use spaces to indent, not tabs.**
```r
	peak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])
^
```
[inst/extdata/test_retinas/bjii4t/main.r:46:29:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L46) *style:* **Put spaces around all infix operators.**
```r
	peak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])
                           ~^~
```
[inst/extdata/test_retinas/bjii4t/main.r:46:45:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L46) *style:* **Commas should always have a space after.**
```r
	peak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])
                                            ^
```
[inst/extdata/test_retinas/bjii4t/main.r:46:59:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L46) *style:* **Put spaces around all infix operators.**
```r
	peak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])
                                                         ~^~
```
[inst/extdata/test_retinas/bjii4t/main.r:46:71:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L46) *style:* **Commas should always have a space after.**
```r
	peak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])
                                                                      ^
```
[inst/extdata/test_retinas/bjii4t/main.r:46:79:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L46) *style:* **Put spaces around all infix operators.**
```r
	peak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])
                                                                             ~^~
```
[inst/extdata/test_retinas/bjii4t/main.r:46:91:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L46) *style:* **Commas should always have a space after.**
```r
	peak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])
                                                                                ^
```
[inst/extdata/test_retinas/bjii4t/main.r:47:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L47) *style:* **Use spaces to indent, not tabs.**
```r
	return(peak)
^
```
[inst/extdata/test_retinas/bjii4t/main.r:48:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L48) *style:* **Use spaces to indent, not tabs.**
```r
	}
^
```
[inst/extdata/test_retinas/bjii4t/main.r:53:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L53) *style:* **Commented code should be removed.**
```r
  #lambda=0.001
   ^~~~~~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:54:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L54) *style:* **Commented code should be removed.**
```r
  #polynomial_m=2
   ^~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/bjii4t/main.r:55:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/bjii4t/main.r#L55) *style:* **Commented code should be removed.**
```r
  #rotation=30
   ^~~~~~~~~~~
```
[inst/extdata/test_retinas/gv3igs/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L3) *style:* **Lines should not be more than 80 characters.**
```r
LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/gv3igs/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L3) *style:* **Variable or function name should be snake_case.**
```r
LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~
```
[inst/extdata/test_retinas/gv3igs/main.r:4:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L4) *style:* **Variable or function name should be snake_case.**
```r
RESOLUTION_var <- 500 #Plot width in pixels
^~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/gv3igs/main.r:8:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L8) *style:* **Variable or function name should be snake_case.**
```r
IJ <-data.frame(maxX = 1084,
^~
```
[inst/extdata/test_retinas/gv3igs/main.r:8:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L8) *style:* **Put spaces around all infix operators.**
```r
IJ <-data.frame(maxX = 1084,
   ^~~
```
[inst/extdata/test_retinas/gv3igs/main.r:12:31:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L12) *style:* **Put spaces around all infix operators.**
```r
                deltaX = (1084-100)/21,
                             ~^~
```
[inst/extdata/test_retinas/gv3igs/main.r:12:36:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L12) *style:* **Put spaces around all infix operators.**
```r
                deltaX = (1084-100)/21,
                                  ~^~
```
[inst/extdata/test_retinas/gv3igs/main.r:13:31:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                deltaY = (1022-36)/14)
                             ~^~
```
[inst/extdata/test_retinas/gv3igs/main.r:13:35:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                deltaY = (1022-36)/14)
                                 ~^~
```
[inst/extdata/test_retinas/gv3igs/main.r:26:21:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L26) *style:* **Commas should never have a space before.**
```r
        height = 35 ,# height of the counting frame in microns
                   ~^
```
[inst/extdata/test_retinas/gv3igs/main.r:26:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L26) *style:* **Commas should always have a space after.**
```r
        height = 35 ,# height of the counting frame in microns
                     ^
```
[inst/extdata/test_retinas/gv3igs/main.r:31:28:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L31) *style:* **Commas should never have a space before.**
```r
        extrapolate = TRUE ,          #Predicts densities to the equator.
                          ~^
```
[inst/extdata/test_retinas/gv3igs/main.r:33:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L33) *style:* **Lines should not be more than 80 characters.**
```r
        rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/gv3igs/main.r:34:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L34) *style:* **Put spaces around all infix operators.**
```r
        plot_suppress=TRUE,
                    ~^~
```
[inst/extdata/test_retinas/gv3igs/main.r:41:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L41) *warning:* **no visible global function definition for ‘retinaplot’**
```r
retinaplot(my_retina,rotation=270)
^~~~~~~~~~
```
[inst/extdata/test_retinas/gv3igs/main.r:41:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L41) *style:* **Commas should always have a space after.**
```r
retinaplot(my_retina,rotation=270)
                     ^
```
[inst/extdata/test_retinas/gv3igs/main.r:41:30:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/gv3igs/main.r#L41) *style:* **Put spaces around all infix operators.**
```r
retinaplot(my_retina,rotation=270)
                            ~^~
```
[inst/extdata/test_retinas/jhvbwt/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L3) *style:* **Lines should not be more than 80 characters.**
```r
LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/jhvbwt/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L3) *style:* **Variable or function name should be snake_case.**
```r
LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~
```
[inst/extdata/test_retinas/jhvbwt/main.r:4:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L4) *style:* **Variable or function name should be snake_case.**
```r
RESOLUTION_var <- 500 #Plot width in pixels
^~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/jhvbwt/main.r:8:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L8) *style:* **Variable or function name should be snake_case.**
```r
IJ <-data.frame(maxX = 1189,
^~
```
[inst/extdata/test_retinas/jhvbwt/main.r:8:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L8) *style:* **Put spaces around all infix operators.**
```r
IJ <-data.frame(maxX = 1189,
   ^~~
```
[inst/extdata/test_retinas/jhvbwt/main.r:12:31:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L12) *style:* **Put spaces around all infix operators.**
```r
                deltaX = (1189-26)/19,
                             ~^~
```
[inst/extdata/test_retinas/jhvbwt/main.r:12:35:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L12) *style:* **Put spaces around all infix operators.**
```r
                deltaX = (1189-26)/19,
                                 ~^~
```
[inst/extdata/test_retinas/jhvbwt/main.r:13:30:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                deltaY = (986-81)/15)
                            ~^~
```
[inst/extdata/test_retinas/jhvbwt/main.r:13:34:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                deltaY = (986-81)/15)
                                ~^~
```
[inst/extdata/test_retinas/jhvbwt/main.r:26:21:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L26) *style:* **Commas should never have a space before.**
```r
        height = 25 ,# height of the counting frame in microns
                   ~^
```
[inst/extdata/test_retinas/jhvbwt/main.r:26:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L26) *style:* **Commas should always have a space after.**
```r
        height = 25 ,# height of the counting frame in microns
                     ^
```
[inst/extdata/test_retinas/jhvbwt/main.r:31:28:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L31) *style:* **Commas should never have a space before.**
```r
        extrapolate = TRUE ,          #Predicts densities to the equator.
                          ~^
```
[inst/extdata/test_retinas/jhvbwt/main.r:33:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L33) *style:* **Lines should not be more than 80 characters.**
```r
        rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/jhvbwt/main.r:34:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L34) *style:* **Put spaces around all infix operators.**
```r
        plot_suppress=TRUE,
                    ~^~
```
[inst/extdata/test_retinas/jhvbwt/main.r:41:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/jhvbwt/main.r#L41) *warning:* **no visible global function definition for ‘retinaplot’**
```r
retinaplot(my_retina)
^~~~~~~~~~
```
[inst/extdata/test_retinas/raxp91/main.r:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L3) *style:* **Variable or function name should be snake_case.**
```r
LAMBDA_var <- 0.1 #Thin plate spline smoothing. Lambda=0 would be interpolation.
^~~~~~~~~~
```
[inst/extdata/test_retinas/raxp91/main.r:4:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L4) *style:* **Variable or function name should be snake_case.**
```r
RESOLUTION_var <- 500 #Plot width in pixels
^~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/raxp91/main.r:8:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L8) *style:* **Variable or function name should be snake_case.**
```r
IJ <-data.frame(maxX = 1016,
^~
```
[inst/extdata/test_retinas/raxp91/main.r:8:4:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L8) *style:* **Put spaces around all infix operators.**
```r
IJ <-data.frame(maxX = 1016,
   ^~~
```
[inst/extdata/test_retinas/raxp91/main.r:12:31:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L12) *style:* **Put spaces around all infix operators.**
```r
                deltaX = (1016-25)/18,
                             ~^~
```
[inst/extdata/test_retinas/raxp91/main.r:12:35:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L12) *style:* **Put spaces around all infix operators.**
```r
                deltaX = (1016-25)/18,
                                 ~^~
```
[inst/extdata/test_retinas/raxp91/main.r:13:30:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                deltaY = (923-48)/17)
                            ~^~
```
[inst/extdata/test_retinas/raxp91/main.r:13:34:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L13) *style:* **Put spaces around all infix operators.**
```r
                deltaY = (923-48)/17)
                                ~^~
```
[inst/extdata/test_retinas/raxp91/main.r:26:21:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L26) *style:* **Commas should never have a space before.**
```r
        height = 45 ,# height of the counting frame in microns
                   ~^
```
[inst/extdata/test_retinas/raxp91/main.r:26:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L26) *style:* **Commas should always have a space after.**
```r
        height = 45 ,# height of the counting frame in microns
                     ^
```
[inst/extdata/test_retinas/raxp91/main.r:31:28:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L31) *style:* **Commas should never have a space before.**
```r
        extrapolate = TRUE ,          #Predicts densities to the equator.
                          ~^
```
[inst/extdata/test_retinas/raxp91/main.r:33:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L33) *style:* **Lines should not be more than 80 characters.**
```r
        rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/extdata/test_retinas/raxp91/main.r:34:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L34) *style:* **Put spaces around all infix operators.**
```r
        plot_suppress=TRUE,
                    ~^~
```
[inst/extdata/test_retinas/raxp91/main.r:41:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L41) *warning:* **no visible global function definition for ‘retinaplot’**
```r
retinaplot(my_retina, lambda=0.001, polynomial_m=	2, rotation=30)
^~~~~~~~~~
```
[inst/extdata/test_retinas/raxp91/main.r:41:29:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L41) *style:* **Put spaces around all infix operators.**
```r
retinaplot(my_retina, lambda=0.001, polynomial_m=	2, rotation=30)
                           ~^~
```
[inst/extdata/test_retinas/raxp91/main.r:41:49:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L41) *style:* **Put spaces around all infix operators.**
```r
retinaplot(my_retina, lambda=0.001, polynomial_m=	2, rotation=30)
                                               ~^
```
[inst/extdata/test_retinas/raxp91/main.r:41:62:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/inst/extdata/test_retinas/raxp91/main.r#L41) *style:* **Put spaces around all infix operators.**
```r
retinaplot(my_retina, lambda=0.001, polynomial_m=	2, rotation=30)
                                                            ~^~
```
[R/composite.R:2:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
##' @param retina_list A list containing retina objects, with names(retina_list) all defined.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:6:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
##' @param plot Logical, by default false, but when true it will output the plot where the first element in the list is fixed.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:7:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
##' @param ... Arguments passed from other functions. You can access the thin plate spline interpolator here.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:8:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
##' @return composite_mat Matrix of the composite retina, where the first element of the retina list is fixed.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:11:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L11) *style:* **Lines should not be more than 80 characters.**
```r
vector_retina_composite <- function(retina_list, spin_spatial_res = 128, plot_spatial_res = 512,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:11:97:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
vector_retina_composite <- function(retina_list, spin_spatial_res = 128, plot_spatial_res = 512,
                                                                                ^
```
[R/composite.R:14:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L14) *style:* **Lines should not be more than 80 characters.**
```r
        rotation_degree_list <- compute_rotation_matrix(retina_list, spatial_res = spin_spatial_res,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:14:101:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L14) *style:* **Trailing whitespace is superfluous.**
```r
        rotation_degree_list <- compute_rotation_matrix(retina_list, spatial_res = spin_spatial_res,
                                                                                ^
```
[R/composite.R:19:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
    sum <- map_vec_sum(retina_list, rotation_degree_list, spatial_res = plot_spatial_res)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:19:12:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L19) *warning:* **no visible global function definition for ‘map_vec_sum’**
```r
    sum <- map_vec_sum(retina_list, rotation_degree_list, spatial_res = plot_spatial_res)
           ^~~~~~~~~~~
```
[R/composite.R:20:25:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L20) *style:* **Put spaces around all infix operators.**
```r
    composite_mat <- sum/n  #get the average
                       ~^~
```
[R/composite.R:21:14:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L21) *style:* **Trailing whitespace is superfluous.**
```r
    if (plot)
             ^
```
[R/composite.R:22:9:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L22) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
        {
        ^
```
[R/composite.R:25:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
            plot_from_MAT(MATRIX = composite_mat, extrapolate = TRUE, spatial_res = plot_spatial_res,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:25:102:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L25) *style:* **Trailing whitespace is superfluous.**
```r
            plot_from_MAT(MATRIX = composite_mat, extrapolate = TRUE, spatial_res = plot_spatial_res,
                                                                                ^
```
[R/composite.R:26:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L26) *style:* **Lines should not be more than 80 characters.**
```r
                col_levels = 50, contour_levels = 20, contour_breaks_source = c(min(composite_mat),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:26:100:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L26) *style:* **Trailing whitespace is superfluous.**
```r
                col_levels = 50, contour_levels = 20, contour_breaks_source = c(min(composite_mat),
                                                                                ^
```
[R/composite.R:27:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L27) *style:* **Lines should not be more than 80 characters.**
```r
                  max(composite_mat)), col_breaks_source = c(min(composite_mat),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:27:81:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L27) *style:* **Trailing whitespace is superfluous.**
```r
                  max(composite_mat)), col_breaks_source = c(min(composite_mat),
                                                                                ^
```
[R/composite.R:28:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L28) *style:* **Lines should not be more than 80 characters.**
```r
                  max(composite_mat)), z1 = Pmol_753$azimuthal_data.datapoints[[1]]$z,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:28:87:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L28) *style:* **Trailing whitespace is superfluous.**
```r
                  max(composite_mat)), z1 = Pmol_753$azimuthal_data.datapoints[[1]]$z,
                                                                                ^
```
[R/composite.R:35:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L35) *style:* **Lines should not be more than 80 characters.**
```r
##' @param retina_list A list containing retina objects, with names(retina_list) all defined.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:36:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
##' @param rotation_indices Each value in this vector will correspond to the amount of rotation applied to each retina in the list.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:37:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L37) *style:* **Lines should not be more than 80 characters.**
```r
##' @param ... Arguments passed from other functions. You can access the thin plate spline interpolator here.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:38:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L38) *style:* **Lines should not be more than 80 characters.**
```r
##' @return sum_mat The sum of all retina objects in the list, with respect to the rotation indices.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:41:16:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L41) *warning:* **no visible global function definition for ‘mat_from_ret_obj’**
```r
    sum_mat <- mat_from_ret_obj(retina_list[[1]], rotation = 0, ...)
               ^~~~~~~~~~~~~~~~
```
[R/composite.R:44:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L44) *style:* **Lines should not be more than 80 characters.**
```r
        sum_mat <- sum_mat + mat_from_ret_obj(retina_list[[i]], rotation_indices[i],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:44:85:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L44) *style:* **Trailing whitespace is superfluous.**
```r
        sum_mat <- sum_mat + mat_from_ret_obj(retina_list[[i]], rotation_indices[i],
                                                                                ^
```
[R/matrix_retobj.R:3:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L3) *style:* **Lines should not be more than 80 characters.**
```r
##' You can decide how much to rotate the retina before returning the matrix. You can also pass arguments to the polar plotter.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:6:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
##' @param n the number by which to divide the matrix by. Useful when generating partial averages.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:7:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
##' @param reflect logical, by default it is TRUE, in order to view the retina from outside the eye (rather than from within.)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:12:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L12) *style:* **Lines should not be more than 80 characters.**
```r
mat_from_ret_obj <- function(retina_object, rotation = 0, n = 1, reflect = TRUE,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:12:81:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
mat_from_ret_obj <- function(retina_object, rotation = 0, n = 1, reflect = TRUE,
                                                                                ^
```
[R/matrix_retobj.R:17:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L17) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/matrix_retobj.R:20:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L20) *style:* **Lines should not be more than 80 characters.**
```r
    az <- mapproject(x = retina_object$trimmed_data[, 2], retina_object$trimmed_data[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:20:87:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L20) *style:* **Trailing whitespace is superfluous.**
```r
    az <- mapproject(x = retina_object$trimmed_data[, 2], retina_object$trimmed_data[,
                                                                                ^
```
[R/matrix_retobj.R:25:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L25) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/matrix_retobj.R:27:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L27) *style:* **Lines should not be more than 80 characters.**
```r
    map2fit <- fit_plot_azimuthal(x2, y2, z2, plot_suppress = TRUE, extrapolate = TRUE,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:27:88:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L27) *style:* **Trailing whitespace is superfluous.**
```r
    map2fit <- fit_plot_azimuthal(x2, y2, z2, plot_suppress = TRUE, extrapolate = TRUE,
                                                                                ^
```
[R/matrix_retobj.R:28:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L28) *style:* **Lines should not be more than 80 characters.**
```r
        outer.radius = pi/2, falciform_coords = retina_object$azimuthal_data.falciform[[1]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:28:26:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L28) *style:* **Put spaces around all infix operators.**
```r
        outer.radius = pi/2, falciform_coords = retina_object$azimuthal_data.falciform[[1]],
                        ~^~
```
[R/matrix_retobj.R:28:93:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L28) *style:* **Trailing whitespace is superfluous.**
```r
        outer.radius = pi/2, falciform_coords = retina_object$azimuthal_data.falciform[[1]],
                                                                                ^
```
[R/matrix_retobj.R:30:5:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L30) *style:* **Variable or function name should be snake_case.**
```r
    MAT <- map2fit[[2]]$z
    ^~~
```
[R/matrix_retobj.R:32:15:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L32) *style:* **Put spaces around all infix operators.**
```r
    return(MAT/n)
             ~^~
```
[R/plotting_functions.R:4:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L4) *style:* **Lines should not be more than 80 characters.**
```r
##' Shows a visualization of the outline, as well as the location of each datapoint so the user can identify where the tears are.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting_functions.R:7:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
##' @param path_to_retina_data_folder The path to the folder that contains the outline.roi file.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting_functions.R:8:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
##' @return roi_coordinates XY vals of pixel coordinates of the outline points, in order.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting_functions.R:11:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L11) *style:* **Lines should not be more than 80 characters.**
```r
	roi_object <- RImageJROI::read.ijroi(file.path(path_to_retina_data_folder, "outline.roi"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting_functions.R:11:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L11) *style:* **Use spaces to indent, not tabs.**
```r
	roi_object <- RImageJROI::read.ijroi(file.path(path_to_retina_data_folder, "outline.roi"))
^
```
[R/plotting_functions.R:14:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L14) *style:* **Use spaces to indent, not tabs.**
```r
		## ImageJ ROI format plots has the coordinate (0, 0) in the top
^~
```
[R/plotting_functions.R:15:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L15) *style:* **Use spaces to indent, not tabs.**
```r
		  ## left.  We have the coordinate (0, 0) in the bottom left. We need
^~
```
[R/plotting_functions.R:16:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L16) *style:* **Use spaces to indent, not tabs.**
```r
		  ## to transform P so that the outline appears in the correct
^~
```
[R/plotting_functions.R:17:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L17) *style:* **Use spaces to indent, not tabs.**
```r
		  ## orientation.
^~
```
[R/plotting_functions.R:18:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L18) *style:* **Use spaces to indent, not tabs.**
```r
			im <- NULL
^~~
```
[R/plotting_functions.R:19:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L19) *style:* **Use spaces to indent, not tabs.**
```r
		  roi_XY_coords <- roi_object$coords
^~
```
[R/plotting_functions.R:19:5:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L19) *style:* **Variable or function name should be snake_case.**
```r
		  roi_XY_coords <- roi_object$coords
    ^~~~~~~~~~~~~
```
[R/plotting_functions.R:20:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L20) *style:* **Use spaces to indent, not tabs.**
```r
		  offset <- ifelse(is.null(im), max(roi_XY_coords[,2]), nrow(im))
^~
```
[R/plotting_functions.R:20:54:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L20) *style:* **Commas should always have a space after.**
```r
		  offset <- ifelse(is.null(im), max(roi_XY_coords[,2]), nrow(im))
                                                     ^
```
[R/plotting_functions.R:21:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L21) *style:* **Use spaces to indent, not tabs.**
```r
		  roi_XY_coords[,2] <- offset - roi_XY_coords[,2]
^~
```
[R/plotting_functions.R:21:20:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L21) *style:* **Commas should always have a space after.**
```r
		  roi_XY_coords[,2] <- offset - roi_XY_coords[,2]
                   ^
```
[R/plotting_functions.R:21:50:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L21) *style:* **Commas should always have a space after.**
```r
		  roi_XY_coords[,2] <- offset - roi_XY_coords[,2]
                                                 ^
```
[R/plotting_functions.R:24:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Lines should not be more than 80 characters.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting_functions.R:24:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Use spaces to indent, not tabs.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
^
```
[R/plotting_functions.R:24:26:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Put spaces around all infix operators.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
                        ~^~
```
[R/plotting_functions.R:24:35:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Put spaces around all infix operators.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
                                 ~^~
```
[R/plotting_functions.R:24:36:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Only use double-quotes.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
                                   ^~~~~~~~~
```
[R/plotting_functions.R:24:50:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Put spaces around all infix operators.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
                                                ~^~
```
[R/plotting_functions.R:24:58:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Put spaces around all infix operators.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
                                                        ~^~
```
[R/plotting_functions.R:24:59:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Only use double-quotes.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
                                                          ^~~~~~~~~~
```
[R/plotting_functions.R:24:75:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Put spaces around all infix operators.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
                                                                         ~^~
```
[R/plotting_functions.R:24:76:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Only use double-quotes.**
```r
	plot(roi_XY_coords, type="l", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');
                                                                           ^~~~~~~~~~
```
[R/plotting_functions.R:25:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
	text(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting_functions.R:25:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L25) *style:* **Use spaces to indent, not tabs.**
```r
	text(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)
^
```
[R/plotting_functions.R:25:22:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L25) *style:* **Commas should always have a space after.**
```r
	text(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)
                     ^
```
[R/plotting_functions.R:25:25:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L25) *style:* **Commas should always have a space after.**
```r
	text(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)
                        ^
```
[R/plotting_functions.R:25:40:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L25) *style:* **Commas should always have a space after.**
```r
	text(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)
                                       ^
```
[R/plotting_functions.R:25:50:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L25) *style:* **Put spaces around all infix operators.**
```r
	text(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)
                                                ~^~
```
[R/plotting_functions.R:25:75:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L25) *style:* **Commas should always have a space after.**
```r
	text(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)
                                                                          ^
```
[R/plotting_functions.R:25:83:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L25) *style:* **Put spaces around all infix operators.**
```r
	text(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)
                                                                                ~^~
```
[R/plotting_functions.R:26:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L26) *style:* **Lines should not be more than 80 characters.**
```r
 	message('If you are getting this message, you are using a special feature. Contact me at brian.cohn@usc.edu and I will happily teach you how to use it.')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting_functions.R:26:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L26) *style:* **Use spaces to indent, not tabs.**
```r
 	message('If you are getting this message, you are using a special feature. Contact me at brian.cohn@usc.edu and I will happily teach you how to use it.')
^~
```
[R/plotting_functions.R:26:11:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L26) *style:* **Only use double-quotes.**
```r
 	message('If you are getting this message, you are using a special feature. Contact me at brian.cohn@usc.edu and I will happily teach you how to use it.')
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```