[R/getAvailablePoints.R:3:20:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L3) *style:* **Commas should always have a space after.**
```r
test <- function(a,point,c){
                   ^
```
[R/getAvailablePoints.R:3:26:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L3) *style:* **Commas should always have a space after.**
```r
test <- function(a,point,c){
                         ^
```
[R/getAvailablePoints.R:4:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L4) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(point)){
    ^
```
[R/getAvailablePoints.R:5:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L5) *style:* **Lines should not be more than 40 characters.**
```r
    all_available_points<<-c(all_available_points,point)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:5:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L5) *warning:* **no visible binding for '<<-' assignment to ‘all_available_points’**
```r
    all_available_points<<-c(all_available_points,point)
    ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:5:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L5) *warning:* **no visible binding for global variable ‘all_available_points’**
```r
    all_available_points<<-c(all_available_points,point)
    ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:5:25:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L5) *style:* **Put spaces around all infix operators.**
```r
    all_available_points<<-c(all_available_points,point)
                       ~^~~~
```
[R/getAvailablePoints.R:5:51:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L5) *style:* **Commas should always have a space after.**
```r
    all_available_points<<-c(all_available_points,point)
                                                  ^
```
[R/getAvailablePoints.R:9:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L9) *style:* **Variable or function name should be snake_case.**
```r
pointsForAllTests<-function(point){
^~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:9:18:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L9) *style:* **Put spaces around all infix operators.**
```r
pointsForAllTests<-function(point){
                ~^~~
```
[R/getAvailablePoints.R:10:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L10) *style:* **Lines should not be more than 40 characters.**
```r
  all_available_points<<-c(all_available_points,point)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:10:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L10) *warning:* **no visible binding for '<<-' assignment to ‘all_available_points’**
```r
  all_available_points<<-c(all_available_points,point)
  ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:10:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L10) *warning:* **no visible binding for global variable ‘all_available_points’**
```r
  all_available_points<<-c(all_available_points,point)
  ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:10:23:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L10) *style:* **Put spaces around all infix operators.**
```r
  all_available_points<<-c(all_available_points,point)
                     ~^~~~
```
[R/getAvailablePoints.R:10:49:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L10) *style:* **Commas should always have a space after.**
```r
  all_available_points<<-c(all_available_points,point)
                                                ^
```
[R/getAvailablePoints.R:13:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L13) *style:* **Lines should not be more than 40 characters.**
```r
getAvailablePoints <-function(project_path){
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:13:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L13) *style:* **Variable or function name should be snake_case.**
```r
getAvailablePoints <-function(project_path){
^~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:13:20:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L13) *style:* **Put spaces around all infix operators.**
```r
getAvailablePoints <-function(project_path){
                   ^~~
```
[R/getAvailablePoints.R:15:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L15) *warning:* **no visible binding for '<<-' assignment to ‘all_available_points’**
```r
  all_available_points <<- c()
  ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:16:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L16) *style:* **Lines should not be more than 40 characters.**
```r
  testFiles <- list.files(path="tests/testthat", pattern = "test.*\\.R", full.names = T, recursive = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:16:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  testFiles <- list.files(path="tests/testthat", pattern = "test.*\\.R", full.names = T, recursive = FALSE)
  ^~~~~~~~~
```
[R/getAvailablePoints.R:16:31:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L16) *style:* **Put spaces around all infix operators.**
```r
  testFiles <- list.files(path="tests/testthat", pattern = "test.*\\.R", full.names = T, recursive = FALSE)
                             ~^~
```
[R/getAvailablePoints.R:18:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L18) *style:* **Lines should not be more than 40 characters.**
```r
    test_file(testFile, reporter = "silent",load_helpers=FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:18:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L18) *warning:* **no visible global function definition for ‘test_file’, Did you mean 'testFile'?**
```r
    test_file(testFile, reporter = "silent",load_helpers=FALSE)
    ^~~~~~~~~
```
[R/getAvailablePoints.R:18:45:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L18) *style:* **Commas should always have a space after.**
```r
    test_file(testFile, reporter = "silent",load_helpers=FALSE)
                                            ^
```
[R/getAvailablePoints.R:18:57:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L18) *style:* **Put spaces around all infix operators.**
```r
    test_file(testFile, reporter = "silent",load_helpers=FALSE)
                                                       ~^~
```
[R/getAvailablePoints.R:20:10:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/getAvailablePoints.R#L20) *warning:* **no visible binding for global variable ‘all_available_points’**
```r
  return(all_available_points)
         ^~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:2:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L2) *style:* **Lines should not be more than 40 characters.**
```r
.CreateJsonResults <- function(testthatOutput) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:2:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L2) *style:* **Variable or function name should be snake_case.**
```r
.CreateJsonResults <- function(testthatOutput) {
^~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:2:32:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L2) *style:* **Variable or function name should be snake_case.**
```r
.CreateJsonResults <- function(testthatOutput) {
                               ^~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:3:11:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L3) *style:* **Use <-, not =, for assignment.**
```r
  results = list()
          ^
```
[R/ResultsJsonParser.R:5:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L5) *style:* **Variable or function name should be snake_case.**
```r
    testName <- test$test
    ^~~~~~~~
```
[R/ResultsJsonParser.R:6:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L6) *style:* **Variable or function name should be snake_case.**
```r
    testPoints <- test$points
    ^~~~~~~~~~
```
[R/ResultsJsonParser.R:7:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L7) *style:* **Variable or function name should be snake_case.**
```r
    testMessage <- ""
    ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:10:7:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L10) *style:* **Variable or function name should be snake_case.**
```r
      testStatus <- "pass"
      ^~~~~~~~~~
```
[R/ResultsJsonParser.R:12:7:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L12) *style:* **Variable or function name should be snake_case.**
```r
      testStatus <- "fail"
      ^~~~~~~~~~
```
[R/ResultsJsonParser.R:13:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L13) *style:* **Lines should not be more than 40 characters.**
```r
      testMessage <- .CreateMessageForTestWithFailures(test)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:13:7:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L13) *style:* **Variable or function name should be snake_case.**
```r
      testMessage <- .CreateMessageForTestWithFailures(test)
      ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:13:22:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L13) *warning:* **no visible global function definition for ‘.CreateMessageForTestWithFailures’**
```r
      testMessage <- .CreateMessageForTestWithFailures(test)
                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:16:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L16) *style:* **Lines should not be more than 40 characters.**
```r
    testResult <- .CreateJsonTestResult(testStatus, testName, testMessage,testPoints, "")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:16:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L16) *style:* **Variable or function name should be snake_case.**
```r
    testResult <- .CreateJsonTestResult(testStatus, testName, testMessage,testPoints, "")
    ^~~~~~~~~~
```
[R/ResultsJsonParser.R:16:19:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L16) *warning:* **no visible global function definition for ‘.CreateJsonTestResult’**
```r
    testResult <- .CreateJsonTestResult(testStatus, testName, testMessage,testPoints, "")
                  ^~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:16:75:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L16) *style:* **Commas should always have a space after.**
```r
    testResult <- .CreateJsonTestResult(testStatus, testName, testMessage,testPoints, "")
                                                                          ^
```
[R/ResultsJsonParser.R:18:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L18) *style:* **Lines should not be more than 40 characters.**
```r
    results[[length(results)+1]] <- testResult
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:18:29:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L18) *style:* **Put spaces around all infix operators.**
```r
    results[[length(results)+1]] <- testResult
                           ~^~
```
[R/ResultsJsonParser.R:20:10:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L20) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (results)
         ^
```
[R/ResultsJsonParser.R:23:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L23) *style:* **Lines should not be more than 40 characters.**
```r
#Creates JSON for each different test case.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:24:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L24) *style:* **Lines should not be more than 40 characters.**
```r
.CreateJsonTestResult <- function(testStatus, testName, testMessage,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:24:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L24) *style:* **Variable or function name should be snake_case.**
```r
.CreateJsonTestResult <- function(testStatus, testName, testMessage,
^~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:24:35:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L24) *style:* **Variable or function name should be snake_case.**
```r
.CreateJsonTestResult <- function(testStatus, testName, testMessage,
                                  ^~~~~~~~~~
```
[R/ResultsJsonParser.R:24:47:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L24) *style:* **Variable or function name should be snake_case.**
```r
.CreateJsonTestResult <- function(testStatus, testName, testMessage,
                                              ^~~~~~~~
```
[R/ResultsJsonParser.R:24:57:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L24) *style:* **Variable or function name should be snake_case.**
```r
.CreateJsonTestResult <- function(testStatus, testName, testMessage,
                                                        ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:25:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L25) *style:* **Lines should not be more than 40 characters.**
```r
                                  testPoints, backtrace) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:25:35:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L25) *style:* **Variable or function name should be snake_case.**
```r
                                  testPoints, backtrace) {
                                  ^~~~~~~~~~
```
[R/ResultsJsonParser.R:26:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L26) *style:* **Lines should not be more than 40 characters.**
```r
  testResult <- list(status=unbox(testStatus),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:26:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L26) *style:* **Variable or function name should be snake_case.**
```r
  testResult <- list(status=unbox(testStatus),
  ^~~~~~~~~~
```
[R/ResultsJsonParser.R:26:28:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L26) *style:* **Put spaces around all infix operators.**
```r
  testResult <- list(status=unbox(testStatus),
                          ~^~
```
[R/ResultsJsonParser.R:27:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L27) *style:* **Lines should not be more than 40 characters.**
```r
                     name=unbox(format(testName)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:27:26:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L27) *style:* **Put spaces around all infix operators.**
```r
                     name=unbox(format(testName)),
                        ~^~
```
[R/ResultsJsonParser.R:28:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L28) *style:* **Lines should not be more than 40 characters.**
```r
                     message=unbox(testMessage),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:28:29:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L28) *style:* **Put spaces around all infix operators.**
```r
                     message=unbox(testMessage),
                           ~^~
```
[R/ResultsJsonParser.R:29:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L29) *style:* **Lines should not be more than 40 characters.**
```r
                     backtrace=unbox(backtrace),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:29:31:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L29) *style:* **Put spaces around all infix operators.**
```r
                     backtrace=unbox(backtrace),
                             ~^~
```
[R/ResultsJsonParser.R:30:28:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L30) *style:* **Put spaces around all infix operators.**
```r
                     points=testPoints)
                          ~^~
