{"comment":{"url":"https://api.github.com/repos/mwaldstein/pds3/comments/29081064","html_url":"https://github.com/mwaldstein/pds3/commit/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee#commitcomment-29081064","id":29081064,"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":"e06901eb1ffbe318d34bc20062b8a6b015e7d1ee","created_at":"2018-05-22T13:19:55Z","updated_at":"2018-05-22T13:19:55Z","author_association":"NONE","body":"[R/lexer.R:1:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L1) *style:* **Lines should not be more than 80 characters.**\n```r\n​# Reference: https://pds.jpl.nasa.gov/datastandards/pds3/standards/sr/Chapter12.pdf\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/lexer.R:6:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L6) *style:* **Variable or function name should be snake_case.**\n```r\n​TOKENS <- c(\"IDENTIFIER\", \"POINTER\", \"STRING\", \"SYMBOL\",\n^~~~~~\n```\n[R/lexer.R:13:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L13) *style:* **Variable or function name should be snake_case.**\n```r\n​LITERALS <- c(\"(\", \")\", \",\", \"=\", \"{\", \"}\")\n^~~~~~~~\n```\n[R/lexer.R:20:29:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L20) *style:* **Only use double-quotes.**\n```r\n​    t_POINTER = function(re='\\\\^[A-Z][A-Z0-9_]+', t) {\n                            ^~~~~~~~~~~~~~~~~~~~\n```\n[R/lexer.R:35:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L35) *style:* **Lines should not be more than 80 characters.**\n```r\n​      '\\\\d{4}\\\\-(\\\\d{2}\\\\-\\\\d{2}|\\\\d{3})(T\\\\d{2}:\\\\d{2}(:\\\\d{2}(.\\\\d+)?)?)?(\\\\+\\\\d+|\\\\-\\\\d+|Z)?',\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/lexer.R:35:7:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L35) *style:* **Only use double-quotes.**\n```r\n​      '\\\\d{4}\\\\-(\\\\d{2}\\\\-\\\\d{2}|\\\\d{3})(T\\\\d{2}:\\\\d{2}(:\\\\d{2}(.\\\\d+)?)?)?(\\\\+\\\\d+|\\\\-\\\\d+|Z)?',\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/lexer.R:45:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L45) *style:* **Lines should not be more than 80 characters.**\n```r\n​      '[+-]?(\\\\d+[Ee][+-]?[0-9]+|((\\\\d+\\\\.\\\\d+|\\\\d+\\\\.|\\\\.\\\\d+)([Ee][+-]?[0-9]+)?))',\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/lexer.R:45:7:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L45) *style:* **Only use double-quotes.**\n```r\n​      '[+-]?(\\\\d+[Ee][+-]?[0-9]+|((\\\\d+\\\\.\\\\d+|\\\\d+\\\\.|\\\\.\\\\d+)([Ee][+-]?[0-9]+)?))',\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/lexer.R:51:26:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L51) *style:* **Only use double-quotes.**\n```r\n​    t_BINT = function(re='[0-9]+#[+-]?[0-9A-Fa-f]+#',t) {\n                         ^~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/lexer.R:51:54:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L51) *style:* **Commas should always have a space after.**\n```r\n​    t_BINT = function(re='[0-9]+#[+-]?[0-9A-Fa-f]+#',t) {\n                                                     ^\n```\n[R/lexer.R:57:26:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L57) *style:* **Only use double-quotes.**\n```r\n​    t_DINT = function(re='[+-]?[0-9]+', t) {\n                         ^~~~~~~~~~~~~\n```\n[R/lexer.R:61:14:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L61) *style:* **Only use double-quotes.**\n```r\n​    t_UNIT = '<[^>]+>',\n             ^~~~~~~~~\n```\n[R/lexer.R:62:32:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L62) *style:* **Only use double-quotes.**\n```r\n​    t_IDENTIFIER = function(re='[A-Z][A-Z0-9_:]+', t) {\n                               ^~~~~~~~~~~~~~~~~~\n```\n[R/lexer.R:72:29:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/lexer.R#L72) *style:* **Only use double-quotes.**\n```r\n​    t_COMMENT = function(re='/\\\\*.+?\\\\*/', t) {\n                            ^~~~~~~~~~~~~\n```\n[R/parser.R:3:31:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L3) *style:* **Only use double-quotes.**\n```r\n​    tokens = TOKENS[TOKENS != 'COMMENT'],\n                              ^~~~~~~~~\n```\n[R/parser.R:10:9:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L10) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​      if(p$length() == 2) {\n        ^\n```\n[R/parser.R:12:16:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L12) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​      } else if(length(p$get(3)) == 1 && p$get(3) == \"END\") {\n               ^\n```\n[R/parser.R:43:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L43) *style:* **Lines should not be more than 80 characters.**\n```r\n​                                                      | sequence_values value ','\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/parser.R:44:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L44) *style:* **Lines should not be more than 80 characters.**\n```r\n​                                                      | sequence_values value\", p) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/parser.R:47:38:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L47) *style:* **Only use double-quotes.**\n```r\n​      } else if (typeof(p$get(2)) == 'list' && !is.null(p$get(2)$unit)) {\n                                     ^~~~~~\n```\n[R/parser.R:58:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L58) *style:* **Lines should not be more than 80 characters.**\n```r\n​    p_detailed_pointer = function(doc=\"pointer : POINTER '=' '(' STRING ',' DINT ')'\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/parser.R:60:28:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L60) *style:* **Only use double-quotes.**\n```r\n​      tmp <- list(action = 'pointer', name = p$get(2))\n                           ^~~~~~~~~\n```\n[R/parser.R:71:28:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L71) *style:* **Only use double-quotes.**\n```r\n​      tmp <- list(action = 'assignment',\n                           ^~~~~~~~~~~~\n```\n[R/parser.R:83:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L83) *style:* **Lines should not be more than 80 characters.**\n```r\n​                                              | BEGIN_OBJECT '=' IDENTIFIER\", p) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/parser.R:84:28:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L84) *style:* **Only use double-quotes.**\n```r\n​      tmp <- list(action = 'group_start',\n                           ^~~~~~~~~~~~~\n```\n[R/parser.R:92:28:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L92) *style:* **Only use double-quotes.**\n```r\n​      tmp <- list(action = 'group_end')\n                           ^~~~~~~~~~~\n```\n[R/parser.R:100:9:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/parser.R#L100) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​      if(is.null(p)) cat(\"Syntax error at EOF\")\n        ^\n```\n[R/read_pds3.R:38:39:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/read_pds3.R#L38) *style:* **Only use double-quotes.**\n```r\n​  dat <- list(label = x, extra_data = '')\n                                      ^~\n```\n[R/read_pds3.R:40:12:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/read_pds3.R#L40) *warning:* **no visible global function definition for ‘extract’**\n```r\n​    dat <- extract(x)\n           ^~~~~~~\n```\n[R/read_pds3.R:43:14:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/read_pds3.R#L43) *warning:* **no visible global function definition for ‘reduce’, Did you mean 'Reduce'?**\n```r\n​  dat$odl <- reduce(util$parser$parse(dat$label, util$lexer))\n             ^~~~~~\n```\n[R/reducer.R:10:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/reducer.R#L10) *style:* **Lines should not be more than 80 characters.**\n```r\n​    if (cmd$action == 'assignment') obj_stack[[length(obj_stack)]][[cmd$name]] <- cmd$value\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/reducer.R:10:23:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/reducer.R#L10) *style:* **Only use double-quotes.**\n```r\n​    if (cmd$action == 'assignment') obj_stack[[length(obj_stack)]][[cmd$name]] <- cmd$value\n                      ^~~~~~~~~~~~\n```\n[R/reducer.R:11:28:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/reducer.R#L11) *style:* **Only use double-quotes.**\n```r\n​    else if (cmd$action == 'group_start') {\n                           ^~~~~~~~~~~~~\n```\n[R/reducer.R:14:30:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/reducer.R#L14) *style:* **Only use double-quotes.**\n```r\n​    } else if (cmd$action == 'group_end') {\n                             ^~~~~~~~~~~\n```\n[R/reducer.R:15:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/reducer.R#L15) *style:* **Lines should not be more than 80 characters.**\n```r\n​      obj_stack[[length(obj_stack) - 1]][[name_stack[1]]] <- obj_stack[[length(obj_stack)]]\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/reducer.R:22:30:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/reducer.R#L22) *style:* **Only use double-quotes.**\n```r\n​    } else if (cmd$action == 'pointer') {\n                             ^~~~~~~~~\n```\n[R/reducer.R:23:1:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/reducer.R#L23) *style:* **Lines should not be more than 80 characters.**\n```r\n​      obj_stack[[length(obj_stack)]][[cmd$name]] <- list(value = cmd$value, offset = cmd$offset)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/util.R:1:21:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/util.R#L1) *style:* **Remove spaces before the left parenthesis in a function call.**\n```r\n​extract <- function (string) {\n                    ^\n```\n[R/util.R:3:16:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/util.R#L3) *warning:* **no visible global function definition for ‘end_pos’**\n```r\n​  end_label <- end_pos(string)\n               ^~~~~~~\n```\n[R/util.R:20:5:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/util.R#L20) *style:* **Commented code should be removed.**\n```r\n​  # m <- gregexpr(\"\\\\bEND\\\\b\", string, perl = T)\n    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/util.R:21:5:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/util.R#L21) *style:* **Commented code should be removed.**\n```r\n​  # end_label<- max(m[[1]]) + 2\n    ^~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/util.R:22:21:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/util.R#L22) *warning:* **no visible binding for global variable ‘odl_lexer’**\n```r\n​  lexer <- rly::lex(odl_lexer)\n                    ^~~~~~~~~\n```\n[R/util.R:28:28:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/util.R#L28) *style:* **Remove spaces before the left parenthesis in a function call.**\n```r\n​    if (is.null(t)) return (-1)\n                           ^\n```\n[R/util.R:29:19:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/R/util.R#L29) *style:* **Only use double-quotes.**\n```r\n​    if (t$type == 'END') return(t$lexpos + 2)\n                  ^~~~~\n```\n[tests/testthat/test_files.R:1:9:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_files.R#L1) *style:* **Only use double-quotes.**\n```r\n​context('Real file tests')\n        ^~~~~~~~~~~~~~~~~\n```\n[tests/testthat/test_files.R:5:3:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_files.R#L5) *style:* **Variable or function name should be snake_case.**\n```r\n​  file.name <- \"mv10110413_6000000_001_rr.lbl\"\n  ^~~~~~~~~\n```\n[tests/testthat/test_files.R:6:3:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_files.R#L6) *style:* **Variable or function name should be snake_case.**\n```r\n​  test.file <- file.path(\"..\", \"testdata\", file.name)\n  ^~~~~~~~~\n```\n[tests/testthat/test_files.R:19:3:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_files.R#L19) *style:* **Variable or function name should be snake_case.**\n```r\n​  file.name <- \"ESP_011707_1440_COLOR.LBL\"\n  ^~~~~~~~~\n```\n[tests/testthat/test_files.R:20:3:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_files.R#L20) *style:* **Variable or function name should be snake_case.**\n```r\n​  test.file <- file.path(\"..\", \"testdata\", file.name)\n  ^~~~~~~~~\n```\n[tests/testthat/test_lexer.R:6:3:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_lexer.R#L6) *warning:* **no visible binding for global variable ‘lexer’**\n```r\n​  lexer$input(string)\n  ^~~~~\n```\n[tests/testthat/test_lexer.R:7:3:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_lexer.R#L7) *warning:* **local variable ‘token’ assigned but may not be used**\n```r\n​  token <- lexer$token()\n  ^~~~~\n```\n[tests/testthat/test_lexer.R:7:12:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_lexer.R#L7) *warning:* **no visible binding for global variable ‘lexer’**\n```r\n​  token <- lexer$token()\n           ^~~~~\n```\n[tests/testthat/test_lexer.R:11:3:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_lexer.R#L11) *warning:* **no visible global function definition for ‘expect_null’**\n```r\n​  expect_null(lexer$token())\n  ^~~~~~~~~~~\n```\n[tests/testthat/test_lexer.R:11:15:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_lexer.R#L11) *warning:* **no visible binding for global variable ‘lexer’**\n```r\n​  expect_null(lexer$token())\n              ^~~~~\n```\n[tests/testthat/test_lexer.R:22:17:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_lexer.R#L22) *style:* **Commented code should be removed.**\n```r\n​  tests <- c(\"2#1001011#\", \"8#113#\", \"10#75#\", \"16#4B#\", \"16#+4B#\", \"16#-4B#\")\n                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/test_reducer.R:58:35:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_reducer.R#L58) *style:* **Only use double-quotes.**\n```r\n​  expect_equal(res$OBJECT1$TEST2, 'INNER')\n                                  ^~~~~~~\n```\n[tests/testthat/test_reducer.R:80:5:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_reducer.R#L80) *style:* **Commented code should be removed.**\n```r\n​  # cat(\"\\n\")\n    ^~~~~~~~~\n```\n[tests/testthat/test_reducer.R:81:5:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_reducer.R#L81) *style:* **Commented code should be removed.**\n```r\n​  # str(res)\n    ^~~~~~~~\n```\n[tests/testthat/test_reducer.R:82:5:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_reducer.R#L82) *style:* **Commented code should be removed.**\n```r\n​  # cat(\"\\n\")\n    ^~~~~~~~~\n```\n[tests/testthat/test_reducer.R:83:5:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_reducer.R#L83) *style:* **Commented code should be removed.**\n```r\n​  # print(res)\n    ^~~~~~~~~~\n```\n[tests/testthat/test_reducer.R:84:5:](https://github.com/mwaldstein/pds3/blob/e06901eb1ffbe318d34bc20062b8a6b015e7d1ee/tests/testthat/test_reducer.R#L84) *style:* **Commented code should be removed.**\n```r\n​  # print(res$TEST)\n    ^~~~~~~~~~~~~~~\n```"}}
{"actor":{"display_login":"lintr-bot"}}