[R/getAvailablePoints.R:3:20:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/getAvailablePoints.R#L9) *style:* **Put spaces around all infix operators.**
```r
pointsForAllTests<-function(point){
                ~^~~
```
[R/getAvailablePoints.R:10:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/getAvailablePoints.R#L16) *style:* **Lines should not be more than 100 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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L3) *style:* **Use <-, not =, for assignment.**
```r
  results = list()
          ^
```
[R/ResultsJsonParser.R:5:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L12) *style:* **Variable or function name should be snake_case.**
```r
      testStatus <- "fail"
      ^~~~~~~~~~
```
[R/ResultsJsonParser.R:13:7:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L13) *warning:* **no visible global function definition for ‘.CreateMessageForTestWithFailures’**
```r
      testMessage <- .CreateMessageForTestWithFailures(test)
                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:16:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L16) *style:* **Commas should always have a space after.**
```r
    testResult <- .CreateJsonTestResult(testStatus, testName, testMessage,testPoints, "")
                                                                          ^
```
[R/ResultsJsonParser.R:18:29:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L20) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (results)
         ^
```
[R/ResultsJsonParser.R:24:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L24) *style:* **Variable or function name should be snake_case.**
```r
.CreateJsonTestResult <- function(testStatus, testName, testMessage,
                                                        ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:25:35:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L25) *style:* **Variable or function name should be snake_case.**
```r
                                  testPoints, backtrace) {
                                  ^~~~~~~~~~
```
[R/ResultsJsonParser.R:26:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L26) *style:* **Put spaces around all infix operators.**
```r
  testResult <- list(status=unbox(testStatus),
                          ~^~
```
[R/ResultsJsonParser.R:27:26:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L27) *style:* **Put spaces around all infix operators.**
```r
                     name=unbox(format(testName)),
                        ~^~
```
[R/ResultsJsonParser.R:28:29:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L28) *style:* **Put spaces around all infix operators.**
```r
                     message=unbox(testMessage),
                           ~^~
```
[R/ResultsJsonParser.R:29:31:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L30) *style:* **Put spaces around all infix operators.**
```r
                     points=testPoints)
                          ~^~
```
[R/ResultsJsonParser.R:36:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L36) *style:* **Variable or function name should be snake_case.**
```r
.MessageFromFailedResult <- function(result) {
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:42:10:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L46) *style:* **Variable or function name should be snake_case.**
```r
  testMessage <- ""
  ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:49:7:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L49) *warning:* **no visible global function definition for ‘.MessageFromFailedResult’**
```r
      testMessage <- paste(sep = "", testMessage, .MessageFromFailedResult(result))
                                                  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:56:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L56) *style:* **Variable or function name should be snake_case.**
```r
.WriteJson <- function(results) {
^~~~~~~~~~
```
[R/ResultsJsonParser.R:58:20:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/ResultsJsonParser.R#L65) *style:* **Variable or function name should be snake_case.**
```r
.PrintResultsFromJson <- function(jsonResult) {
                                  ^~~~~~~~~~
```
[R/RunTests.R:8:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  tmcrTestRunnerProjectPath <- getwd()
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:12:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L12) *warning:* **no visible global function definition for ‘.RunTestsProject’**
```r
  testthatOutput <- .RunTestsProject(projectPath)
                    ^~~~~~~~~~~~~~~~
```
[R/RunTests.R:14:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  testthatOutput <- list()
  ^~~~~~~~~~~~~~
```
[R/RunTests.R:30:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L30) *style:* **Lines should not be more than 100 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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L33) *warning:* **no visible global function definition for ‘.RunTestsFile’**
```r
    testFileOutput <- .RunTestsFile(testFile)
                      ^~~~~~~~~~~~~
```
[R/RunTests.R:34:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L39) *style:* **Variable or function name should be snake_case.**
```r
.RunTestsFile <- function(filePath) {
                          ^~~~~~~~
```
[R/RunTests.R:43:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L43) *warning:* **no visible global function definition for ‘test_file’**
```r
  testFileOutput <- test_file(filePath, reporter = "silent")
                    ^~~~~~~~~
```
[R/RunTests.R:44:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L49) *style:* **Variable or function name should be snake_case.**
```r
.AddPointsToTestOutput <- function(testOutput) {
                                   ^~~~~~~~~~
```
[R/RunTests.R:51:31:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L60) *style:* **Variable or function name should be snake_case.**
```r
    testPoints <- points[[testName]]
    ^~~~~~~~~~
```
[R/RunTests.R:62:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L62) *style:* **Variable or function name should be snake_case.**
```r
  testPoints <- c(.GlobalEnv$points_for_all_tests, testPoints)
  ^~~~~~~~~~
```
[R/RunTests.R:66:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L66) *style:* **Variable or function name should be snake_case.**
```r
runTestsWithDefault <- function(bol) {
^~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:67:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/RunTests.R#L67) *warning:* **no visible global function definition for ‘runTests’**
```r
  runTests(getwd(), bol)
  ^~~~~~~~
```
[R/TestthatResultReader.R:2:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/R/TestthatResultReader.R#L26) *style:* **Variable or function name should be snake_case.**
```r
.CheckIfResultPassed <- function(result) {
^~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/R/main.R:1:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:4:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:12:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:4:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:12:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/resources/simple_some_tests_fail/tests/testthat/testMain.R#L1) *style:* **Only use double-quotes.**
```r
library('testthat')
        ^~~~~~~~~~
```
[tests/testthat/testLintr.R:2:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testLintr.R#L2) *style:* **Commented code should be removed.**
```r
#   context("lints")
    ^~~~~~~~~~~~~~~~
```
[tests/testthat/testLintr.R:4:7:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testLintr.R#L4) *style:* **Commented code should be removed.**
```r
#     lintr::expect_lint_free()
      ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:4:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testRunTests.R#L5) *style:* **Lines should not be more than 100 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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:30:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testRunTests.R#L30) *style:* **Lines should not be more than 100 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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:32:3:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testRunTests.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  testFileOutput <- .AddPointsToTestOutput(testFileOutput)
  ^~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:38:36:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:47:7:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:56:36:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:63:36:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/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:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testRunTests.R#L69) *style:* **Commented code should be removed.**
```r
#   runTests(simple_all_tests_pass_project_path)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:73:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testRunTests.R#L73) *style:* **Commented code should be removed.**
```r
#   string1 <- format(.PrintResult("Testi1", "!", FALSE))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:74:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testRunTests.R#L74) *style:* **Commented code should be removed.**
```r
#   string2 <- format("Testi1: PASS")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:75:5:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testRunTests.R#L75) *style:* **Commented code should be removed.**
```r
#   expect_equal(string1, string2)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testTestthatResultReader.R:1:1:](https://github.com/RTMC/tmc-r-tester/blob/866a29c6145fd97ffe781fe5e0b7c84d4dd6bf7e/tests/testthat/testTestthatResultReader.R#L1) *style:* **Trailing blank lines are superfluous.**
```r

^
```


That could happen as monotonic clock were dropped, if I understand code correctly.


zaebis vashe


Ostateczna(?) wersja


Please open an issue for general linter support. It's something I've been meaning to add.


I would prefer to keep the texts lowercase and to use CSS (`text-transform: capitalize;`) to style them properly.


which project use this app ? Dear


I installed `laravelcollective/html":"^5.4.0` from the website: **`Laravel Collective`** to use the Forms in Laravel.
Also, I created the for for the create post.blade.php


Muy bien!


Fixed with 12989c6


This update causes a crash!
Please check this update. (maybe some issue in length for malloc...)


VAVDesignMinFlow6327 (mjwitte) - x86_64-Linux-Ubuntu-14.04-gcc-4.8-UnitTestsCoverage-Debug: OK (1546 of 1562 tests passed, 0 test warnings)

Failures:

EnergyPlusFixture Test Summary
 * Passed: 529
 * OTHER_FAULT: 16

![Build Badge](http://img.shields.io/badge/build%20status-warnings-yellow.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-98.98%25-yellow.png) ![Coverage Badge](http://img.shields.io/badge/coverage%20status-36.76%25-green.png)


Creo que fui yo el que se equivocó el nombre del function component debe ser el mismo que el del archivo que lo contiene


@hirokiterashima The cleanup looks good. Maybe add a comment to the refreshProject() function about how it recalculates stuff like the step numbering.


Thank you!


Muy bien, componente reutilizable


[R/getAvailablePoints.R:3:20:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/getAvailablePoints.R#L9) *style:* **Put spaces around all infix operators.**
```r
pointsForAllTests<-function(point){
                ~^~~
```
[R/getAvailablePoints.R:10:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/getAvailablePoints.R#L16) *style:* **Lines should not be more than 100 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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L3) *style:* **Use <-, not =, for assignment.**
```r
  results = list()
          ^
```
[R/ResultsJsonParser.R:5:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L12) *style:* **Variable or function name should be snake_case.**
```r
      testStatus <- "fail"
      ^~~~~~~~~~
```
[R/ResultsJsonParser.R:13:7:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L13) *warning:* **no visible global function definition for ‘.CreateMessageForTestWithFailures’**
```r
      testMessage <- .CreateMessageForTestWithFailures(test)
                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:16:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L16) *style:* **Commas should always have a space after.**
```r
    testResult <- .CreateJsonTestResult(testStatus, testName, testMessage,testPoints, "")
                                                                          ^
```
[R/ResultsJsonParser.R:18:29:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L20) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (results)
         ^
```
[R/ResultsJsonParser.R:24:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L24) *style:* **Variable or function name should be snake_case.**
```r
.CreateJsonTestResult <- function(testStatus, testName, testMessage,
                                                        ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:25:35:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L25) *style:* **Variable or function name should be snake_case.**
```r
                                  testPoints, backtrace) {
                                  ^~~~~~~~~~
```
[R/ResultsJsonParser.R:26:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L26) *style:* **Put spaces around all infix operators.**
```r
  testResult <- list(status=unbox(testStatus),
                          ~^~
```
[R/ResultsJsonParser.R:27:26:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L27) *style:* **Put spaces around all infix operators.**
```r
                     name=unbox(format(testName)),
                        ~^~
```
[R/ResultsJsonParser.R:28:29:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L28) *style:* **Put spaces around all infix operators.**
```r
                     message=unbox(testMessage),
                           ~^~
```
[R/ResultsJsonParser.R:29:31:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L30) *style:* **Put spaces around all infix operators.**
```r
                     points=testPoints)
                          ~^~
```
[R/ResultsJsonParser.R:36:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L36) *style:* **Variable or function name should be snake_case.**
```r
.MessageFromFailedResult <- function(result) {
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:42:10:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L46) *style:* **Variable or function name should be snake_case.**
```r
  testMessage <- ""
  ^~~~~~~~~~~
```
[R/ResultsJsonParser.R:49:7:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L49) *warning:* **no visible global function definition for ‘.MessageFromFailedResult’**
```r
      testMessage <- paste(sep = "", testMessage, .MessageFromFailedResult(result))
                                                  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:56:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L56) *style:* **Variable or function name should be snake_case.**
```r
.WriteJson <- function(results) {
^~~~~~~~~~
```
[R/ResultsJsonParser.R:58:20:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/ResultsJsonParser.R#L65) *style:* **Variable or function name should be snake_case.**
```r
.PrintResultsFromJson <- function(jsonResult) {
                                  ^~~~~~~~~~
```
[R/RunTests.R:8:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  tmcrTestRunnerProjectPath <- getwd()
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:12:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L12) *warning:* **no visible global function definition for ‘.RunTestsProject’**
```r
  testthatOutput <- .RunTestsProject(projectPath)
                    ^~~~~~~~~~~~~~~~
```
[R/RunTests.R:14:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  testthatOutput <- list()
  ^~~~~~~~~~~~~~
```
[R/RunTests.R:30:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L30) *style:* **Lines should not be more than 100 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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L33) *warning:* **no visible global function definition for ‘.RunTestsFile’**
```r
    testFileOutput <- .RunTestsFile(testFile)
                      ^~~~~~~~~~~~~
```
[R/RunTests.R:34:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L39) *style:* **Variable or function name should be snake_case.**
```r
.RunTestsFile <- function(filePath) {
                          ^~~~~~~~
```
[R/RunTests.R:43:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L43) *warning:* **no visible global function definition for ‘test_file’**
```r
  testFileOutput <- test_file(filePath, reporter = "silent")
                    ^~~~~~~~~
```
[R/RunTests.R:44:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L49) *style:* **Variable or function name should be snake_case.**
```r
.AddPointsToTestOutput <- function(testOutput) {
                                   ^~~~~~~~~~
```
[R/RunTests.R:51:31:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L60) *style:* **Variable or function name should be snake_case.**
```r
    testPoints <- points[[testName]]
    ^~~~~~~~~~
```
[R/RunTests.R:62:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L62) *style:* **Variable or function name should be snake_case.**
```r
  testPoints <- c(.GlobalEnv$points_for_all_tests, testPoints)
  ^~~~~~~~~~
```
[R/RunTests.R:66:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L66) *style:* **Variable or function name should be snake_case.**
```r
runTestsWithDefault <- function(bol) {
^~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:67:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/RunTests.R#L67) *warning:* **no visible global function definition for ‘runTests’**
```r
  runTests(getwd(), bol)
  ^~~~~~~~
```
[R/TestthatResultReader.R:2:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/R/TestthatResultReader.R#L26) *style:* **Variable or function name should be snake_case.**
```r
.CheckIfResultPassed <- function(result) {
^~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/R/main.R:1:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:4:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:12:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:4:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:12:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/resources/simple_some_tests_fail/tests/testthat/testMain.R#L1) *style:* **Only use double-quotes.**
```r
library('testthat')
        ^~~~~~~~~~
```
[tests/testthat/testLintr.R:2:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testLintr.R#L2) *style:* **Commented code should be removed.**
```r
#   context("lints")
    ^~~~~~~~~~~~~~~~
```
[tests/testthat/testLintr.R:4:7:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testLintr.R#L4) *style:* **Commented code should be removed.**
```r
#     lintr::expect_lint_free()
      ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:4:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testRunTests.R#L5) *style:* **Lines should not be more than 100 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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:30:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testRunTests.R#L30) *style:* **Lines should not be more than 100 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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:32:3:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testRunTests.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  testFileOutput <- .AddPointsToTestOutput(testFileOutput)
  ^~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:38:36:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:47:7:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:56:36:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:63:36:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/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:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testRunTests.R#L69) *style:* **Commented code should be removed.**
```r
#   runTests(simple_all_tests_pass_project_path)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:73:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testRunTests.R#L73) *style:* **Commented code should be removed.**
```r
#   string1 <- format(.PrintResult("Testi1", "!", FALSE))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:74:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testRunTests.R#L74) *style:* **Commented code should be removed.**
```r
#   string2 <- format("Testi1: PASS")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:75:5:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testRunTests.R#L75) *style:* **Commented code should be removed.**
```r
#   expect_equal(string1, string2)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testTestthatResultReader.R:1:1:](https://github.com/RTMC/tmc-r-tester/blob/9374fbf62f26aca750ee314bb48190988dac8501/tests/testthat/testTestthatResultReader.R#L1) *style:* **Trailing blank lines are superfluous.**
```r

^
```


Agora é contigo, @agabiabreu !


You can simplify this a bit.

```javascript
const LevelIndicator = withTheme(
  styled.div`
    position: absolute;
    top: 18px;
    left: -1px;
    width: 9px;
    height: 18px;
    border-radius: 0 3px 3px 0;

    background-color: ${p => {
      switch (p.level) {
        case 'sample':
          return
          p.theme.purple
        case 'info':
          return
          p.theme.blue
        case 'warning':
          return
          p.theme.yellowOrange
        case 'error':
          return
          p.theme.orange
        case 'fatal':
          return
          p.theme.red
      }
    }};
  `
)
```


Hi @markhigginsiss, do you use the same version of gcc as @dhendrix mentioned?


Example model file:

```
-macs,./bin/macs,
-length,1000000,
-t,2.5e-8,
-s,1231,
-r,1e-8,
-h,1e5,
-R,genetic_map_b37/genetic_map_GRCh37_chr1.txt.macshs,
-I,2,20,140,
-n,1,A,
-n,2,B,
-ej_1,AB_t,2,1,
-en,AN_t,1,AN
-discovery,1
-sample,2
-daf,daf
-array, array_template/ill_650_test.bed
```

Runs as
```
python simprily.py examples/eg1/param_file_eg1.txt examples/eg1/model_file_eg1.csv 1 output_dir
```
works with no error.


You can get the linux version from here:
https://github.com/CoEST/TraceLab/tree/master/Main/bin


You're going to have to be more specific than "This update causes a crash, please check it." I wouldn't have pushed the commit if I hadn't tested it first.

How do you reproduce the crash?


Check out http://jxnblk.com/rebass/theming for a great way to organize your theme.


For future reference: you can add issue numbers and tag teams, people, commits, issues and repos in your commit messages.

Github is smart enough to recognise what you want to do with issues. For instance, adding `closes #3` to the commit message would close issue #3 when the commit is pushed. See [this guide](https://help.github.com/articles/closing-issues-using-keywords/).

References also create inverse links: if you open the issue now you'll see that it says that it was mentioned here.


This commit has been mentioned on **Discourse Meta**. There might be relevant details there:

https://meta.discourse.org/t/cant-enable-mailing-list-mode/70763/6


This commit has been mentioned on **Discourse Meta**. There might be relevant details there:

https://meta.discourse.org/t/unable-to-change-themes-video-demo/70800/5


надо было полностью удалить advantage__features. Зачем этот класс тут тебе нужен?


Created multidev environment [natalie-sandbox#pr-narrativ](https://dashboard.pantheon.io/sites/ee1a9f88-1cc8-4eca-a8a6-7dc1433bb37e#pr-narrativ).

[![Visit Site](https://raw.githubusercontent.com/pantheon-systems/ci-drops-8/0.1.0/data/img/visit-site-36.png)](https://pr-narrativ-natalie-sandbox.pantheonsite.io/)


this project only


почему к коммиту мобильной фото странцы всякая ересь попала из индекса ?


These sites use two scripts for embedded streaming.
`/embed.min.js` which your commit allows or `/embhd.min.js`, which is still blocked.

![apo](https://user-images.githubusercontent.com/16838044/30875976-70781526-a2f5-11e7-8a80-426ccec3ba13.PNG)


молодец, увидела сходство, создала абстракцию!


My comments below are under the assumption you are using emotion 8. I would use emotion 8 😀


т.е. ты всю галлерею можешь убрать из сайта?


I'm not really convinced that it is an improvement to switch to the passive voice here.


что такое figure?


как мы размечаем картчоку товара?


@xfurry This is the thing why all the scripts need to be changed.


Consultar 5 formulas de força, e resolver problemas relacionado a força


Do.

Not.

Ever.

Hand.

The.

Result.

Of.

`pcap_lib_version()`.

To.

`free()`.

It is *not* part of the libpcap API that it is mallocated - it's a `const char *`, which suggests that it should *not* be freed - and, in fact, in future versions of libpcap it will *not* be mallocated on most platforms, it'll be a string constant.


How about:
```
  (\d t -> let delta' = t - realToFrac d
           in return (max 0.0 delta'))
  where
    delta = 0.01 / fromIntegral frequency
```
If you need to add a comment to explain the lambda-expression, maybe you want to name the function?


а если карточка товара будет не в галерее? если она будет в другой части страницы?


что мы делаем, когда элемент повторяется больше одного раза ?


оберни лайк с цифрой в footer. Будет удобнее и симантично


Cami entonces aca deberia ser const MascotasCreate en vez de MascotasList?


But the layout/design is same in some of my projects, such single-page-social-network, rails-mini-social-network and many more!!


будь последовательна, если ниже like-num, то сделай и тут like-btn.


I guess it is too late now, but please be advised that the change to `allOf` was a breaking change and so I guess it should have been a PVP major version update instead of a minor update?


This adds the ISSN to the Journals, individual Journal and Paper pages.
![issn-1](https://user-images.githubusercontent.com/6778244/30876370-6fd375ce-a2c4-11e7-821a-d00767d33a35.png)
![issn-2](https://user-images.githubusercontent.com/6778244/30876371-6fd92b40-a2c4-11e7-9e19-dd6b1c068d94.png)
![issn-3](https://user-images.githubusercontent.com/6778244/30876372-6fdad396-a2c4-11e7-99e0-f073a6b7568c.png)


This kind of patch really improve knowledge base 👍


How do you specify the `-macsswig` and `-macs_file` options in the model file?

I tried
```
-macs_file, tests/test_data/sites1000000.txt
-length,1000000,
-t,2.5e-8,
-s,1231,
-r,1e-8,
-h,1e5,
-R,genetic_map_b37/genetic_map_GRCh37_chr1.txt.macshs,
-I,2,20,140,
-n,1,A,
-n,2,B,
-ej_1,AB_t,2,1,
-en,AN_t,1,AN
-discovery,1
-sample,2
-daf,daf
-array, array_template/ill_650_test.bed
```
and ran it as
```
python simprily.py examples/eg1/param_file_eg1.txt examples/eg1/model_file_eg1.csv 1 output_dir
```
and I got the error:
```
Before:1 -macs_file,tests/test_data/sites1000000.txt
Traceback (most recent call last):
  File "simprily.py", line 227, in <module>
    main(argv)
  File "simprily.py", line 51, in main
    processedData =  processInputFiles(args['param file'], args['model file'])
  File "/home/agladstein/Minions/SimPrily/processInput.py", line 385, in processInputFiles
    processedData = processModelData(variables, modelData) # creates the input for macsSwig
  File "/home/agladstein/Minions/SimPrily/processInput.py", line 228, in processModelData
    flags = populateFlags(variables, modelData)
  File "/home/agladstein/Minions/SimPrily/processInput.py", line 181, in populateFlags
    if int(flag.split("_")[1]) > 1:
ValueError: invalid literal for int() with base 10: 'file'
```

I also tried with the model file
```
-macsswig,
-length,1000000,
-t,2.5e-8,
-s,1231,
-r,1e-8,
-h,1e5,
-R,genetic_map_b37/genetic_map_GRCh37_chr1.txt.macshs,
-I,2,20,140,
-n,1,A,
-n,2,B,
-ej_1,AB_t,2,1,
-en,AN_t,1,AN
-discovery,1
-sample,2
-daf,daf
-array, array_template/ill_650_test.bed
```
Ran as
```
python simprily.py examples/eg1/param_file_eg1.txt examples/eg1/model_file_eg1.csv 1 output_dir
```

Got the error
```
Traceback (most recent call last):
  File "simprily.py", line 227, in <module>
    main(argv)
  File "simprily.py", line 51, in main
    processedData =  processInputFiles(args['param file'], args['model file'])
  File "/home/agladstein/Minions/SimPrily/processInput.py", line 385, in processInputFiles
    processedData = processModelData(variables, modelData) # creates the input for macsSwig
  File "/home/agladstein/Minions/SimPrily/processInput.py", line 237, in processModelData
    macs_args = [flags['-macs'][0][0],str(total),flags['-length'][0][0]]
KeyError: '-macs'
```


So, I'm a little surprised this works, but it's valid: https://3v4l.org/2r1sW


The style is reasonably consistent. Nice :)

A good haskell style guide is this: https://github.com/tibbe/haskell-style-guide/blob/master/haskell-style.md

Other styles are possible. Pick one you like :) It's not fixed in stone, and it's not a hard rule.

Your life will be easier if there's a tool that helps you format code consistently. I don't know if Johan Tibell's haskell formatting tool actually follows his advice completely.


Created multidev environment [natalie-sandbox#pr-narrativ](https://dashboard.pantheon.io/sites/ee1a9f88-1cc8-4eca-a8a6-7dc1433bb37e#pr-narrativ).

[![Visit Site](https://raw.githubusercontent.com/pantheon-systems/ci-drops-8/0.1.0/data/img/visit-site-36.png)](https://pr-narrativ-natalie-sandbox.pantheonsite.io/)


In the DDB in the TimeDriftInstrument field I have time drift in seconds (End offset). negative for a slow clock drift and positive for a fast clock drift. I only collect the time difference at recovery as the instruments are UTC satellite sync'd at deployment.


Just at start of openbor engine


oops added it twice


This commit has been mentioned on **Discourse Meta**. There might be relevant details there:

https://meta.discourse.org/t/unable-to-change-custom-title/70814/3


That's great! Yes we'll release 1.8.1 shortly, thanks for maintaining the port.


Если хочешь могу сделать соответствующую сервисную ошибку (Исправление не найдено) и бросать 404 или другой сервис код.


created [issue](https://github.com/pocoproject/poco/issues/1906) for it