```
[R/ResultsJsonParser.R:35:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L35) *style:* **Lines should not be more than 40 characters.**
```r
#Currently supports only results that used calls
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:36:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L36) *style:* **Lines should not be more than 40 characters.**
```r
.MessageFromFailedResult <- function(result) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:36:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L36) *style:* **Variable or function name should be snake_case.**
```r
.MessageFromFailedResult <- function(result) {
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:40:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L40) *style:* **Lines should not be more than 40 characters.**
```r
  #language that failed the test. for example call expect_equal(1,2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:42:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L42) *style:* **Lines should not be more than 40 characters.**
```r
  return (paste(sep="", "Failed with call: ", language,"\n", result$message))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:42:10:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L42) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (paste(sep="", "Failed with call: ", language,"\n", result$message))
         ^
```
[R/ResultsJsonParser.R:42:20:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L42) *style:* **Put spaces around all infix operators.**
```r
  return (paste(sep="", "Failed with call: ", language,"\n", result$message))
                  ~^~
```
[R/ResultsJsonParser.R:42:56:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L42) *style:* **Commas should always have a space after.**
```r
  return (paste(sep="", "Failed with call: ", language,"\n", result$message))
                                                       ^
```
[R/ResultsJsonParser.R:45:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L45) *style:* **Lines should not be more than 40 characters.**
```r
.CreateMessageForTestWithFailures <- function(test) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:45:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L45) *style:* **Variable and function names should not be longer than 30 characters.**
```r
.CreateMessageForTestWithFailures <- function(test) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:45:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L45) *style:* **Variable or function name should be snake_case.**
```r
.CreateMessageForTestWithFailures <- function(test) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:46:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L46) *style:* **Variable or function name should be snake_case.**
```r
  testMessage <- ""
  ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:48:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L48) *style:* **Lines should not be more than 40 characters.**
```r
    if (format(result) != "As expected") {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:49:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L49) *style:* **Lines should not be more than 40 characters.**
```r
      testMessage <- paste(sep = "", testMessage, .MessageFromFailedResult(result))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:49:7:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L49) *style:* **Variable or function name should be snake_case.**
```r
      testMessage <- paste(sep = "", testMessage, .MessageFromFailedResult(result))
      ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:49:51:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L49) *warning:* **no visible global function definition for ‘.MessageFromFailedResult’**
```r
      testMessage <- paste(sep = "", testMessage, .MessageFromFailedResult(result))
                                                  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:55:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L55) *style:* **Lines should not be more than 40 characters.**
```r
#Writes JSON based on the whole test result.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:56:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L56) *style:* **Variable or function name should be snake_case.**
```r
.WriteJson <- function(results) {
^~~~~~~~~~
```
[R/ResultsJsonParser.R:58:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L58) *style:* **Lines should not be more than 40 characters.**
```r
  json <- enc2utf8(toJSON(results, pretty = FALSE))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:58:20:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L58) *warning:* **no visible global function definition for ‘toJSON’**
```r
  json <- enc2utf8(toJSON(results, pretty = FALSE))
                   ^~~~~~
```
[R/ResultsJsonParser.R:59:11:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L59) *warning:* **no visible global function definition for ‘prettify’, Did you mean 'pretty'?**
```r
  json <- prettify(json)
          ^~~~~~~~
```
[R/ResultsJsonParser.R:65:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L65) *style:* **Lines should not be more than 40 characters.**
```r
.PrintResultsFromJson <- function(jsonResult) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:65:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L65) *style:* **Variable or function name should be snake_case.**
```r
.PrintResultsFromJson <- function(jsonResult) {
^~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:65:35:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L65) *style:* **Variable or function name should be snake_case.**
```r
.PrintResultsFromJson <- function(jsonResult) {
                                  ^~~~~~~~~~
```
[R/ResultsJsonParser.R:67:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L67) *style:* **Lines should not be more than 40 characters.**
```r
    cat(sep = "", test$name, ": ", test$status, "\n")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:69:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/ResultsJsonParser.R#L69) *style:* **Lines should not be more than 40 characters.**
```r
      cat(sep = "", "\n", test$message, "\n")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:1:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L1) *style:* **Lines should not be more than 40 characters.**
```r
# Runs the tests from project directory and writes results JSON to the root of the project
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:5:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L5) *style:* **Lines should not be more than 40 characters.**
```r
#  project_path: The absolute path to the root of the project being tested.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:6:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L6) *style:* **Lines should not be more than 40 characters.**
```r
#  print: If TRUE, prints results; if not, not. DEFAULT is FALSE.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:8:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L8) *style:* **Lines should not be more than 40 characters.**
```r
runTests <- function(projectPath, print=FALSE) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:8:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L8) *style:* **Variable or function name should be snake_case.**
```r
runTests <- function(projectPath, print=FALSE) {
^~~~~~~~
```
[R/RunTests.R:8:22:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L8) *style:* **Variable or function name should be snake_case.**
```r
runTests <- function(projectPath, print=FALSE) {
                     ^~~~~~~~~~~
```
[R/RunTests.R:9:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  tmcrTestRunnerProjectPath <- getwd()
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:11:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L11) *style:* **Lines should not be more than 40 characters.**
```r
  #runs test for project, returns testthatOuput with added points.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:12:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L12) *style:* **Lines should not be more than 40 characters.**
```r
  testthatOutput <- .RunTestsProject(projectPath)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:12:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  testthatOutput <- .RunTestsProject(projectPath)
  ^~~~~~~~~~~~~~
```
[R/RunTests.R:12:21:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L12) *warning:* **no visible global function definition for ‘.RunTestsProject’**
```r
  testthatOutput <- .RunTestsProject(projectPath)
                    ^~~~~~~~~~~~~~~~
```
[R/RunTests.R:14:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L14) *style:* **Lines should not be more than 40 characters.**
```r
  jsonResults <- .CreateJsonResults(testthatOutput)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:14:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L14) *style:* **Variable or function name should be snake_case.**
```r
  jsonResults <- .CreateJsonResults(testthatOutput)
  ^~~~~~~~~~~
```
[R/RunTests.R:14:18:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L14) *warning:* **no visible global function definition for ‘.CreateJsonResults’**
```r
  jsonResults <- .CreateJsonResults(testthatOutput)
                 ^~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:15:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L15) *warning:* **no visible global function definition for ‘.WriteJson’**
```r
  .WriteJson(jsonResults)
  ^~~~~~~~~~
```
[R/RunTests.R:18:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L18) *warning:* **no visible global function definition for ‘.PrintResultsFromJson’**
```r
    .PrintResultsFromJson(jsonResults)
    ^~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:24:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L24) *style:* **Lines should not be more than 40 characters.**
```r
.RunTestsProject <- function(projectPath) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:24:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L24) *style:* **Variable or function name should be snake_case.**
```r
.RunTestsProject <- function(projectPath) {
^~~~~~~~~~~~~~~~
```
[R/RunTests.R:24:30:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L24) *style:* **Variable or function name should be snake_case.**
```r
.RunTestsProject <- function(projectPath) {
                             ^~~~~~~~~~~
```
[R/RunTests.R:27:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  testthatOutput <- list()
  ^~~~~~~~~~~~~~
```
[R/RunTests.R:29:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L29) *style:* **Lines should not be more than 40 characters.**
```r
  #Lists all the files in the path beginning with "test" and ending in ".R"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:30:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L30) *style:* **Lines should not be more than 40 characters.**
```r
  testFiles <- list.files(path="tests/testthat", pattern = "test.*\\.R", full.names = T, recursive = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:30:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  testFiles <- list.files(path="tests/testthat", pattern = "test.*\\.R", full.names = T, recursive = FALSE)
  ^~~~~~~~~
```
[R/RunTests.R:30:31:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L30) *style:* **Put spaces around all infix operators.**
```r
  testFiles <- list.files(path="tests/testthat", pattern = "test.*\\.R", full.names = T, recursive = FALSE)
                             ~^~
```
[R/RunTests.R:33:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L33) *style:* **Lines should not be more than 40 characters.**
```r
    testFileOutput <- .RunTestsFile(testFile)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:33:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L33) *style:* **Variable or function name should be snake_case.**
```r
    testFileOutput <- .RunTestsFile(testFile)
    ^~~~~~~~~~~~~~
```
[R/RunTests.R:33:23:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L33) *warning:* **no visible global function definition for ‘.RunTestsFile’**
```r
    testFileOutput <- .RunTestsFile(testFile)
                      ^~~~~~~~~~~~~
```
[R/RunTests.R:34:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L34) *style:* **Lines should not be more than 40 characters.**
```r
    testthatOutput <- c(testthatOutput, testFileOutput)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:34:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L34) *style:* **Variable or function name should be snake_case.**
