{"comment":{"url":"https://api.github.com/repos/bc/retina/comments/28609480","html_url":"https://github.com/bc/retina/commit/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea#commitcomment-28609480","id":28609480,"user":{"login":"lintr-bot","id":10925265,"avatar_url":"https://avatars3.githubusercontent.com/u/10925265?v=4","gravatar_id":"","url":"https://api.github.com/users/lintr-bot","html_url":"https://github.com/lintr-bot","followers_url":"https://api.github.com/users/lintr-bot/followers","following_url":"https://api.github.com/users/lintr-bot/following{/other_user}","gists_url":"https://api.github.com/users/lintr-bot/gists{/gist_id}","starred_url":"https://api.github.com/users/lintr-bot/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/lintr-bot/subscriptions","organizations_url":"https://api.github.com/users/lintr-bot/orgs","repos_url":"https://api.github.com/users/lintr-bot/repos","events_url":"https://api.github.com/users/lintr-bot/events{/privacy}","received_events_url":"https://api.github.com/users/lintr-bot/received_events","type":"User","site_admin":false},"position":null,"line":null,"path":null,"commit_id":"0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea","created_at":"2018-04-17T00:45:03Z","updated_at":"2018-04-17T00:45:03Z","author_association":"NONE","body":"[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.**\n```r\n​  LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​  LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n  ^~~~~~~~~~\n```\n[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.**\n```r\n​  RESOLUTION_var <- 500 #Plot width in pixels\n  ^~~~~~~~~~~~~~\n```\n[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.**\n```r\n​  IJ <-data.frame(maxX = 1429,\n  ^~\n```\n[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.**\n```r\n​  IJ <-data.frame(maxX = 1429,\n     ^~~\n```\n[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.**\n```r\n​                  deltaX = (1429-108)/21,\n                               ~^~\n```\n[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.**\n```r\n​                  deltaX = (1429-108)/21,\n                                    ~^~\n```\n[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.**\n```r\n​                  deltaY = (989-85)/14)\n                              ~^~\n```\n[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.**\n```r\n​                  deltaY = (989-85)/14)\n                                  ~^~\n```\n[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.**\n```r\n​          height = 30 ,# height of the counting frame in microns\n                     ~^\n```\n[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.**\n```r\n​          height = 30 ,# height of the counting frame in microns\n                       ^\n```\n[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.**\n```r\n​          extrapolate = TRUE ,          #Predicts densities to the equator.\n                            ~^\n```\n[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.**\n```r\n​          rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​          plot_suppress=TRUE,\n                      ~^~\n```\n[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’**\n```r\n​  retinaplot(my_retina)\n  ^~~~~~~~~~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~\n```\n[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.**\n```r\n​RESOLUTION_var <- 500 #Plot width in pixels\n^~~~~~~~~~~~~~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 944,\n^~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 944,\n   ^~~\n```\n[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.**\n```r\n​  height = 25 ,# height of the counting frame in microns\n             ~^\n```\n[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.**\n```r\n​  height = 25 ,# height of the counting frame in microns\n               ^\n```\n[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.**\n```r\n​  extrapolate = TRUE ,          #Predicts densities to the equator.\n                    ~^\n```\n[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.**\n```r\n​  rotation_ccw = 0, # when set to -90 degrees, the rotation is unaltered from the measured orientation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​  plot_suppress=TRUE,\n              ~^~\n```\n[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’**\n```r\n​retinaplot(my_retina, rotation=115, col_breaks_source = c(0, 35000))\n^~~~~~~~~~\n```\n[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.**\n```r\n​retinaplot(my_retina, rotation=115, col_breaks_source = c(0, 35000))\n                             ~^~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~\n```\n[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.**\n```r\n​RESOLUTION_var <- 500 #Plot width in pixels\n^~~~~~~~~~~~~~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 981,\n^~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 981,\n   ^~~\n```\n[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.**\n```r\n​  height = 25 ,# height of the counting frame in microns\n             ~^\n```\n[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.**\n```r\n​  height = 25 ,# height of the counting frame in microns\n               ^\n```\n[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.**\n```r\n​  extrapolate = TRUE ,          #Predicts densities to the equator.\n                    ~^\n```\n[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.**\n```r\n​  rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​  plot_suppress=TRUE,\n              ~^~\n```\n[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’**\n```r\n​retinaplot(my_retina)\n^~~~~~~~~~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.1 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~\n```\n[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.**\n```r\n​RESOLUTION_var <- 500 #Plot width in pixels\n^~~~~~~~~~~~~~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 1210,\n^~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 1210,\n   ^~~\n```\n[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.**\n```r\n​                deltaX = (1210-72)/20,\n                             ~^~\n```\n[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.**\n```r\n​                deltaX = (1210-72)/20,\n                                 ~^~\n```\n[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.**\n```r\n​                deltaY = (928-46)/15)\n                            ~^~\n```\n[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.**\n```r\n​                deltaY = (928-46)/15)\n                                ~^~\n```\n[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.**\n```r\n​        height = 45 ,# height of the counting frame in microns\n                   ~^\n```\n[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.**\n```r\n​        height = 45 ,# height of the counting frame in microns\n                     ^\n```\n[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.**\n```r\n​        extrapolate = TRUE ,          #Predicts densities to the equator.\n                          ~^\n```\n[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.**\n```r\n​        rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​        plot_suppress=TRUE,\n                    ~^~\n```\n[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’**\n```r\n​retinaplot(my_retina)\n^~~~~~~~~~\n```\n[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.**\n```r\n​findPeak <- function(my_retina){\n^~~~~~~~\n```\n[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.**\n```r\n​\tcoord <- my_retina$trimmed_data\n^\n```\n[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.**\n```r\n​\tpeak_temp <- coord[which.max(coord$z),]\n^\n```\n[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.**\n```r\n​\tpeak_temp <- coord[which.max(coord$z),]\n                                       ^\n```\n[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.**\n```r\n​\tpeak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​\tpeak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])\n^\n```\n[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.**\n```r\n​\tpeak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])\n                           ~^~\n```\n[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.**\n```r\n​\tpeak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])\n                                            ^\n```\n[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.**\n```r\n​\tpeak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])\n                                                         ~^~\n```\n[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.**\n```r\n​\tpeak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])\n                                                                      ^\n```\n[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.**\n```r\n​\tpeak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])\n                                                                             ~^~\n```\n[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.**\n```r\n​\tpeak <- data.frame(latitude=abs(peak_temp[,1]), longitude=peak_temp[,2], peak=peak_temp[,3])\n                                                                                          ^\n```\n[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.**\n```r\n​\treturn(peak)\n^\n```\n[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.**\n```r\n​\t}\n^\n```\n[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.**\n```r\n​  #lambda=0.001\n   ^~~~~~~~~~~~\n```\n[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.**\n```r\n​  #polynomial_m=2\n   ^~~~~~~~~~~~~~\n```\n[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.**\n```r\n​  #rotation=30\n   ^~~~~~~~~~~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~\n```\n[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.**\n```r\n​RESOLUTION_var <- 500 #Plot width in pixels\n^~~~~~~~~~~~~~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 1084,\n^~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 1084,\n   ^~~\n```\n[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.**\n```r\n​                deltaX = (1084-100)/21,\n                             ~^~\n```\n[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.**\n```r\n​                deltaX = (1084-100)/21,\n                                  ~^~\n```\n[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.**\n```r\n​                deltaY = (1022-36)/14)\n                             ~^~\n```\n[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.**\n```r\n​                deltaY = (1022-36)/14)\n                                 ~^~\n```\n[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.**\n```r\n​        height = 35 ,# height of the counting frame in microns\n                   ~^\n```\n[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.**\n```r\n​        height = 35 ,# height of the counting frame in microns\n                     ^\n```\n[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.**\n```r\n​        extrapolate = TRUE ,          #Predicts densities to the equator.\n                          ~^\n```\n[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.**\n```r\n​        rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​        plot_suppress=TRUE,\n                    ~^~\n```\n[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’**\n```r\n​retinaplot(my_retina,rotation=270)\n^~~~~~~~~~\n```\n[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.**\n```r\n​retinaplot(my_retina,rotation=270)\n                     ^\n```\n[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.**\n```r\n​retinaplot(my_retina,rotation=270)\n                            ~^~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~\n```\n[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.**\n```r\n​RESOLUTION_var <- 500 #Plot width in pixels\n^~~~~~~~~~~~~~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 1189,\n^~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 1189,\n   ^~~\n```\n[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.**\n```r\n​                deltaX = (1189-26)/19,\n                             ~^~\n```\n[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.**\n```r\n​                deltaX = (1189-26)/19,\n                                 ~^~\n```\n[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.**\n```r\n​                deltaY = (986-81)/15)\n                            ~^~\n```\n[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.**\n```r\n​                deltaY = (986-81)/15)\n                                ~^~\n```\n[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.**\n```r\n​        height = 25 ,# height of the counting frame in microns\n                   ~^\n```\n[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.**\n```r\n​        height = 25 ,# height of the counting frame in microns\n                     ^\n```\n[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.**\n```r\n​        extrapolate = TRUE ,          #Predicts densities to the equator.\n                          ~^\n```\n[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.**\n```r\n​        rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​        plot_suppress=TRUE,\n                    ~^~\n```\n[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’**\n```r\n​retinaplot(my_retina)\n^~~~~~~~~~\n```\n[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.**\n```r\n​LAMBDA_var <- 0.1 #Thin plate spline smoothing. Lambda=0 would be interpolation.\n^~~~~~~~~~\n```\n[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.**\n```r\n​RESOLUTION_var <- 500 #Plot width in pixels\n^~~~~~~~~~~~~~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 1016,\n^~\n```\n[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.**\n```r\n​IJ <-data.frame(maxX = 1016,\n   ^~~\n```\n[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.**\n```r\n​                deltaX = (1016-25)/18,\n                             ~^~\n```\n[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.**\n```r\n​                deltaX = (1016-25)/18,\n                                 ~^~\n```\n[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.**\n```r\n​                deltaY = (923-48)/17)\n                            ~^~\n```\n[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.**\n```r\n​                deltaY = (923-48)/17)\n                                ~^~\n```\n[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.**\n```r\n​        height = 45 ,# height of the counting frame in microns\n                   ~^\n```\n[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.**\n```r\n​        height = 45 ,# height of the counting frame in microns\n                     ^\n```\n[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.**\n```r\n​        extrapolate = TRUE ,          #Predicts densities to the equator.\n                          ~^\n```\n[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.**\n```r\n​        rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​        plot_suppress=TRUE,\n                    ~^~\n```\n[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’**\n```r\n​retinaplot(my_retina, lambda=0.001, polynomial_m=\t2, rotation=30)\n^~~~~~~~~~\n```\n[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.**\n```r\n​retinaplot(my_retina, lambda=0.001, polynomial_m=\t2, rotation=30)\n                           ~^~\n```\n[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.**\n```r\n​retinaplot(my_retina, lambda=0.001, polynomial_m=\t2, rotation=30)\n                                               ~^\n```\n[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.**\n```r\n​retinaplot(my_retina, lambda=0.001, polynomial_m=\t2, rotation=30)\n                                                            ~^~\n```\n[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.**\n```r\n​##' @param retina_list A list containing retina objects, with names(retina_list) all defined.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @param plot Logical, by default false, but when true it will output the plot where the first element in the list is fixed.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @param ... Arguments passed from other functions. You can access the thin plate spline interpolator here.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @return composite_mat Matrix of the composite retina, where the first element of the retina list is fixed.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​vector_retina_composite <- function(retina_list, spin_spatial_res = 128, plot_spatial_res = 512, \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/composite.R:11:97:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L11) *style:* **Trailing whitespace is superfluous.**\n```r\n​vector_retina_composite <- function(retina_list, spin_spatial_res = 128, plot_spatial_res = 512, \n                                                                                                ^\n```\n[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.**\n```r\n​        rotation_degree_list <- compute_rotation_matrix(retina_list, spatial_res = spin_spatial_res, \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/composite.R:14:101:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L14) *style:* **Trailing whitespace is superfluous.**\n```r\n​        rotation_degree_list <- compute_rotation_matrix(retina_list, spatial_res = spin_spatial_res, \n                                                                                                    ^\n```\n[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.**\n```r\n​    sum <- map_vec_sum(retina_list, rotation_degree_list, spatial_res = plot_spatial_res)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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’**\n```r\n​    sum <- map_vec_sum(retina_list, rotation_degree_list, spatial_res = plot_spatial_res)\n           ^~~~~~~~~~~\n```\n[R/composite.R:20:25:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L20) *style:* **Put spaces around all infix operators.**\n```r\n​    composite_mat <- sum/n  #get the average\n                       ~^~\n```\n[R/composite.R:21:14:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L21) *style:* **Trailing whitespace is superfluous.**\n```r\n​    if (plot) \n             ^\n```\n[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.**\n```r\n​        {\n        ^\n```\n[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.**\n```r\n​            plot_from_MAT(MATRIX = composite_mat, extrapolate = TRUE, spatial_res = plot_spatial_res, \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/composite.R:25:102:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L25) *style:* **Trailing whitespace is superfluous.**\n```r\n​            plot_from_MAT(MATRIX = composite_mat, extrapolate = TRUE, spatial_res = plot_spatial_res, \n                                                                                                     ^\n```\n[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.**\n```r\n​                col_levels = 50, contour_levels = 20, contour_breaks_source = c(min(composite_mat), \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/composite.R:26:100:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L26) *style:* **Trailing whitespace is superfluous.**\n```r\n​                col_levels = 50, contour_levels = 20, contour_breaks_source = c(min(composite_mat), \n                                                                                                   ^\n```\n[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.**\n```r\n​                  max(composite_mat)), col_breaks_source = c(min(composite_mat), \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/composite.R:27:81:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L27) *style:* **Trailing whitespace is superfluous.**\n```r\n​                  max(composite_mat)), col_breaks_source = c(min(composite_mat), \n                                                                                ^\n```\n[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.**\n```r\n​                  max(composite_mat)), z1 = Pmol_753$azimuthal_data.datapoints[[1]]$z, \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/composite.R:28:87:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L28) *style:* **Trailing whitespace is superfluous.**\n```r\n​                  max(composite_mat)), z1 = Pmol_753$azimuthal_data.datapoints[[1]]$z, \n                                                                                      ^\n```\n[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.**\n```r\n​##' @param retina_list A list containing retina objects, with names(retina_list) all defined.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @param rotation_indices Each value in this vector will correspond to the amount of rotation applied to each retina in the list.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @param ... Arguments passed from other functions. You can access the thin plate spline interpolator here.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @return sum_mat The sum of all retina objects in the list, with respect to the rotation indices.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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’**\n```r\n​    sum_mat <- mat_from_ret_obj(retina_list[[1]], rotation = 0, ...)\n               ^~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​        sum_mat <- sum_mat + mat_from_ret_obj(retina_list[[i]], rotation_indices[i], \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/composite.R:44:85:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/composite.R#L44) *style:* **Trailing whitespace is superfluous.**\n```r\n​        sum_mat <- sum_mat + mat_from_ret_obj(retina_list[[i]], rotation_indices[i], \n                                                                                    ^\n```\n[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.**\n```r\n​##' You can decide how much to rotate the retina before returning the matrix. You can also pass arguments to the polar plotter.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @param n the number by which to divide the matrix by. Useful when generating partial averages.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @param reflect logical, by default it is TRUE, in order to view the retina from outside the eye (rather than from within.)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​mat_from_ret_obj <- function(retina_object, rotation = 0, n = 1, reflect = TRUE, \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/matrix_retobj.R:12:81:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L12) *style:* **Trailing whitespace is superfluous.**\n```r\n​mat_from_ret_obj <- function(retina_object, rotation = 0, n = 1, reflect = TRUE, \n                                                                                ^\n```\n[R/matrix_retobj.R:17:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L17) *style:* **Trailing whitespace is superfluous.**\n```r\n​    \n^~~~\n```\n[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.**\n```r\n​    az <- mapproject(x = retina_object$trimmed_data[, 2], retina_object$trimmed_data[, \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/matrix_retobj.R:20:87:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L20) *style:* **Trailing whitespace is superfluous.**\n```r\n​    az <- mapproject(x = retina_object$trimmed_data[, 2], retina_object$trimmed_data[, \n                                                                                      ^\n```\n[R/matrix_retobj.R:25:1:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L25) *style:* **Trailing whitespace is superfluous.**\n```r\n​    \n^~~~\n```\n[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.**\n```r\n​    map2fit <- fit_plot_azimuthal(x2, y2, z2, plot_suppress = TRUE, extrapolate = TRUE, \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/matrix_retobj.R:27:88:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L27) *style:* **Trailing whitespace is superfluous.**\n```r\n​    map2fit <- fit_plot_azimuthal(x2, y2, z2, plot_suppress = TRUE, extrapolate = TRUE, \n                                                                                       ^\n```\n[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.**\n```r\n​        outer.radius = pi/2, falciform_coords = retina_object$azimuthal_data.falciform[[1]], \n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​        outer.radius = pi/2, falciform_coords = retina_object$azimuthal_data.falciform[[1]], \n                        ~^~\n```\n[R/matrix_retobj.R:28:93:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/matrix_retobj.R#L28) *style:* **Trailing whitespace is superfluous.**\n```r\n​        outer.radius = pi/2, falciform_coords = retina_object$azimuthal_data.falciform[[1]], \n                                                                                            ^\n```\n[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.**\n```r\n​    MAT <- map2fit[[2]]$z\n    ^~~\n```\n[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.**\n```r\n​    return(MAT/n)\n             ~^~\n```\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.**\n```r\n​##' Shows a visualization of the outline, as well as the location of each datapoint so the user can identify where the tears are.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @param path_to_retina_data_folder The path to the folder that contains the outline.roi file.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​##' @return roi_coordinates XY vals of pixel coordinates of the outline points, in order.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​\troi_object <- RImageJROI::read.ijroi(file.path(path_to_retina_data_folder, \"outline.roi\"))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​\troi_object <- RImageJROI::read.ijroi(file.path(path_to_retina_data_folder, \"outline.roi\"))\n^\n```\n[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.**\n```r\n​\t\t## ImageJ ROI format plots has the coordinate (0, 0) in the top\n^~\n```\n[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.**\n```r\n​\t\t  ## left.  We have the coordinate (0, 0) in the bottom left. We need\n^~\n```\n[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.**\n```r\n​\t\t  ## to transform P so that the outline appears in the correct\n^~\n```\n[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.**\n```r\n​\t\t  ## orientation.\n^~\n```\n[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.**\n```r\n​\t\t\tim <- NULL\n^~~\n```\n[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.**\n```r\n​\t\t  roi_XY_coords <- roi_object$coords\n^~\n```\n[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.**\n```r\n​\t\t  roi_XY_coords <- roi_object$coords\n    ^~~~~~~~~~~~~\n```\n[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.**\n```r\n​\t\t  offset <- ifelse(is.null(im), max(roi_XY_coords[,2]), nrow(im))\n^~\n```\n[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.**\n```r\n​\t\t  offset <- ifelse(is.null(im), max(roi_XY_coords[,2]), nrow(im))\n                                                     ^\n```\n[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.**\n```r\n​\t\t  roi_XY_coords[,2] <- offset - roi_XY_coords[,2]\n^~\n```\n[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.**\n```r\n​\t\t  roi_XY_coords[,2] <- offset - roi_XY_coords[,2]\n                   ^\n```\n[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.**\n```r\n​\t\t  roi_XY_coords[,2] <- offset - roi_XY_coords[,2]\n                                                 ^\n```\n[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.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n^\n```\n[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.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n                        ~^~\n```\n[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.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n                                 ~^~\n```\n[R/plotting_functions.R:24:36:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Only use double-quotes.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n                                   ^~~~~~~~~\n```\n[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.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n                                                ~^~\n```\n[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.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n                                                        ~^~\n```\n[R/plotting_functions.R:24:59:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Only use double-quotes.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n                                                          ^~~~~~~~~~\n```\n[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.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n                                                                         ~^~\n```\n[R/plotting_functions.R:24:76:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L24) *style:* **Only use double-quotes.**\n```r\n​\tplot(roi_XY_coords, type=\"l\", col='#d3d3d3', asp=1, xlab='X Pixels', ylab='Y Pixels');\n                                                                           ^~~~~~~~~~\n```\n[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.**\n```r\n​\ttext(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​\ttext(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)\n^\n```\n[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.**\n```r\n​\ttext(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)\n                     ^\n```\n[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.**\n```r\n​\ttext(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)\n                        ^\n```\n[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.**\n```r\n​\ttext(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)\n                                       ^\n```\n[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.**\n```r\n​\ttext(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)\n                                                ~^~\n```\n[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.**\n```r\n​\ttext(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)\n                                                                          ^\n```\n[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.**\n```r\n​\ttext(roi_XY_coords[,1],roi_XY_coords[,2], labels=1:length(roi_XY_coords[,1]), cex=0.5)\n                                                                                 ~^~\n```\n[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.**\n```r\n​ \tmessage('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.')\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[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.**\n```r\n​ \tmessage('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.')\n^~\n```\n[R/plotting_functions.R:26:11:](https://github.com/bc/retina/blob/0a7d7c0d4c8b7c5315eebfefb2fb54dea3acccea/R/plotting_functions.R#L26) *style:* **Only use double-quotes.**\n```r\n​ \tmessage('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.')\n          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n"}}
{"actor":{"display_login":"lintr-bot"}}