[R/composite.R:2:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L2) *style:* **Use two spaces to indent, never tabs.**
```r
	sum_mat <- mat_from_ret_obj(retina_list[[1]], rotation=0, ...)
^
```
[R/composite.R:2:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L2) *style:* **Commented code should be removed.**
```r
##' @param retina_list A list containing retina objects, with names(retina_list) all defined.
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:2:3:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L2) *style:* **Use two spaces to indent, never tabs.**
```r
  									spin_spatial_res=128,
  ^~~~~~~~~
```
[R/composite.R:3:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L3) *style:* **Use two spaces to indent, never tabs.**
```r
	n <- length(retina_list)
^
```
[R/composite.R:3:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L3) *style:* **Commented code should be removed.**
```r
##' @param spin_spatial_res Resolution passed to the spin-optimization.
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:3:3:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L3) *style:* **Use two spaces to indent, never tabs.**
```r
  									plot_spatial_res=512,
  ^~~~~~~~~
```
[R/composite.R:4:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L4) *style:* **Use two spaces to indent, never tabs.**
```r
	for (i in 2:n) {
^
```
[R/composite.R:4:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L4) *style:* **Commented code should be removed.**
```r
##' @param theta_interval number of degrees to traverse in spin-optimization
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:4:3:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L4) *style:* **Use two spaces to indent, never tabs.**
```r
  									theta_interval=10,
  ^~~~~~~~~
```
[R/composite.R:5:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L5) *style:* **Use two spaces to indent, never tabs.**
```r
		sum_mat <- sum_mat + mat_from_ret_obj(retina_list[[i]],
^~
```
[R/composite.R:5:3:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L5) *style:* **Use two spaces to indent, never tabs.**
```r
  									plot=FALSE,
  ^~~~~~~~~
```
[R/composite.R:6:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L6) *style:* **Use two spaces to indent, never tabs.**
```r
											  rotation_indices[i],
^~~~~~~~~~~
```
[R/composite.R:7:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L7) *style:* **Use two spaces to indent, never tabs.**
```r
											  ...)