```r
    testthatOutput <- c(testthatOutput, testFileOutput)
    ^~~~~~~~~~~~~~
```
[R/RunTests.R:39:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L39) *style:* **Variable or function name should be snake_case.**
```r
.RunTestsFile <- function(filePath) {
^~~~~~~~~~~~~
```
[R/RunTests.R:39:27:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L39) *style:* **Variable or function name should be snake_case.**
```r
.RunTestsFile <- function(filePath) {
                          ^~~~~~~~
```
[R/RunTests.R:41:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L41) *style:* **Lines should not be more than 40 characters.**
```r
  .GlobalEnv$points_for_all_tests <- list()
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:43:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L43) *style:* **Lines should not be more than 40 characters.**
```r
  testFileOutput <- test_file(filePath, reporter = "silent")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:43:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L43) *style:* **Variable or function name should be snake_case.**
```r
  testFileOutput <- test_file(filePath, reporter = "silent")
  ^~~~~~~~~~~~~~
```
[R/RunTests.R:43:21:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L43) *warning:* **no visible global function definition for ‘test_file’**
```r
  testFileOutput <- test_file(filePath, reporter = "silent")
                    ^~~~~~~~~
```
[R/RunTests.R:44:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L44) *style:* **Lines should not be more than 40 characters.**
```r
  testFileOutput <- .AddPointsToTestOutput(testFileOutput)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:44:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L44) *style:* **Variable or function name should be snake_case.**
```r
  testFileOutput <- .AddPointsToTestOutput(testFileOutput)
  ^~~~~~~~~~~~~~
```
[R/RunTests.R:44:21:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L44) *warning:* **no visible global function definition for ‘.AddPointsToTestOutput’**
```r
  testFileOutput <- .AddPointsToTestOutput(testFileOutput)
                    ^~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:49:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L49) *style:* **Lines should not be more than 40 characters.**
```r
.AddPointsToTestOutput <- function(testOutput) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:49:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L49) *style:* **Variable or function name should be snake_case.**
```r
.AddPointsToTestOutput <- function(testOutput) {
^~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:49:36:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L49) *style:* **Variable or function name should be snake_case.**
```r
.AddPointsToTestOutput <- function(testOutput) {
                                   ^~~~~~~~~~
```
[R/RunTests.R:51:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L51) *style:* **Lines should not be more than 40 characters.**
```r
    testOutput[[i]]$points <- .GetTestPoints(testOutput[[i]]$test)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:51:31:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L51) *warning:* **no visible global function definition for ‘.GetTestPoints’**
```r
    testOutput[[i]]$points <- .GetTestPoints(testOutput[[i]]$test)
                              ^~~~~~~~~~~~~~
```
[R/RunTests.R:56:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L56) *style:* **Variable or function name should be snake_case.**
```r
.GetTestPoints <- function(testName) {
^~~~~~~~~~~~~~
```
[R/RunTests.R:56:28:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L56) *style:* **Variable or function name should be snake_case.**
```r
.GetTestPoints <- function(testName) {
                           ^~~~~~~~
```
[R/RunTests.R:58:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L58) *style:* **Variable or function name should be snake_case.**
```r
    testPoints <- vector()
    ^~~~~~~~~~
```
[R/RunTests.R:60:5:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L60) *style:* **Variable or function name should be snake_case.**
```r
    testPoints <- points[[testName]]
    ^~~~~~~~~~
```
[R/RunTests.R:62:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L62) *style:* **Lines should not be more than 40 characters.**
```r
  testPoints <- c(.GlobalEnv$points_for_all_tests, testPoints)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:62:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/RunTests.R#L62) *style:* **Variable or function name should be snake_case.**
```r
  testPoints <- c(.GlobalEnv$points_for_all_tests, testPoints)
  ^~~~~~~~~~
```
[R/TestthatResultReader.R:2:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L2) *style:* **Lines should not be more than 40 characters.**
```r
.CheckAllTestPassed <- function(testOutput) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/TestthatResultReader.R:2:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L2) *style:* **Variable or function name should be snake_case.**
```r
.CheckAllTestPassed <- function(testOutput) {
^~~~~~~~~~~~~~~~~~~
```
[R/TestthatResultReader.R:2:33:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L2) *style:* **Variable or function name should be snake_case.**
```r
.CheckAllTestPassed <- function(testOutput) {
                                ^~~~~~~~~~
```
[R/TestthatResultReader.R:10:10:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L10) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (ret)
         ^
```
[R/TestthatResultReader.R:14:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L14) *style:* **Variable or function name should be snake_case.**
```r
.CheckIfTestPassed <- function(test) {
^~~~~~~~~~~~~~~~~~
```
[R/TestthatResultReader.R:22:10:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L22) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (ret)
         ^
```
[R/TestthatResultReader.R:26:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L26) *style:* **Lines should not be more than 40 characters.**
```r
.CheckIfResultPassed <- function(result) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/TestthatResultReader.R:26:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L26) *style:* **Variable or function name should be snake_case.**
```r
.CheckIfResultPassed <- function(result) {
^~~~~~~~~~~~~~~~~~~~
```
[R/TestthatResultReader.R:27:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/R/TestthatResultReader.R#L27) *style:* **Lines should not be more than 40 characters.**
```r
  return(format(result) == "As expected")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/R/main.R:1:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/R/main.R#L1) *style:* **Variable or function name should be snake_case.**
```r
RetTrue <- function() {
^~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/R/main.R:5:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/R/main.R#L5) *style:* **Variable or function name should be snake_case.**
```r
RetOne <- function() {
^~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/R/main.R:9:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/R/main.R#L9) *style:* **Variable or function name should be snake_case.**
```r
Add <- function(a, b) {
^~~
```
[tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R:2:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R#L2) *style:* **Lines should not be more than 40 characters.**
```r
#Sets the points for all tests to global environment, wherefrom they can
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R:4:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R#L4) *style:* **Variable or function name should be snake_case.**
```r
pointsForAllTests <- function(points) {
^~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R:5:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R#L5) *style:* **Lines should not be more than 40 characters.**
```r
  .GlobalEnv$points_for_all_tests <- points
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R:8:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R#L8) *style:* **Lines should not be more than 40 characters.**
```r
#The test that wraps around test_that()-method and stores the points
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R:12:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R#L12) *warning:* **no visible global function definition for ‘test_that’**
```r
  test_that(desc, code)
  ^~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/tests/testthat/testMain.R:1:9:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_all_tests_pass/tests/testthat/testMain.R#L1) *style:* **Only use double-quotes.**
```r
library('testthat')
        ^~~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/R/main.R:1:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/R/main.R#L1) *style:* **Variable or function name should be snake_case.**
```r
RetTrue <- function() {
^~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/R/main.R:5:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/R/main.R#L5) *style:* **Variable or function name should be snake_case.**
```r
RetOne <- function() {
^~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/R/main.R:9:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/R/main.R#L9) *style:* **Variable or function name should be snake_case.**
```r
Add <- function(a, b) {
^~~
```
[tests/testthat/resources/simple_some_tests_fail/R/main.R:13:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/R/main.R#L13) *style:* **Variable or function name should be snake_case.**
```r
RetFalse <- function() {
^~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R:2:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R#L2) *style:* **Lines should not be more than 40 characters.**
```r
#Sets the points for all tests to global environment, wherefrom they can
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R:4:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R#L4) *style:* **Variable or function name should be snake_case.**
```r
pointsForAllTests <- function(points) {
^~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R:5:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R#L5) *style:* **Lines should not be more than 40 characters.**
```r
  .GlobalEnv$points_for_all_tests <- points
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R:8:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R#L8) *style:* **Lines should not be more than 40 characters.**
```r
#The test that wraps around test_that()-method and stores the points
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R:12:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R#L12) *warning:* **no visible global function definition for ‘test_that’**
```r
  test_that(desc, code)
  ^~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/testMain.R:1:9:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/tests/testthat/testMain.R#L1) *style:* **Only use double-quotes.**
```r
library('testthat')
        ^~~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/testMain.R:22:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/tests/testthat/testMain.R#L22) *style:* **Lines should not be more than 40 characters.**
```r
test("RetFalse returns true", c("r1.5"), {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/testMain.R:26:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/resources/simple_some_tests_fail/tests/testthat/testMain.R#L26) *style:* **Lines should not be more than 40 characters.**
```r
test("RetTrue works but there are no points.", NULL, {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:1:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L1) *style:* **Lines should not be more than 40 characters.**
```r
test_resources_dir <- paste(sep = "", getwd(), "/resources")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:4:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L4) *style:* **Lines should not be more than 40 characters.**
```r
simple_all_tests_pass_project_path <- paste(sep = "", test_resources_dir, "/simple_all_tests_pass")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:4:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L4) *style:* **Variable and function names should not be longer than 30 characters.**
```r
simple_all_tests_pass_project_path <- paste(sep = "", test_resources_dir, "/simple_all_tests_pass")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:5:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L5) *style:* **Lines should not be more than 40 characters.**
```r
simple_some_tests_fail_project_path <- paste(sep = "", test_resources_dir, "/simple_some_tests_fail")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:5:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L5) *style:* **Variable and function names should not be longer than 30 characters.**
```r
simple_some_tests_fail_project_path <- paste(sep = "", test_resources_dir, "/simple_some_tests_fail")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:7:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L7) *style:* **Lines should not be more than 40 characters.**
```r
test_that("Test pass in simple_all_tests_pass", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:8:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L8) *style:* **Lines should not be more than 40 characters.**
```r
  results <- .RunTestsProject(simple_all_tests_pass_project_path)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:11:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L11) *style:* **Lines should not be more than 40 characters.**
```r
    string <- format(results[[i]]$results[[1]])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:17:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L17) *style:* **Lines should not be more than 40 characters.**
```r
#Tests that all exercise entrys store the point for all tests.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:18:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L18) *style:* **Lines should not be more than 40 characters.**
```r
test_that("Tests that pass in simple_all_tests_pass all have the point for all tests", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:19:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L19) *style:* **Lines should not be more than 40 characters.**
```r
  results <- .RunTestsProject(simple_all_tests_pass_project_path)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:27:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L27) *style:* **Lines should not be more than 40 characters.**
```r
#Tests if the hidden function .AddPointsToTestOutput works as intended.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:28:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L28) *style:* **Lines should not be more than 40 characters.**
```r
#It should add points to the dataframe based on which the result-file is created.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:29:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L29) *style:* **Lines should not be more than 40 characters.**
```r
test_that("Points are added accordingly after calling .AddPointsToTestOutput", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:30:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L30) *style:* **Lines should not be more than 40 characters.**
```r
  testFileOutput <- test_file(paste(sep="", simple_all_tests_pass_project_path, "/tests/testthat/testMain.R"), reporter="silent")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:30:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  testFileOutput <- test_file(paste(sep="", simple_all_tests_pass_project_path, "/tests/testthat/testMain.R"), reporter="silent")
  ^~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:30:40:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L30) *style:* **Put spaces around all infix operators.**
```r
  testFileOutput <- test_file(paste(sep="", simple_all_tests_pass_project_path, "/tests/testthat/testMain.R"), reporter="silent")
                                      ~^~
```
[tests/testthat/testRunTests.R:30:120:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L30) *style:* **Put spaces around all infix operators.**
```r
  testFileOutput <- test_file(paste(sep="", simple_all_tests_pass_project_path, "/tests/testthat/testMain.R"), reporter="silent")
                                                                                ~^~
```
[tests/testthat/testRunTests.R:31:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L31) *style:* **Lines should not be more than 40 characters.**
```r
  expect_equal(testFileOutput[[1]]$points, NULL)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:32:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L32) *style:* **Lines should not be more than 40 characters.**
```r
  testFileOutput <- .AddPointsToTestOutput(testFileOutput)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:32:3:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  testFileOutput <- .AddPointsToTestOutput(testFileOutput)
  ^~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:33:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L33) *style:* **Lines should not be more than 40 characters.**
```r
  expect_false(is.null(testFileOutput[[1]]$points))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:36:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L36) *style:* **Lines should not be more than 40 characters.**
```r
test_that("RunTests works as intended", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:37:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L37) *style:* **Lines should not be more than 40 characters.**
```r
  runTests(simple_all_tests_pass_project_path)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:38:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L38) *style:* **Lines should not be more than 40 characters.**
```r
  expect_true(file.exists(paste(sep="",simple_all_tests_pass_project_path, "/.results.json")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:38:36:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L38) *style:* **Put spaces around all infix operators.**
```r
  expect_true(file.exists(paste(sep="",simple_all_tests_pass_project_path, "/.results.json")))
                                  ~^~
```
[tests/testthat/testRunTests.R:38:40:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L38) *style:* **Commas should always have a space after.**
```r
  expect_true(file.exists(paste(sep="",simple_all_tests_pass_project_path, "/.results.json")))
                                       ^
```
[tests/testthat/testRunTests.R:41:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L41) *style:* **Lines should not be more than 40 characters.**
```r
test_that("Not all tests pass in simple_some_tests_fail", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:42:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L42) *style:* **Lines should not be more than 40 characters.**
```r
  results <- .RunTestsProject(simple_some_tests_fail_project_path)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:46:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L46) *style:* **Lines should not be more than 40 characters.**
```r
    string <- format(results[[i]]$results[[1]])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:47:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L47) *style:* **Lines should not be more than 40 characters.**
```r
    if(!isTRUE(all.equal(string, pass_string))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:47:7:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L47) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!isTRUE(all.equal(string, pass_string))) {
      ^
```
[tests/testthat/testRunTests.R:54:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L54) *style:* **Lines should not be more than 40 characters.**
```r
test_that("RunTests works even when some of the tests are failing", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:55:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L55) *style:* **Lines should not be more than 40 characters.**
```r
  runTests(simple_some_tests_fail_project_path)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:56:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L56) *style:* **Lines should not be more than 40 characters.**
```r
  expect_true(file.exists(paste(sep="", simple_some_tests_fail_project_path, "/.results.json")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:56:36:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L56) *style:* **Put spaces around all infix operators.**
```r
  expect_true(file.exists(paste(sep="", simple_some_tests_fail_project_path, "/.results.json")))
                                  ~^~
```
[tests/testthat/testRunTests.R:59:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L59) *style:* **Lines should not be more than 40 characters.**
```r
test_that("RunTests works with printing", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:60:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L60) *style:* **Lines should not be more than 40 characters.**
```r
  cat(format("\n\nTHIS TEST INCLUDES PRINTING\n\n"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:61:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L61) *style:* **Lines should not be more than 40 characters.**
```r
  runTests(simple_some_tests_fail_project_path, TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:63:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L63) *style:* **Lines should not be more than 40 characters.**
```r
  expect_true(file.exists(paste(sep="", simple_some_tests_fail_project_path, "/.results.json")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:63:36:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L63) *style:* **Put spaces around all infix operators.**
```r
  expect_true(file.exists(paste(sep="", simple_some_tests_fail_project_path, "/.results.json")))
                                  ~^~
```
[tests/testthat/testRunTests.R:69:1:](https://github.com/RTMC/tmc-r/blob/3befdd520c052b5b85fcbe08bc538158bedb7b9c/tests/testthat/testRunTests.R#L69) *style:* **Lines should not be more than 40 characters.**
```r
#   runTests(simple_all_tests_pass_project_path)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


@aab-odoo yes, this may be too much.  We should test to see what it feels like.  But the reset method should be overridden to do nothing if there are no interesting change


could you please be so kind to link me to the issue on [https://issues.shopware.com](https://issues.shopware.com)? I can't find it there. Do you know why this did not appear in the changelog of 5.3.3?


Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/b09e3ee0-bc62-4bd7-bcf6-7b033dada6af "TriAzurUE"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/57bc70fc-3a85-4eb7-a477-d1a67ac25fb2 "TriAzurUE") deployed [TriAzur_code](https://github.com/Doncassino/TriAzur_code/releases/tag/deploy-ibm-yp-eu-gb-TriAzur-TriAzur-20170926-082513 "deploy-ibm-yp-eu-gb-TriAzur-TriAzur-20170926-082513") to [TriAzur](https://console.bluemix.net/apps/11b7850a-b04f-4546-975c-fb2662c615cd?env_id=ibm:yp:eu-gb "ibm:yp:eu-gb:TriAzur:TriAzur"), including this commit


note: image url for *example firewall probe redirect rule* uses master branch. It is valid only together with following commit (relink to master)


Nice cleanup :+1:


I think you also need to look into how threads are killed. If the thread main function returns 0, then kthread_should_stop will be reached and threads with inflight data will never move that data.

A good way to do this would be to keep track of which lines got into the first read for GC and then only start freeing up threads and queues when all data has been moved You can see that we do something similar for freeing a line, putting the kref on pblk_gc_write.


I think we don't need this method? Getting last query is always sync action?


Suggestion:
```
var columnInvisibleFields = {};
_.each(this.attrs.columnInvisibleFields, function (domains, fieldName) {
    if (_.isArray(domains) {
        columnInvisibleFields[fieldName] = _.map(domains, function (domain) {
             return [domain[0].split('.')[1]].concat(domain.slice(1));
        });
    }
});
this.columnInvisibleFields = columnInvisibleFields;
```