^~~~~~~~~~~
```
[R/composite.R:8:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L8) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/composite.R:9:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
	rotation_degree_list <- compute_rotation_matrix( retina_list,
^
```
[R/composite.R:9:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
	return(sum_mat)
^
```
[R/composite.R:9:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L9) *style:* **Commented code should be removed.**
```r
##' @author Brian Cohn \email{brian_cohn14@@pitzer.edu} and Lars Schmitz
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:10:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L10) *style:* **Use two spaces to indent, never tabs.**
```r
												spatial_res=spin_spatial_res,
^~~~~~~~~~~~
```
[R/composite.R:11:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L11) *style:* **Use two spaces to indent, never tabs.**
```r
												theta_interval=theta_interval, ...)[1,]
^~~~~~~~~~~~
```
[R/composite.R:14:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
	n <- length(retina_list)
^
```
[R/composite.R:15:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	sum <- map_vec_sum(retina_list, rotation_degree_list, spatial_res=plot_spatial_res)
^
```
[R/composite.R:16:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
	composite_mat <- sum/n #get the average
^
```
[R/composite.R:17:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
	if (plot){
^
```
[R/composite.R:17:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L17) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
{
^
```
[R/composite.R:18:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L18) *style:* **Use two spaces to indent, never tabs.**
```r
		message('Plotting')
^~
```
[R/composite.R:18:32:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L18) *style:* **Put spaces around all infix operators.**
```r
if (class(rotation_degree_list)!="matrix") {
                              ~^~~
```
[R/composite.R:19:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
		dev.new()
^~
```
[R/composite.R:19:30:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L19) *style:* **Put spaces around all infix operators.**
```r
	rotation_degree_list <- compute_rotation_matrix( retina_list,
                            ~^~~
```
[R/composite.R:20:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L20) *style:* **Use two spaces to indent, never tabs.**
```r
		plot_from_MAT(  MATRIX=composite_mat,
^~
```
[R/composite.R:21:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L21) *style:* **Use two spaces to indent, never tabs.**
```r
						extrapolate=TRUE,
^~~~~~
```
[R/composite.R:22:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L22) *style:* **Use two spaces to indent, never tabs.**
```r
						spatial_res = plot_spatial_res,
^~~~~~
```
[R/composite.R:22:9:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L22) *style:* **Only use double-quotes.**
```r
message('No coordinates submitted, spin optimization chosen')
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:23:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L23) *style:* **Use two spaces to indent, never tabs.**
```r
						col_levels=50,
^~~~~~
```
[R/composite.R:24:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L24) *style:* **Use two spaces to indent, never tabs.**
```r
						contour_levels=20,
^~~~~~
```
[R/composite.R:24:11:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L24) *style:* **Put spaces around all infix operators.**
```r
	n <- length(retina_list)
         ~^~~
```
[R/composite.R:25:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L25) *style:* **Use two spaces to indent, never tabs.**
```r
						contour_breaks_source =  c(min(composite_mat),max(composite_mat)),
^~~~~~
```
[R/composite.R:25:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L25) *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:25:9:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L25) *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:25:13:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L25) *style:* **Put spaces around all infix operators.**
```r
	sum <- map_vec_sum(retina_list, rotation_degree_list, spatial_res=plot_spatial_res)
           ~^~~
```
[R/composite.R:25:74:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L25) *style:* **Put spaces around all infix operators.**
```r
	sum <- map_vec_sum(retina_list, rotation_degree_list, spatial_res=plot_spatial_res)
                                                                        ~^~
```
[R/composite.R:26:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L26) *style:* **Use two spaces to indent, never tabs.**
```r
						col_breaks_source     =  c(min(composite_mat),max(composite_mat)),
^~~~~~
```
[R/composite.R:26:23:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L26) *style:* **Put spaces around all infix operators.**
```r
	composite_mat <- sum/n #get the average
                     ~^~~
```
[R/composite.R:26:29:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L26) *style:* **Put spaces around all infix operators.**
```r
	composite_mat <- sum/n #get the average
                           ~^~
```
[R/composite.R:27:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L27) *style:* **Use two spaces to indent, never tabs.**
```r
						z1 = Pmol_753$azimuthal_data.datapoints[[1]]$z,
^~~~~~
```
[R/composite.R:27:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L27) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	if (plot){
           ^
```
[R/composite.R:28:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L28) *style:* **Use two spaces to indent, never tabs.**
```r
						z2 = Pmol_752$azimuthal_data.datapoints[[1]]$z)
^~~~~~
```
[R/composite.R:28:25:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L28) *style:* **Only use double-quotes.**
```r
		message('Plotting')
                        ^~~~~~~~~~
```
[R/composite.R:29:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L29) *style:* **Use two spaces to indent, never tabs.**
```r
	} #end plotif
^
```
[R/composite.R:30:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L30) *style:* **Use two spaces to indent, never tabs.**
```r
	return (composite_mat)
^
```
[R/composite.R:30:39:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L30) *style:* **Put spaces around all infix operators.**
```r
		plot_from_MAT(  MATRIX=composite_mat,
                                     ~^~
```
[R/composite.R:31:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L31) *style:* **Trailing whitespace is superfluous.**
```r
						extrapolate=TRUE,
                       ^
```
[R/composite.R:35:71:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L35) *style:* **Put spaces around all infix operators.**
```r
						contour_breaks_source =  c(min(composite_mat),max(composite_mat)),
                                                                     ~^~
```
[R/composite.R:36:71:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L36) *style:* **Put spaces around all infix operators.**
```r
						col_breaks_source     =  c(min(composite_mat),max(composite_mat)),
                                                                     ~^~
```
[R/composite.R:37:52:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L37) *style:* **Put spaces around all infix operators.**
```r
						z1 = Pmol_753$azimuthal_data.datapoints[[1]]$z,
                                                  ~^~
```
[R/composite.R:38:52:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L38) *style:* **Put spaces around all infix operators.**
```r
						z2 = Pmol_752$azimuthal_data.datapoints[[1]]$z)
                                                  ~^~
```
[R/composite.R:44:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L44) *style:* **Commented code should be removed.**
```r
##' @param retina_list A list containing retina objects, with names(retina_list) all defined.
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:48:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L48) *style:* **Commented code should be removed.**
```r
##' @author Brian Cohn \email{brian_cohn14@@pitzer.edu} and Lars Schmitz
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/composite.R:50:13:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L50) *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:50:17:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L50) *style:* **Put spaces around all infix operators.**
```r
	sum_mat <- mat_from_ret_obj(retina_list[[1]], rotation=0, ...)
               ~^~~
```
[R/composite.R:50:63:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L50) *style:* **Put spaces around all infix operators.**
```r
	sum_mat <- mat_from_ret_obj(retina_list[[1]], rotation=0, ...)
                                                             ~^~
```
[R/composite.R:51:11:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L51) *style:* **Put spaces around all infix operators.**
```r
	n <- length(retina_list)
         ~^~~
```
[R/composite.R:52:13:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L52) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for (i in 2:n) {
            ^
```
[R/composite.R:53:25:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L53) *style:* **Put spaces around all infix operators.**
```r
		sum_mat <- sum_mat + mat_from_ret_obj(retina_list[[i]],
                       ~^~~
```
[R/composite.R:53:36:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/composite.R#L53) *style:* **Put spaces around all infix operators.**
```r
		sum_mat <- sum_mat + mat_from_ret_obj(retina_list[[i]],
                                  ~^~
```
[R/matrix_retobj.R:2:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L2) *style:* **Use two spaces to indent, never tabs.**
```r
	x2 <- retina_object$azimuthal_data.datapoints[[1]]$x
^
```
[R/matrix_retobj.R:3:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L3) *style:* **Use two spaces to indent, never tabs.**
```r
	y2 <- retina_object$azimuthal_data.datapoints[[1]]$y
^
```
[R/matrix_retobj.R:4:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L4) *style:* **Use two spaces to indent, never tabs.**
```r
	z2 <- retina_object$azimuthal_data.datapoints[[1]]$z
^
```
[R/matrix_retobj.R:6:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L6) *style:* **Use two spaces to indent, never tabs.**
```r
	# Rotation
^
```
[R/matrix_retobj.R:7:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L7) *style:* **Use two spaces to indent, never tabs.**
```r
	ori <- c(-90, 90, rotation)
^
```
[R/matrix_retobj.R:8:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L8) *style:* **Use two spaces to indent, never tabs.**
```r
	az <- mapproject(x=retina_object$trimmed_data[,2], retina_object$trimmed_data[,1],
^
```
[R/matrix_retobj.R:9:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
					   projection="azequidistant", orientation=ori)
^~~~~
```
[R/matrix_retobj.R:10:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L10) *style:* **Use two spaces to indent, never tabs.**
```r
	x2 <- az$x #overwirte old value
^
```
[R/matrix_retobj.R:10:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L10) *style:* **Commented code should be removed.**
```r
##' @author Brian Cohn \email{brian_cohn14@@pitzer.edu} and Lars Schmitz
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:11:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L11) *style:* **Use two spaces to indent, never tabs.**
```r
	ifelse(reflect,x2<-(-1.0*x2), message(''))
^
```
[R/matrix_retobj.R:12:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L12) *style:* **Use two spaces to indent, never tabs.**
```r
	y2 <- az$y #overwrite old value
^
```
[R/matrix_retobj.R:12:17:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L12) *style:* **Put spaces around all infix operators.**
```r
mat_from_ret_obj<- function(retina_object, rotation=0, n=1, reflect=TRUE, ...){
               ~^
```
[R/matrix_retobj.R:13:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L13) *style:* **Put spaces around all infix operators.**
```r
	x2 <- retina_object$azimuthal_data.datapoints[[1]]$x
          ~^~~
```
[R/matrix_retobj.R:14:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
	# Fitting models
^
```
[R/matrix_retobj.R:14:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L14) *style:* **Put spaces around all infix operators.**
```r
	y2 <- retina_object$azimuthal_data.datapoints[[1]]$y
          ~^~~
```
[R/matrix_retobj.R:15:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	map2fit <- fit_plot_azimuthal(x2,y2,z2,
^
```
[R/matrix_retobj.R:15:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L15) *style:* **Put spaces around all infix operators.**
```r
	z2 <- retina_object$azimuthal_data.datapoints[[1]]$z
          ~^~~
```
[R/matrix_retobj.R:16:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
									plot_suppress=TRUE, extrapolate=TRUE,
^~~~~~~~~
```
[R/matrix_retobj.R:17:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
									outer.radius=pi/2.0,
^~~~~~~~~
```
[R/matrix_retobj.R:18:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L18) *style:* **Use two spaces to indent, never tabs.**
```r
									falciform_coords = retina_object$azimuthal_data.falciform[[1]],...)
^~~~~~~~~
```
[R/matrix_retobj.R:18:13:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L18) *style:* **Put spaces around all infix operators.**
```r
	ori <- c(-90, 90, rotation)
           ~^
```
[R/matrix_retobj.R:19:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	MAT <- map2fit[[2]]$z
^
```
[R/matrix_retobj.R:19:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L19) *style:* **lines should not be more than 80 characters.**
```r
	az <- mapproject(x=retina_object$trimmed_data[,2], retina_object$trimmed_data[,1],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/matrix_retobj.R:19:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L19) *style:* **Put spaces around all infix operators.**
```r
	az <- mapproject(x=retina_object$trimmed_data[,2], retina_object$trimmed_data[,1],
          ~^~~
```
[R/matrix_retobj.R:19:23:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	MAT <- map2fit[[2]]$z
                      ^
```
[R/matrix_retobj.R:19:27:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L19) *style:* **Put spaces around all infix operators.**
```r
	az <- mapproject(x=retina_object$trimmed_data[,2], retina_object$trimmed_data[,1],
                         ~^~
```
[R/matrix_retobj.R:19:84:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L19) *style:* **Trailing whitespace is superfluous.**
```r
	az <- mapproject(x=retina_object$trimmed_data[,2], retina_object$trimmed_data[,1],
                                                                                ^
```
[R/matrix_retobj.R:20:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L20) *style:* **Use two spaces to indent, never tabs.**
```r
	#reflect the eye
^
```
[R/matrix_retobj.R:21:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L21) *style:* **Use two spaces to indent, never tabs.**
```r
	return(MAT/n)
^
```
[R/matrix_retobj.R:21:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L21) *style:* **Put spaces around all infix operators.**
```r
	x2 <- az$x #overwirte old value
          ~^~~
```
[R/matrix_retobj.R:22:26:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L22) *style:* **Put spaces around all infix operators.**
```r
	ifelse(reflect,x2<-(-1.0*x2), message(''))
                        ~^~~
```
[R/matrix_retobj.R:22:28:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L22) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	ifelse(reflect,x2<-(-1.0*x2), message(''))
                           ^
```
[R/matrix_retobj.R:22:33:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L22) *style:* **Put spaces around all infix operators.**
```r
	ifelse(reflect,x2<-(-1.0*x2), message(''))
                               ~^~
```
[R/matrix_retobj.R:22:47:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L22) *style:* **Only use double-quotes.**
```r
	ifelse(reflect,x2<-(-1.0*x2), message(''))
                                              ^~
```
[R/matrix_retobj.R:23:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L23) *style:* **Put spaces around all infix operators.**
```r
	y2 <- az$y #overwrite old value
          ~^~~
```
[R/matrix_retobj.R:26:17:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L26) *style:* **Put spaces around all infix operators.**
```r
	map2fit <- fit_plot_azimuthal(x2,y2,z2,
               ~^~~
```
[R/matrix_retobj.R:30:13:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L30) *style:* **Put spaces around all infix operators.**
```r
	MAT <- map2fit[[2]]$z
           ~^~~
```
[R/matrix_retobj.R:30:23:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/matrix_retobj.R#L30) *style:* **Trailing whitespace is superfluous.**
```r
	MAT <- map2fit[[2]]$z
                      ^
```
[R/polar_plot_from_mat.R:4:9:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L4) *style:* **Variable and function names should be all lowercase.**
```r
require(RColorBrewer)
        ^~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:22:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L22) *style:* **Commented code should be removed.**
```r
##' @param single_point_overlay Overlay "key" data point with square (0 = No, Other = number of pt)
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:32:14:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L32) *style:* **Put spaces around all infix operators.**
```r
plot_from_MAT<- function(
            ~^
```
[R/polar_plot_from_mat.R:33:4:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L33) *style:* **Commented code should be removed.**
```r
  ### Plotting data (in cartesian) - will be converted to polar space.
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:34:18:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L34) *style:* **Trailing whitespace is superfluous.**
```r
  z1, z2, MATRIX,
                 ^
```
[R/polar_plot_from_mat.R:36:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L36) *style:* **Use two spaces to indent, never tabs.**
```r
	minitics <- seq(-outer.radius, outer.radius, length.out = spatial_res)
^
```
[R/polar_plot_from_mat.R:37:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L37) *style:* **Use two spaces to indent, never tabs.**
```r
	grid.list = list(x=minitics,y=minitics) #choose locations to predict at
^
```
[R/polar_plot_from_mat.R:38:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L38) *style:* **Use two spaces to indent, never tabs.**
```r
	Mat = MATRIX
^
```
[R/polar_plot_from_mat.R:42:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L42) *style:* **lines should not be more than 80 characters.**
```r
  col_breaks_source = 2, # Where to calculate the color breaks from (1=data,2=surface)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:44:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L44) *style:* **lines should not be more than 80 characters.**
```r
  col_levels = 10,    # Number of color levels to use - must match length(col) if
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:44:82:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L44) *style:* **Trailing whitespace is superfluous.**
```r
  col_levels = 10,    # Number of color levels to use - must match length(col) if
                                                                                ^
```
[R/polar_plot_from_mat.R:46:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L46) *style:* **lines should not be more than 80 characters.**
```r
  col = rev(colorRampPalette(brewer.pal(11,"PuOr"))(col_levels)),  # Colors to plot
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:46:44:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L46) *style:* **Commas should always have a space after.**
```r
  col = rev(colorRampPalette(brewer.pal(11,"PuOr"))(col_levels)),  # Colors to plot
                                           ^
```
[R/polar_plot_from_mat.R:49:30:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L49) *style:* **Put spaces around all infix operators.**
```r
  contour_levels = col_levels+1,
                            ~^~
```
[R/polar_plot_from_mat.R:51:20:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L51) *style:* **Put spaces around all infix operators.**
```r
  outer.radius = pi/2,
                  ~^~
```
[R/polar_plot_from_mat.R:51:23:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L51) *style:* **Trailing whitespace is superfluous.**
```r
  outer.radius = pi/2,
                      ^~
```
[R/polar_plot_from_mat.R:52:28:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L52) *style:* **Commas should always have a space after.**
```r
  circle.rads = pretty(c(0,outer.radius)), #Radius lines
                           ^
```
[R/polar_plot_from_mat.R:54:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L54) *style:* **Use two spaces to indent, never tabs.**
```r
	contour_breaks = seq(min(z,na.rm=TRUE),max(z,na.rm=TRUE),
^
```
[R/polar_plot_from_mat.R:54:64:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L54) *style:* **Trailing whitespace is superfluous.**
```r
  single_point_overlay=0, #Overlay "key" data point with square
                                                               ^
```
[R/polar_plot_from_mat.R:55:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L55) *style:* **Use two spaces to indent, never tabs.**
```r
						 by=(max(z,na.rm=TRUE)-min(z,na.rm=TRUE))/(contour_levels-1))
^~~~~~
```
[R/polar_plot_from_mat.R:57:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L57) *style:* **lines should not be more than 80 characters.**
```r
  interp.type = 1, #1 = Thin plate spline , null if you are inputting your own predicted surface
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:58:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L58) *style:* **Use two spaces to indent, never tabs.**
```r
	contour_breaks = seq(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE),
^
```
[R/polar_plot_from_mat.R:58:28:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L58) *style:* **Commas should always have a space after.**
```r
  lambda=0.001, xyrelief=1,...) {
                           ^
```
[R/polar_plot_from_mat.R:58:33:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L58) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  lambda=0.001, xyrelief=1,...) {
                                ^
```
[R/polar_plot_from_mat.R:58:34:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L58) *style:* **Trailing whitespace is superfluous.**
```r
  lambda=0.001, xyrelief=1,...) {
                                 ^
```
[R/polar_plot_from_mat.R:59:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L59) *style:* **Use two spaces to indent, never tabs.**
```r
						 by=(max(Mat,na.rm=TRUE)-min(Mat,na.rm=TRUE))/(contour_levels-1))
^~~~~~
```
[R/polar_plot_from_mat.R:59:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L59) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/polar_plot_from_mat.R:61:33:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L61) *style:* **Commas should always have a space after.**
```r
  spatial_res <- length(MATRIX[,1])
                                ^
```
[R/polar_plot_from_mat.R:62:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L62) *style:* **Use two spaces to indent, never tabs.**
```r
	print(paste0("Manual contour range set from ", contour_breaks_source[1], " to ", contour_breaks_source[2]))
^
```
[R/polar_plot_from_mat.R:63:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L63) *style:* **Use two spaces to indent, never tabs.**
```r
	contour_breaks = pretty(contour_breaks_source,n=contour_levels)
^
```
[R/polar_plot_from_mat.R:63:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L63) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/polar_plot_from_mat.R:64:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L64) *style:* **Use two spaces to indent, never tabs.**
```r
	contour_breaks = seq(contour_breaks_source[1],contour_breaks_source[2],
^
```
[R/polar_plot_from_mat.R:65:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L65) *style:* **Use two spaces to indent, never tabs.**
```r
						 by=(contour_breaks_source[2]-contour_breaks_source[1])/(contour_levels-1))
^~~~~~
```
[R/polar_plot_from_mat.R:66:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L66) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/polar_plot_from_mat.R:67:18:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L67) *style:* **Put spaces around all infix operators.**
```r
	minitics <- seq(-outer.radius, outer.radius, length.out = spatial_res)
                ~^~~
```
[R/polar_plot_from_mat.R:67:65:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L67) *style:* **Put spaces around all infix operators.**
```r
	minitics <- seq(-outer.radius, outer.radius, length.out = spatial_res)
                                                               ~^~
```
[R/polar_plot_from_mat.R:68:2:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L68) *warning:* **local variable ‘grid.list’ assigned but may not be used**
```r
	grid.list = list(x=minitics,y=minitics) #choose locations to predict at
 ^~~~~~~~~
```
[R/polar_plot_from_mat.R:68:19:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L68) *style:* **Use <-, not =, for assignment.**
```r
	grid.list = list(x=minitics,y=minitics) #choose locations to predict at
                  ^
```
[R/polar_plot_from_mat.R:68:19:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L68) *style:* **Put spaces around all infix operators.**
```r
	grid.list = list(x=minitics,y=minitics) #choose locations to predict at
                 ~^~
```
[R/polar_plot_from_mat.R:68:27:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L68) *style:* **Put spaces around all infix operators.**
```r
	grid.list = list(x=minitics,y=minitics) #choose locations to predict at
                         ~^~
```
[R/polar_plot_from_mat.R:68:38:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L68) *style:* **Put spaces around all infix operators.**
```r
	grid.list = list(x=minitics,y=minitics) #choose locations to predict at
                                    ~^~
```
[R/polar_plot_from_mat.R:69:13:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L69) *style:* **Use <-, not =, for assignment.**
```r
	Mat = MATRIX
            ^
```
[R/polar_plot_from_mat.R:69:13:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L69) *style:* **Put spaces around all infix operators.**
```r
	Mat = MATRIX
           ~^~
```
[R/polar_plot_from_mat.R:71:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L71) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  else {stop("interp.type value not valid")}
       ^
```
[R/polar_plot_from_mat.R:71:44:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L71) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
  else {stop("interp.type value not valid")}
                                           ^
```
[R/polar_plot_from_mat.R:78:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L78) *style:* **lines should not be more than 80 characters.**
```r
#   ###;; ________________________________________________________________________
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:80:3:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L80) *style:* **Variable and function names should be all lowercase.**
```r
  markNA <- matrix(minitics, ncol = spatial_res, nrow = spatial_res)
  ^~~~~~
```
[R/polar_plot_from_mat.R:80:69:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L80) *style:* **Trailing whitespace is superfluous.**
```r
  markNA <- matrix(minitics, ncol = spatial_res, nrow = spatial_res)
                                                                    ^
```
[R/polar_plot_from_mat.R:81:13:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L81) *style:* **Variable and function names should be all lowercase.**
```r
  Mat[!sqrt(markNA ^ 2 + t(markNA) ^ 2) < outer.radius] <- NA
            ^~~~~~
```
[R/polar_plot_from_mat.R:81:28:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L81) *style:* **Variable and function names should be all lowercase.**
```r
  Mat[!sqrt(markNA ^ 2 + t(markNA) ^ 2) < outer.radius] <- NA
                           ^~~~~~
```
[R/polar_plot_from_mat.R:81:62:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L81) *style:* **Trailing whitespace is superfluous.**
```r
  Mat[!sqrt(markNA ^ 2 + t(markNA) ^ 2) < outer.radius] <- NA
                                                             ^
```
[R/polar_plot_from_mat.R:82:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L82) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/polar_plot_from_mat.R:84:7:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L84) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if ((length(contour_breaks_source == 1)) & (contour_breaks_source[1] == 1)){
      ^
```
[R/polar_plot_from_mat.R:85:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L85) *style:* **Use <-, not =, for assignment.**
```r
	contour_breaks = seq(min(z,na.rm=TRUE),max(z,na.rm=TRUE),
                       ^
```
[R/polar_plot_from_mat.R:85:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L85) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = seq(min(z,na.rm=TRUE),max(z,na.rm=TRUE),
                      ~^~
```
[R/polar_plot_from_mat.R:85:41:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L85) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = seq(min(z,na.rm=TRUE),max(z,na.rm=TRUE),
                                       ~^~
```
[R/polar_plot_from_mat.R:85:59:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L85) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = seq(min(z,na.rm=TRUE),max(z,na.rm=TRUE),
                                                         ~^~
```
[R/polar_plot_from_mat.R:86:52:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L86) *style:* **Put spaces around all infix operators.**
```r
						 by=(max(z,na.rm=TRUE)-min(z,na.rm=TRUE))/(contour_levels-1))
                                                  ~^~
```
[R/polar_plot_from_mat.R:86:53:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L86) *style:* **Place a space before left parenthesis, except in a function call.**
```r
						 by=(max(z,na.rm=TRUE)-min(z,na.rm=TRUE))/(contour_levels-1))
                                                    ^
```
[R/polar_plot_from_mat.R:86:65:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L86) *style:* **Put spaces around all infix operators.**
```r
						 by=(max(z,na.rm=TRUE)-min(z,na.rm=TRUE))/(contour_levels-1))
                                                               ~^~
```
[R/polar_plot_from_mat.R:87:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L87) *style:* **Use two spaces to indent, never tabs.**
```r
	CL <- contourLines(x = minitics, y = minitics, Mat, levels = contour_breaks)
^
```
[R/polar_plot_from_mat.R:88:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L88) *style:* **Use two spaces to indent, never tabs.**
```r
	A <- lapply(CL, function(xy){
^
```
[R/polar_plot_from_mat.R:88:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L88) *style:* **lines should not be more than 80 characters.**
```r
  else if ((length(contour_breaks_source == 1)) & (contour_breaks_source[1] == 2)){
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:88:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L88) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  else if ((length(contour_breaks_source == 1)) & (contour_breaks_source[1] == 2)){
           ^
```
[R/polar_plot_from_mat.R:89:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L89) *style:* **Use two spaces to indent, never tabs.**
```r
	  lines(xy$x, xy$y, col = gray(.2), lwd = .5)
^
```
[R/polar_plot_from_mat.R:89:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L89) *style:* **Use <-, not =, for assignment.**
```r
	contour_breaks = seq(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE),
                       ^
```
[R/polar_plot_from_mat.R:89:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L89) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = seq(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE),
                      ~^~
```
[R/polar_plot_from_mat.R:89:43:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L89) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = seq(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE),
                                         ~^~
```
[R/polar_plot_from_mat.R:89:63:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L89) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = seq(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE),
                                                             ~^~
```
[R/polar_plot_from_mat.R:90:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L90) *style:* **Use two spaces to indent, never tabs.**
```r
	})
^
```
[R/polar_plot_from_mat.R:90:52:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L90) *style:* **Put spaces around all infix operators.**
```r
						 by=(max(Mat,na.rm=TRUE)-min(Mat,na.rm=TRUE))/(contour_levels-1))
                                                  ~^~
```
[R/polar_plot_from_mat.R:90:53:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L90) *style:* **Place a space before left parenthesis, except in a function call.**
```r
						 by=(max(Mat,na.rm=TRUE)-min(Mat,na.rm=TRUE))/(contour_levels-1))
                                                    ^
```
[R/polar_plot_from_mat.R:90:67:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L90) *style:* **Put spaces around all infix operators.**
```r
						 by=(max(Mat,na.rm=TRUE)-min(Mat,na.rm=TRUE))/(contour_levels-1))
                                                                 ~^~
```
[R/polar_plot_from_mat.R:91:4:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L91) *style:* **Trailing whitespace is superfluous.**
```r
  }
   ^
```
[R/polar_plot_from_mat.R:92:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L92) *style:* **lines should not be more than 80 characters.**
```r
  else if ((length(contour_breaks_source) == 2) & (is.numeric(contour_breaks_source))){
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:92:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L92) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  else if ((length(contour_breaks_source) == 2) & (is.numeric(contour_breaks_source))){
           ^
```
[R/polar_plot_from_mat.R:93:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L93) *style:* **lines should not be more than 80 characters.**
```r
	print(paste0("Manual contour range set from ", contour_breaks_source[1], " to ", contour_breaks_source[2]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:94:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L94) *style:* **Use <-, not =, for assignment.**
```r
	contour_breaks = pretty(contour_breaks_source,n=contour_levels)
                       ^
```
[R/polar_plot_from_mat.R:94:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L94) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = pretty(contour_breaks_source,n=contour_levels)
                      ~^~
```
[R/polar_plot_from_mat.R:94:56:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L94) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = pretty(contour_breaks_source,n=contour_levels)
                                                      ~^~
```
[R/polar_plot_from_mat.R:95:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L95) *style:* **Use two spaces to indent, never tabs.**
```r
	# internals for axis markup
^
```
[R/polar_plot_from_mat.R:95:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L95) *style:* **Use <-, not =, for assignment.**
```r
	contour_breaks = seq(contour_breaks_source[1],contour_breaks_source[2],
                       ^
```
[R/polar_plot_from_mat.R:95:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L95) *style:* **Put spaces around all infix operators.**
```r
	contour_breaks = seq(contour_breaks_source[1],contour_breaks_source[2],
                      ~^~
```
[R/polar_plot_from_mat.R:96:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L96) *style:* **Use two spaces to indent, never tabs.**
```r
	RMat <- function(radians){
^
```
[R/polar_plot_from_mat.R:96:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L96) *style:* **lines should not be more than 80 characters.**
```r
						 by=(contour_breaks_source[2]-contour_breaks_source[1])/(contour_levels-1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/polar_plot_from_mat.R:96:52:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L96) *style:* **Put spaces around all infix operators.**
```r
						 by=(contour_breaks_source[2]-contour_breaks_source[1])/(contour_levels-1))
                                                  ~^~
```
[R/polar_plot_from_mat.R:96:53:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L96) *style:* **Place a space before left parenthesis, except in a function call.**
```r
						 by=(contour_breaks_source[2]-contour_breaks_source[1])/(contour_levels-1))
                                                    ^
```
[R/polar_plot_from_mat.R:96:78:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L96) *style:* **Put spaces around all infix operators.**
```r
						 by=(contour_breaks_source[2]-contour_breaks_source[1])/(contour_levels-1))
                                                                            ~^~
```
[R/polar_plot_from_mat.R:97:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L97) *style:* **Use two spaces to indent, never tabs.**
```r
	  matrix(c(cos(radians), sin(radians), -sin(radians), cos(radians)), ncol = 2)
^
```
[R/polar_plot_from_mat.R:98:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L98) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/polar_plot_from_mat.R:98:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L98) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  else {stop("Invalid selection for \"contour_breaks_source\"")}
       ^
```
[R/polar_plot_from_mat.R:98:64:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L98) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
  else {stop("Invalid selection for \"contour_breaks_source\"")}
                                                               ^
```
[R/polar_plot_from_mat.R:99:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L99) *style:* **Use two spaces to indent, never tabs.**
```r

^
```
[R/polar_plot_from_mat.R:99:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L99) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/polar_plot_from_mat.R:100:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L100) *style:* **Use two spaces to indent, never tabs.**
```r
	circle <- function(x, y, rad = 1, nvert = 500){
^
```
[R/polar_plot_from_mat.R:101:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L101) *style:* **Use two spaces to indent, never tabs.**
```r
	  rads <- seq(0,2*pi,length.out = nvert)
^
```
[R/polar_plot_from_mat.R:101:7:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L101) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if ((length(col_breaks_source) == 1) & (col_breaks_source[1] == 1))
      ^
```
[R/polar_plot_from_mat.R:102:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Use two spaces to indent, never tabs.**
```r
	  xcoords <- cos(rads) * rad + x
^
```
[R/polar_plot_from_mat.R:102:3:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
  ^
```
[R/polar_plot_from_mat.R:102:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Use <-, not =, for assignment.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
       ^
```
[R/polar_plot_from_mat.R:102:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Put spaces around all infix operators.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
      ~^~
```
[R/polar_plot_from_mat.R:102:17:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Commas should always have a space after.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
                ^
```
[R/polar_plot_from_mat.R:102:22:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Put spaces around all infix operators.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
                    ~^~
```
[R/polar_plot_from_mat.R:102:29:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Commas should always have a space after.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
                            ^
```
[R/polar_plot_from_mat.R:102:35:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Commas should always have a space after.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
                                  ^
```
[R/polar_plot_from_mat.R:102:40:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Put spaces around all infix operators.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
                                      ~^~
```
[R/polar_plot_from_mat.R:102:47:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L102) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
  {zlim=c(min(z,na.rm=TRUE),max(z,na.rm=TRUE))}
                                              ^
```
[R/polar_plot_from_mat.R:103:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L103) *style:* **Use two spaces to indent, never tabs.**
```r
	  ycoords <- sin(rads) * rad + y
^
```
[R/polar_plot_from_mat.R:103:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L103) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  else if ((length(col_breaks_source) == 1) & (col_breaks_source[1] == 2))
           ^
```
[R/polar_plot_from_mat.R:104:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Use two spaces to indent, never tabs.**
```r
	  cbind(xcoords, ycoords)
^
```
[R/polar_plot_from_mat.R:104:3:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
  ^
```
[R/polar_plot_from_mat.R:104:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Use <-, not =, for assignment.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
       ^
```
[R/polar_plot_from_mat.R:104:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Put spaces around all infix operators.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
      ~^~
```
[R/polar_plot_from_mat.R:104:19:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Commas should always have a space after.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
                  ^
```
[R/polar_plot_from_mat.R:104:24:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Put spaces around all infix operators.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
                      ~^~
```
[R/polar_plot_from_mat.R:104:31:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Commas should always have a space after.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
                              ^
```
[R/polar_plot_from_mat.R:104:39:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Commas should always have a space after.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
                                      ^
```
[R/polar_plot_from_mat.R:104:44:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Put spaces around all infix operators.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
                                          ~^~
```
[R/polar_plot_from_mat.R:104:51:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L104) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
  {zlim=c(min(Mat,na.rm=TRUE),max(Mat,na.rm=TRUE))}
                                                  ^
```
[R/polar_plot_from_mat.R:105:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L105) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/polar_plot_from_mat.R:105:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L105) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  else if ((length(col_breaks_source) == 2) & (is.numeric(col_breaks_source)))
           ^
```
[R/polar_plot_from_mat.R:106:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L106) *style:* **Use two spaces to indent, never tabs.**
```r

^
```
[R/polar_plot_from_mat.R:106:3:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L106) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {zlim=col_breaks_source}
  ^
```
[R/polar_plot_from_mat.R:106:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L106) *style:* **Use <-, not =, for assignment.**
```r
  {zlim=col_breaks_source}
       ^
```
[R/polar_plot_from_mat.R:106:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L106) *style:* **Put spaces around all infix operators.**
```r
  {zlim=col_breaks_source}
      ~^~
```
[R/polar_plot_from_mat.R:106:26:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L106) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
  {zlim=col_breaks_source}
                         ^
```
[R/polar_plot_from_mat.R:107:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L107) *style:* **Use two spaces to indent, never tabs.**
```r
	# draw circles
^
```
[R/polar_plot_from_mat.R:107:8:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L107) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  else {stop("Invalid selection for \"col_breaks_source\"")}
       ^
```
[R/polar_plot_from_mat.R:107:60:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L107) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
  else {stop("Invalid selection for \"col_breaks_source\"")}
                                                           ^
```
[R/polar_plot_from_mat.R:108:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L108) *style:* **Use two spaces to indent, never tabs.**
```r
	if (missing(circle.rads)){
^
```
[R/polar_plot_from_mat.R:108:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L108) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/polar_plot_from_mat.R:109:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L109) *style:* **Use two spaces to indent, never tabs.**
```r
	  circle.rads <- pretty(c(0,outer.radius-.4))
^
```
[R/polar_plot_from_mat.R:110:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L110) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/polar_plot_from_mat.R:111:1:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L111) *style:* **Use two spaces to indent, never tabs.**
```r

^
```
[R/polar_plot_from_mat.R:111:12:](https://github.com/bcohn12/retina/blob/948739c426b60a7c63139763dd4326d69a767ac7/R/polar_plot_from_mat.R#L111) *style:* **Use <-, not =, for assignment.**
```r
  Mat_plot = Mat
           ^
```


También hay que agregar un método en Sonido que pare todo, y usarlo en Barra de Menu -> Reiniciar


and this


Nope. 723fd4ee6944220030f87c5b9e9bcd00e62e01ec


contrib/codeanalysis/runcppcheck.sh: line 9: ../cppcheck-1.66/cppcheck: No such file or directory


Nice :)


@Tyler3D half the time it doesn't work, or crashes the server, so I got rid of it. No poin't in changing it via command if theres already an option in gameserver.ini.


Are you planning to release an updated version with this change on maven central anytime soon?


7777777 dvkldvjkldsjvd


Well, I've always seen CC as "get mostly bad stuff and play around it".
Getting the right mega stone has always resulted in very unfun games (both if mine or foe) -not to mention that they are absolutely rare, so  I think I am not wrong when I assert that their removal wouldn't be missed. I'd assume the same to hold for Z-Crystals.

 or the right Z-Crystal is always unfu


fix #1


you should check translation first


非常感谢。
顺便提个小问题：移动端下，`<h5 class="subtitle">` 和 `<div class="post-meta">` 内容重复，前者应该是不需要的。


Helicopter code by Alex Hicks
Rabbit code by Alexandre Skipper
... Damnit Ben


multimitros.blogspot.gr


:tada::tada::tada::tada::tada::tada::tada::tada::tada: