{"comment":{"url":"https://api.github.com/repos/RTMC/tmc-rstudio/comments/25866716","html_url":"https://github.com/RTMC/tmc-rstudio/commit/80369c858834f0e2e5c806ee7b412a585f556439#commitcomment-25866716","id":25866716,"user":{"login":"lintr-bot","id":10925265,"avatar_url":"https://avatars3.githubusercontent.com/u/10925265?v=4","gravatar_id":"","url":"https://api.github.com/users/lintr-bot","html_url":"https://github.com/lintr-bot","followers_url":"https://api.github.com/users/lintr-bot/followers","following_url":"https://api.github.com/users/lintr-bot/following{/other_user}","gists_url":"https://api.github.com/users/lintr-bot/gists{/gist_id}","starred_url":"https://api.github.com/users/lintr-bot/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/lintr-bot/subscriptions","organizations_url":"https://api.github.com/users/lintr-bot/orgs","repos_url":"https://api.github.com/users/lintr-bot/repos","events_url":"https://api.github.com/users/lintr-bot/events{/privacy}","received_events_url":"https://api.github.com/users/lintr-bot/received_events","type":"User","site_admin":false},"position":null,"line":null,"path":null,"commit_id":"80369c858834f0e2e5c806ee7b412a585f556439","created_at":"2017-11-27T09:15:39Z","updated_at":"2017-11-27T09:15:39Z","author_association":"NONE","body":"[R/AddinCourseTab.R:22:52:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L22) *style:* **Commas should always have a space after.**\n```r\n​      checkboxGroupInput(inputId = ns(\"exercises\"),label=\"\",choices=list())\n                                                   ^\n```\n[R/AddinCourseTab.R:22:57:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L22) *style:* **Put spaces around all infix operators.**\n```r\n​      checkboxGroupInput(inputId = ns(\"exercises\"),label=\"\",choices=list())\n                                                       ~^~\n```\n[R/AddinCourseTab.R:22:61:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L22) *style:* **Commas should always have a space after.**\n```r\n​      checkboxGroupInput(inputId = ns(\"exercises\"),label=\"\",choices=list())\n                                                            ^\n```\n[R/AddinCourseTab.R:22:68:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L22) *style:* **Put spaces around all infix operators.**\n```r\n​      checkboxGroupInput(inputId = ns(\"exercises\"),label=\"\",choices=list())\n                                                                  ~^~\n```\n[R/AddinCourseTab.R:30:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L30) *style:* **Lines should not be more than 120 characters.**\n```r\n​    shiny::updateSelectInput(session, \"organizationSelect\", label = \"Select organization\", choices = choices, selected = 1)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:41:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L41) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  exercise_map <<- list()\n  ^~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:41:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L41) *warning:* **no visible binding for '<<-' assignment to ‘exercise_map’**\n```r\n​  exercise_map <<- list()\n  ^~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:49:19:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L49) *style:* **Put spaces around all infix operators.**\n```r\n​    names(choices)<-exercises$name\n                 ~^~~\n```\n[R/AddinCourseTab.R:50:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L50) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    exercise_map <<- exercises$id\n    ^~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:50:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L50) *warning:* **no visible binding for '<<-' assignment to ‘exercise_map’**\n```r\n​    exercise_map <<- exercises$id\n    ^~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:51:11:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L51) *warning:* **no visible binding for '<<-' assignment to ‘exercise_map’**\n```r\n​    names(exercise_map) <<- exercises$name\n          ^~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:51:11:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L51) *warning:* **no visible binding for global variable ‘exercise_map’**\n```r\n​    names(exercise_map) <<- exercises$name\n          ^~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:51:11:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L51) *warning:* **no visible binding for global variable ‘exercise_map’**\n```r\n​    names(exercise_map) <<- exercises$name\n          ^~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:53:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L53) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    if(length(choices)>0){\n      ^\n```\n[R/AddinCourseTab.R:53:23:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L53) *style:* **Put spaces around all infix operators.**\n```r\n​    if(length(choices)>0){\n                     ~^~\n```\n[R/AddinCourseTab.R:57:16:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L57) *style:* **Put spaces around all infix operators.**\n```r\n​  }, ignoreInit=TRUE)\n              ~^~\n```\n[R/AddinCourseTab.R:75:27:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L75) *style:* **Put spaces around all infix operators.**\n```r\n​      withProgress(message=\"Downloading exercises\",{\n                         ~^~\n```\n[R/AddinCourseTab.R:75:52:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L75) *style:* **Commas should always have a space after.**\n```r\n​      withProgress(message=\"Downloading exercises\",{\n                                                   ^\n```\n[R/AddinCourseTab.R:79:46:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L79) *style:* **Put spaces around all infix operators.**\n```r\n​        courseName <- courses$name[courses$id==input$courseSelect]\n                                            ~^~~\n```\n[R/AddinCourseTab.R:81:11:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L81) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​        if(!dir.exists(courseName)){\n          ^\n```\n[R/AddinCourseTab.R:85:12:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L85) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​        for(exercise in input$exercises){\n           ^\n```\n[R/AddinCourseTab.R:86:19:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L86) *warning:* **no visible global function definition for ‘returnItem’**\n```r\n​          name <- returnItem(exercise, exercise_map)\n                  ^~~~~~~~~~\n```\n[R/AddinCourseTab.R:86:40:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L86) *warning:* **no visible binding for global variable ‘exercise_map’**\n```r\n​          name <- returnItem(exercise, exercise_map)\n                                       ^~~~~~~~~~~~\n```\n[R/AddinCourseTab.R:87:55:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L87) *style:* **Commas should always have a space after.**\n```r\n​          tmcrstudioaddin::download_exercise(exercise,zip_name=paste(exercise,\".zip\"),\n                                                      ^\n```\n[R/AddinCourseTab.R:87:63:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L87) *style:* **Put spaces around all infix operators.**\n```r\n​          tmcrstudioaddin::download_exercise(exercise,zip_name=paste(exercise,\".zip\"),\n                                                             ~^~\n```\n[R/AddinCourseTab.R:87:79:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L87) *style:* **Commas should always have a space after.**\n```r\n​          tmcrstudioaddin::download_exercise(exercise,zip_name=paste(exercise,\".zip\"),\n                                                                              ^\n```\n[R/AddinCourseTab.R:90:11:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L90) *warning:* **no visible global function definition for ‘incProgress’**\n```r\n​          incProgress(1/length(input$exercises))\n          ^~~~~~~~~~~\n```\n[R/AddinCourseTab.R:90:24:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L90) *style:* **Put spaces around all infix operators.**\n```r\n​          incProgress(1/length(input$exercises))\n                      ~^~\n```\n[R/AddinCourseTab.R:93:40:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L93) *style:* **Commas should always have a space after.**\n```r\n​      rstudioapi::showDialog(\"Success\",\"Exercises downloaded succesfully\",\"\")\n                                       ^\n```\n[R/AddinCourseTab.R:93:75:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L93) *style:* **Commas should always have a space after.**\n```r\n​      rstudioapi::showDialog(\"Success\",\"Exercises downloaded succesfully\",\"\")\n                                                                          ^\n```\n[R/AddinCourseTab.R:95:38:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L95) *style:* **Commas should always have a space after.**\n```r\n​      rstudioapi::showDialog(\"Error\",\"Something went wrong\",\"\")\n                                     ^\n```\n[R/AddinCourseTab.R:95:61:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L95) *style:* **Commas should always have a space after.**\n```r\n​      rstudioapi::showDialog(\"Error\",\"Something went wrong\",\"\")\n                                                            ^\n```\n[R/AddinCourseTab.R:102:6:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L102) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  for(name in names(list)) {\n     ^\n```\n[R/AddinCourseTab.R:103:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinCourseTab.R#L103) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    if(list[[name]] == item) {\n      ^\n```\n[R/AddinLoginTab.R:37:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinLoginTab.R#L37) *warning:* **no visible global function definition for ‘.loginPane’**\n```r\n​      .loginPane(ns)\n      ^~~~~~~~~~\n```\n[R/AddinLoginTab.R:40:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinLoginTab.R#L40) *warning:* **no visible global function definition for ‘.logoutPane’**\n```r\n​      .logoutPane(ns)\n      ^~~~~~~~~~~\n```\n[R/AddinLoginTab.R:45:24:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinLoginTab.R#L45) *warning:* **no visible global function definition for ‘.getTitleAndMessage’**\n```r\n​    titleAndMessage <- .getTitleAndMessage(response = response)\n                       ^~~~~~~~~~~~~~~~~~~\n```\n[R/AddinLoginTab.R:54:9:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinLoginTab.R#L54) *warning:* **no visible global function definition for ‘.logoutPane’**\n```r\n​        .logoutPane(ns)\n        ^~~~~~~~~~~\n```\n[R/AddinLoginTab.R:62:40:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinLoginTab.R#L62) *style:* **Put spaces around all infix operators.**\n```r\n​      credentials <- list(serverAddress=credentials$serverAddress)\n                                      ~^~\n```\n[R/AddinLoginTab.R:66:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinLoginTab.R#L66) *warning:* **no visible global function definition for ‘.loginPane’**\n```r\n​      .loginPane(ns)\n      ^~~~~~~~~~\n```\n[R/AddinSubmitTab.R:18:15:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L18) *warning:* **no visible global function definition for ‘reactiveValues’**\n```r\n​  reactive <- reactiveValues(submitResults = NULL, testResults = NULL, runStatus = NULL, showAll = TRUE)\n              ^~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:22:25:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L22) *style:* **Put spaces around all infix operators.**\n```r\n​    withProgress(message= 'Running tests', value = 1, {\n                       ~^\n```\n[R/AddinSubmitTab.R:32:25:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L32) *style:* **Put spaces around all infix operators.**\n```r\n​    withProgress(message= 'Submitting exercise', value = 0, {\n                       ~^\n```\n[R/AddinSubmitTab.R:33:17:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L33) *warning:* **no visible global function definition for ‘submitCurrent’**\n```r\n​      output <- submitCurrent()\n                ^~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:35:18:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L35) *warning:* **no visible global function definition for ‘processSubmissionJson’**\n```r\n​    submitRes <- processSubmissionJson(output)\n                 ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:39:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L39) *warning:* **no visible global function definition for ‘showMessage’**\n```r\n​    showMessage(submitRes)\n    ^~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:43:22:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L43) *style:* **Use <-, not =, for assignment.**\n```r\n​    reactive$showAll = input$showAllResults\n                     ^\n```\n[R/AddinSubmitTab.R:49:17:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L49) *style:* **Use <-, not =, for assignment.**\n```r\n​    testResults = reactive$testResults\n                ^\n```\n[R/AddinSubmitTab.R:53:15:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L53) *warning:* **no visible global function definition for ‘formatTestResults’**\n```r\n​      html <- formatTestResults(testResults, showAll)\n              ^~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:55:15:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L55) *warning:* **no visible global function definition for ‘.createRunSourcingFailHtml’**\n```r\n​      html <- .createRunSourcingFailHtml(runResults)\n              ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:62:23:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L62) *warning:* **no visible global function definition for ‘getTestOutput’**\n```r\n​  testResultOutput <- getTestOutput(testResults, showAll)\n                      ^~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:63:11:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L63) *warning:* **no visible global function definition for ‘formatResultsWithBar’**\n```r\n​  html <- formatResultsWithBar(testResultOutput, .testsPassedPercentage(testResults))\n          ^~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:63:50:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L63) *warning:* **no visible global function definition for ‘.testsPassedPercentage’**\n```r\n​  html <- formatResultsWithBar(testResultOutput, .testsPassedPercentage(testResults))\n                                                 ^~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:70:24:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L70) *warning:* **no visible global function definition for ‘upload_current_exercise’**\n```r\n​  url <- httr::content(upload_current_exercise(token))\n                       ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:71:27:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L71) *warning:* **no visible global function definition for ‘get_submission_json’**\n```r\n​  output <- httr::content(get_submission_json(token, url$submission_url))\n                          ^~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:73:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L73) *warning:* **no visible global function definition for ‘incProgress’**\n```r\n​    incProgress(1/3)\n    ^~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:73:18:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L73) *style:* **Put spaces around all infix operators.**\n```r\n​    incProgress(1/3)\n                ~^~\n```\n[R/AddinSubmitTab.R:75:15:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L75) *warning:* **no visible global function definition for ‘get_submission_json’**\n```r\n​    output <- get_submission_json(token, url$submission_url)\n              ^~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:90:25:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L90) *warning:* **no visible global function definition for ‘createSingleResultDisplay’**\n```r\n​    testResultOutput <- createSingleResultDisplay(testResults = testResults)\n                        ^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:98:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L98) *style:* **Lines should not be more than 120 characters.**\n```r\n​                            .progress { width:\", testsPassedPercentage, \"; height: 30px; background-color: green; border-radius: 0px; }\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:110:27:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L110) *warning:* **no visible global function definition for ‘processSubmission’**\n```r\n​  submitRes[[\"tests\"]] <- processSubmission(output)\n                          ^~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:118:14:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L118) *warning:* **no visible global function definition for ‘getDialogMessage’**\n```r\n​  message <- getDialogMessage(submitResults)\n             ^~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:146:32:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L146) *warning:* **no visible global function definition for ‘.createDetailedMessageWithButton’**\n```r\n​    elements <- list(elements, .createDetailedMessageWithButton(index, message))\n                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:153:10:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L153) *warning:* **no visible binding for global variable ‘tags’, Did you mean 'rtags'?**\n```r\n​  btn <- tags$button(id = paste(\"button_\", index, sep = \"\"), \"Toggle details\")\n         ^~~~\n```\n[R/AddinSubmitTab.R:174:10:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L174) *warning:* **no visible global function definition for ‘.createTestResultElement’**\n```r\n​  return(.createTestResultElement(name = \"All tests\", status = \"pass\"))\n         ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:180:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L180) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    fail_name = \"Sourcing fail\"\n    ^~~~~~~~~\n```\n[R/AddinSubmitTab.R:180:15:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L180) *style:* **Use <-, not =, for assignment.**\n```r\n​    fail_name = \"Sourcing fail\"\n              ^\n```\n[R/AddinSubmitTab.R:182:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L182) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    fail_name = \"Run fail\"\n    ^~~~~~~~~\n```\n[R/AddinSubmitTab.R:182:15:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/AddinSubmitTab.R#L182) *style:* **Use <-, not =, for assignment.**\n```r\n​    fail_name = \"Run fail\"\n              ^\n```\n[R/Authentication.R:8:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Authentication.R#L8) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    status_code <- status_code(response)\n    ^~~~~~~~~~~\n```\n[R/Authentication.R:34:54:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Authentication.R#L34) *warning:* **no visible global function definition for ‘timeout’**\n```r\n​  req <- httr::POST(url = url, body = body, config = timeout(30))\n                                                     ^~~~~~~\n```\n[R/Authentication.R:38:45:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Authentication.R#L38) *style:* **Commas should always have a space after.**\n```r\n​    credentials <- list(username = username,token = token, serverAddress = serverAddress)\n                                            ^\n```\n[R/Authentication.R:43:10:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Authentication.R#L43) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  else if(status_code(req) == 401){\n         ^\n```\n[R/Authentication.R:52:24:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Authentication.R#L52) *style:* **Put spaces around all infix operators.**\n```r\n​fetchClientIdAndSecret <-function(serverAddress){\n                       ^~~\n```\n[R/Authentication.R:54:40:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Authentication.R#L54) *warning:* **no visible global function definition for ‘timeout’**\n```r\n​  req <- httr::GET(url = url, config = timeout(30))\n                                       ^~~~~~~\n```\n[R/Authentication.R:67:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Authentication.R#L67) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!file.exists(\".server\")){\n    ^\n```\n[R/ExerciseDataHandler.R:1:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/ExerciseDataHandler.R#L1) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​create_exercise_metadata <- function(exercise_id,\n^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/ExerciseDataHandler.R:1:38:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/ExerciseDataHandler.R#L1) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​create_exercise_metadata <- function(exercise_id,\n                                     ^~~~~~~~~~~\n```\n[R/ExerciseDataHandler.R:2:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/ExerciseDataHandler.R#L2) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    exercise_directory, exercise_name) {\n    ^~~~~~~~~~~~~~~~~~\n```\n[R/ExerciseDataHandler.R:2:25:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/ExerciseDataHandler.R#L2) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    exercise_directory, exercise_name) {\n                        ^~~~~~~~~~~~~\n```\n[R/ExerciseDataHandler.R:5:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/ExerciseDataHandler.R#L5) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    course_directory_path <- file.path(dir, \"metadata.json\",\n    ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/ExerciseDataHandler.R:9:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/ExerciseDataHandler.R#L9) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    export_json <- jsonlite::toJSON(list(id = exercise_id,\n    ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:3:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L3) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​download_exercise <- function(exercise_id,\n^~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:3:31:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L3) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​download_exercise <- function(exercise_id,\n                              ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:4:25:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L4) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                        zip_target = getwd(),\n                        ^~~~~~~~~~\n```\n[R/HTTPQueries.R:5:25:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L5) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                        zip_name = \"temp.zip\",\n                        ^~~~~~~~\n```\n[R/HTTPQueries.R:6:25:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L6) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                        exercise_directory,\n                        ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:7:25:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L7) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                        exercise_name) {\n                        ^~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:12:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L12) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  zip_path <- paste(sep = \"\", zip_target, \"/\", zip_name)\n  ^~~~~~~~\n```\n[R/HTTPQueries.R:14:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L14) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  exercises_url <- paste(sep = \"\", serverAddress, \"/\", \"api/v8/core/exercises/\",\n  ^~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:19:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L19) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  exercises_response <- httr::GET(exercises_url,\n  ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:24:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L24) *warning:* **no visible global function definition for ‘.tmc_unzip’**\n```r\n​  .tmc_unzip(zipfile_name = zip_path, target_folder = exercise_directory)\n  ^~~~~~~~~~\n```\n[R/HTTPQueries.R:28:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L28) *warning:* **no visible global function definition for ‘create_exercise_metadata’**\n```r\n​  create_exercise_metadata(exercise_id, exercise_directory, exercise_name)\n  ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:35:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L35) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​download_all_exercises <- function(course_id) {\n^~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:35:36:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L35) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​download_all_exercises <- function(course_id) {\n                                   ^~~~~~~~~\n```\n[R/HTTPQueries.R:39:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L39) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    base_url <- credentials$serverAddress\n    ^~~~~~~~\n```\n[R/HTTPQueries.R:41:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L41) *warning:* **local variable ‘token’ assigned but may not be used**\n```r\n​    token <- credentials$token\n    ^~~~~\n```\n[R/HTTPQueries.R:44:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L44) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    course_url <- paste(sep = \"\", base_url, \"/\", \"api/v8/courses\",\n    ^~~~~~~~~~\n```\n[R/HTTPQueries.R:47:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L47) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    course_exercises_url <- paste(sep = \"/\", course_url, \"exercises\")\n    ^~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:49:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L49) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    url_config <- httr::add_headers(Authorization = )\n    ^~~~~~~~~~\n```\n[R/HTTPQueries.R:49:52:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L49) *style:* **Do not place spaces around code in parentheses or square brackets.**\n```r\n​    url_config <- httr::add_headers(Authorization = )\n                                                   ^\n```\n[R/HTTPQueries.R:51:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L51) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    course_exercises_response <- httr::GET(course_exercises_url,\n    ^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:55:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L55) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    course_name_response <- httr::GET(course_url, config = url_config)\n    ^~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:57:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L57) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    course_name <- httr::content(course_name_response)$name\n    ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:58:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L58) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    user_home <- Sys.getenv(\"HOME\")\n    ^~~~~~~~~\n```\n[R/HTTPQueries.R:59:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L59) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    r_home <- file.path(user_home, \"tmcr-projects\")\n    ^~~~~~\n```\n[R/HTTPQueries.R:61:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L61) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    course_directory_path <- file.path(r_home, course_name,\n    ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:66:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L66) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    json_exercises <- jsonlite::read_json(\"temp.json\")\n    ^~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:76:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L76) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​from_json_to_download <- function(json_exercises, course_directory_path) {\n^~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:76:35:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L76) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​from_json_to_download <- function(json_exercises, course_directory_path) {\n                                  ^~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:76:51:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L76) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​from_json_to_download <- function(json_exercises, course_directory_path) {\n                                                  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:79:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L79) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    exercise_name <- json_exercises[i][[1]]$name\n    ^~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:92:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L92) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​upload_exercise <- function(token, exercise_id, project_path,\n^~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:92:36:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L92) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​upload_exercise <- function(token, exercise_id, project_path,\n                                   ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:92:49:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L92) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​upload_exercise <- function(token, exercise_id, project_path,\n                                                ^~~~~~~~~~~~\n```\n[R/HTTPQueries.R:93:30:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L93) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                             server_address, zip_name = \"temp\",\n                             ^~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:93:46:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L93) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                             server_address, zip_name = \"temp\",\n                                             ^~~~~~~~\n```\n[R/HTTPQueries.R:94:30:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L94) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                             remove_zip = TRUE) {\n                             ^~~~~~~~~~\n```\n[R/HTTPQueries.R:95:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L95) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  base_url <- server_address\n  ^~~~~~~~\n```\n[R/HTTPQueries.R:96:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L96) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  exercises_url <- paste(sep = \"\", base_url, \"api/v8/core/exercises/\",\n  ^~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:98:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L98) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  url_config <- httr::add_headers(Authorization = token)\n  ^~~~~~~~~~\n```\n[R/HTTPQueries.R:100:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L100) *warning:* **no visible global function definition for ‘.tmc_zip’**\n```r\n​  .tmc_zip(project_path, zip_name)\n  ^~~~~~~~\n```\n[R/HTTPQueries.R:101:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L101) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  zipped_file <- paste(sep = \"\", getwd(), \"/\", zip_name, \".zip\")\n  ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:102:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L102) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  submission_file <- httr::upload_file(zipped_file)\n  ^~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:104:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L104) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  exercises_response <- httr::POST(exercises_url,\n  ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:117:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L117) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​get_submission_json <- function(token, url) {\n^~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:118:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L118) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  url_config <- httr::add_headers(Authorization = token)\n  ^~~~~~~~~~\n```\n[R/HTTPQueries.R:120:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L120) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  exercises_response <- httr::GET(url, config = url_config)\n  ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:128:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L128) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​upload_current_exercise <- function(token, zip_name = \"temp\", remove_zip = TRUE,\n^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:128:44:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L128) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​upload_current_exercise <- function(token, zip_name = \"temp\", remove_zip = TRUE,\n                                           ^~~~~~~~\n```\n[R/HTTPQueries.R:128:63:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L128) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​upload_current_exercise <- function(token, zip_name = \"temp\", remove_zip = TRUE,\n                                                              ^~~~~~~~~~\n```\n[R/HTTPQueries.R:129:37:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L129) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                                    project_path = rstudioapi::getActiveProject()) {\n                                    ^~~~~~~~~~~~\n```\n[R/HTTPQueries.R:147:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L147) *style:* **Lines should not be more than 120 characters.**\n```r\n​    req <-  httr::stop_for_status(httr::GET(url = url,httr::add_headers(Authorization = token), config = timeout(30), encode = \"json\"))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:147:55:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L147) *style:* **Commas should always have a space after.**\n```r\n​    req <-  httr::stop_for_status(httr::GET(url = url,httr::add_headers(Authorization = token), config = timeout(30), encode = \"json\"))\n                                                      ^\n```\n[R/HTTPQueries.R:147:106:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L147) *warning:* **no visible global function definition for ‘timeout’**\n```r\n​    req <-  httr::stop_for_status(httr::GET(url = url,httr::add_headers(Authorization = token), config = timeout(30), encode = \"json\"))\n                                                                                                         ^~~~~~~\n```\n[R/HTTPQueries.R:161:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L161) *style:* **Lines should not be more than 120 characters.**\n```r\n​    req <- httr::stop_for_status(httr::GET(url = url, config = httr::add_headers(Authorization = token), encode = \"json\",timeout(30)))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:161:122:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L161) *style:* **Commas should always have a space after.**\n```r\n​    req <- httr::stop_for_status(httr::GET(url = url, config = httr::add_headers(Authorization = token), encode = \"json\",timeout(30)))\n                                                                                                                         ^\n```\n[R/HTTPQueries.R:161:122:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L161) *warning:* **no visible global function definition for ‘timeout’**\n```r\n​    req <- httr::stop_for_status(httr::GET(url = url, config = httr::add_headers(Authorization = token), encode = \"json\",timeout(30)))\n                                                                                                                         ^~~~~~~\n```\n[R/HTTPQueries.R:164:12:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L164) *style:* **Put spaces around all infix operators.**\n```r\n​    list(id=list(),name = list())\n          ~^~\n```\n[R/HTTPQueries.R:164:20:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L164) *style:* **Commas should always have a space after.**\n```r\n​    list(id=list(),name = list())\n                   ^\n```\n[R/HTTPQueries.R:166:17:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L166) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(id=courses$id,name=courses$name))\n               ~^~\n```\n[R/HTTPQueries.R:166:29:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L166) *style:* **Commas should always have a space after.**\n```r\n​  return(list(id=courses$id,name=courses$name))\n                            ^\n```\n[R/HTTPQueries.R:166:33:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L166) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(id=courses$id,name=courses$name))\n                               ~^~\n```\n[R/HTTPQueries.R:174:52:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L174) *style:* **Commas should always have a space after.**\n```r\n​    url <- paste(serverAddress, \"/api/v8/courses/\",course, \"/exercises\", sep = \"\")\n                                                   ^\n```\n[R/HTTPQueries.R:175:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L175) *style:* **Lines should not be more than 120 characters.**\n```r\n​    req <- httr::stop_for_status(httr::GET(url = url,httr::add_headers(Authorization = token), config = timeout(30), encode = \"json\"))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:175:54:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L175) *style:* **Commas should always have a space after.**\n```r\n​    req <- httr::stop_for_status(httr::GET(url = url,httr::add_headers(Authorization = token), config = timeout(30), encode = \"json\"))\n                                                     ^\n```\n[R/HTTPQueries.R:175:105:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/HTTPQueries.R#L175) *warning:* **no visible global function definition for ‘timeout’**\n```r\n​    req <- httr::stop_for_status(httr::GET(url = url,httr::add_headers(Authorization = token), config = timeout(30), encode = \"json\"))\n                                                                                                        ^~~~~~~\n```\n[R/TestResultsStats.R:19:27:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/TestResultsStats.R#L19) *warning:* **no visible global function definition for ‘.getStatusFromBoolean’**\n```r\n​    result[[\"status\"]] <- .getStatusFromBoolean(test_case$successful)\n                          ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/TMC_plugin.R:23:23:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/TMC_plugin.R#L23) *warning:* **no visible binding for global variable ‘.loginTab’**\n```r\n​    shiny::callModule(.loginTab, \"login\")\n                      ^~~~~~~~~\n```\n[R/TMC_plugin.R:24:23:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/TMC_plugin.R#L24) *warning:* **no visible binding for global variable ‘.courseTab’**\n```r\n​    shiny::callModule(.courseTab, \"courses\")\n                      ^~~~~~~~~~\n```\n[R/TMC_plugin.R:25:23:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/TMC_plugin.R#L25) *warning:* **no visible binding for global variable ‘.submitTab’**\n```r\n​    shiny::callModule(.submitTab, \"testAndSubmit\")\n                      ^~~~~~~~~~\n```\n[R/Zipper.R:2:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L2) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​.tmc_zip <- function(folder, target) {\n^~~~~~~~\n```\n[R/Zipper.R:3:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L3) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  files_to_zip <- dir(folder, full.names = TRUE)\n  ^~~~~~~~~~~~\n```\n[R/Zipper.R:7:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L7) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​.tmc_unzip <- function(zipfile_name, target_folder) {\n^~~~~~~~~~\n```\n[R/Zipper.R:7:24:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L7) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​.tmc_unzip <- function(zipfile_name, target_folder) {\n                       ^~~~~~~~~~~~\n```\n[R/Zipper.R:7:38:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L7) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​.tmc_unzip <- function(zipfile_name, target_folder) {\n                                     ^~~~~~~~~~~~~\n```\n[R/Zipper.R:11:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L11) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​.tmc_tar <- function(folder, target) {\n^~~~~~~~\n```\n[R/Zipper.R:12:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L12) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  files_to_tar <- dir(folder, full.names = TRUE)\n  ^~~~~~~~~~~~\n```\n[R/Zipper.R:16:1:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L16) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​.tmc_untar <- function(tarfile_name, target_folder) {\n^~~~~~~~~~\n```\n[R/Zipper.R:16:24:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L16) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​.tmc_untar <- function(tarfile_name, target_folder) {\n                       ^~~~~~~~~~~~\n```\n[R/Zipper.R:16:38:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/R/Zipper.R#L16) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​.tmc_untar <- function(tarfile_name, target_folder) {\n                                     ^~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:1:3:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L1) *style:* **Commented code should be removed.**\n```r\n​# context(\"Submitting\")\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:5:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L5) *style:* **Commented code should be removed.**\n```r\n​#     token <- login(\"a\", \"b\", \"c\", \"d\", \"https://tmc.mooc.fi\")\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:6:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L6) *style:* **Commented code should be removed.**\n```r\n​#     ex_id <- 36451\n      ^~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:7:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L7) *style:* **Commented code should be removed.**\n```r\n​#     resp <- upload_exercise(token, ex_id, \"resources/Week0-0_0_helloworld/\", \"https://tmc.mooc.fi/\")\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:8:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L8) *style:* **Commented code should be removed.**\n```r\n​#     content <- httr::content(resp)\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:10:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L10) *style:* **Commented code should be removed.**\n```r\n​#     expect_true(is.character(content$submission_url))\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:15:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L15) *style:* **Commented code should be removed.**\n```r\n​#   token <- authenticate(\"rtest\", \"asdasdasd\", \"https://tmc.mooc.fi\")\n    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:16:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L16) *style:* **Commented code should be removed.**\n```r\n​#   download_all_exercises(token = token, \"242\")\n    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:18:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L18) *style:* **Commented code should be removed.**\n```r\n​#   course_name <- \"hy-C-Programming-Open\"\n    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:19:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L19) *style:* **Commented code should be removed.**\n```r\n​#   user_home <- Sys.getenv(\"HOME\")\n    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:20:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L20) *style:* **Commented code should be removed.**\n```r\n​#   r_home <- file.path(user_home, \"tmcr-projects\", fsep = .Platform$file.sep)\n    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:25:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L25) *style:* **Commented code should be removed.**\n```r\n​#   expect_true(dir.exists(course_directory_path))\n    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:28:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L28) *style:* **Commented code should be removed.**\n```r\n​#     file.remove(\".credentials.rds\")\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:40:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L40) *style:* **Commented code should be removed.**\n```r\n​    # authenticate(\"rtest\", \"asdasdasd\", \"https://tmc.mooc.fi\")\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:64:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L64) *style:* **Commented code should be removed.**\n```r\n​    # authenticate(\"rtest\", \"asdasdasd\", \"https://tmc.mooc.fi\")\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:84:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L84) *style:* **Commented code should be removed.**\n```r\n​    # authenticate(\"rtest\", \"asdasdasd\", \"https://tmc.mooc.fi\")\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:105:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L105) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    response_content <- httr::content(response)\n    ^~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:118:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L118) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    response_content <- httr::content(response)\n    ^~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:129:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testHTTPQueries.R#L129) *style:* **Commented code should be removed.**\n```r\n​    # login(\"a\", \"b\", \"c\", \"d\", \"tmc.moasasddas.fi\")\n      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testLintr.R:3:5:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testLintr.R#L3) *style:* **Commented code should be removed.**\n```r\n​#   context(\"lints\")\n    ^~~~~~~~~~~~~~~~\n```\n[tests/testthat/testLintr.R:5:7:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/testLintr.R#L5) *style:* **Commented code should be removed.**\n```r\n​#     lintr::expect_lint_free()\n      ^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:1:72:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L1) *style:* **Trailing whitespace is superfluous.**\n```r\n​structure(list(url = \"https://tmc.mooc.fi/api/v8/core/submissions/136\", \n                                                                       ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:2:74:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L2) *style:* **Trailing whitespace is superfluous.**\n```r\n​    status_code = 403L, headers = structure(list(server = \"nginx/1.13.1\", \n                                                                         ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:3:100:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L3) *style:* **Trailing whitespace is superfluous.**\n```r\n​        date = \"Fri, 24 Nov 2017 10:44:51 GMT\", `content-type` = \"application/json; charset=utf-8\", \n                                                                                                   ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:4:68:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L4) *style:* **Trailing whitespace is superfluous.**\n```r\n​        `transfer-encoding` = \"chunked\", connection = \"keep-alive\", \n                                                                   ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:5:93:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L5) *style:* **Trailing whitespace is superfluous.**\n```r\n​        `cache-control` = \"no-cache\", vary = \"Origin\", `x-xss-protection` = \"1; mode=block\", \n                                                                                            ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:6:65:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L6) *style:* **Trailing whitespace is superfluous.**\n```r\n​        `x-request-id` = \"8014D112-D104-11E7-A822-446785C04B87\", \n                                                                ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:7:68:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L7) *style:* **Trailing whitespace is superfluous.**\n```r\n​        `x-runtime` = \"0.072333\", `x-frame-options` = \"SAMEORIGIN\", \n                                                                   ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:8:81:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L8) *style:* **Trailing whitespace is superfluous.**\n```r\n​        `x-content-type-options` = \"nosniff\", `x-rack-cors` = \"miss; no-origin\", \n                                                                                ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:9:79:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L9) *style:* **Trailing whitespace is superfluous.**\n```r\n​        `x-powered-by` = \"Phusion Passenger 5.0.26\", status = \"403 Forbidden\", \n                                                                              ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:10:67:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L10) *style:* **Trailing whitespace is superfluous.**\n```r\n​        `content-encoding` = \"gzip\"), .Names = c(\"server\", \"date\", \n                                                                  ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:11:72:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L11) *style:* **Trailing whitespace is superfluous.**\n```r\n​    \"content-type\", \"transfer-encoding\", \"connection\", \"cache-control\", \n                                                                       ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:12:61:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L12) *style:* **Trailing whitespace is superfluous.**\n```r\n​    \"vary\", \"x-xss-protection\", \"x-request-id\", \"x-runtime\", \n                                                            ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:13:64:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L13) *style:* **Trailing whitespace is superfluous.**\n```r\n​    \"x-frame-options\", \"x-content-type-options\", \"x-rack-cors\", \n                                                               ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:14:76:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L14) *style:* **Trailing whitespace is superfluous.**\n```r\n​    \"x-powered-by\", \"status\", \"content-encoding\"), class = c(\"insensitive\", \n                                                                           ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:15:63:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L15) *style:* **Trailing whitespace is superfluous.**\n```r\n​    \"list\")), all_headers = list(structure(list(status = 403L, \n                                                              ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:16:80:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L16) *style:* **Trailing whitespace is superfluous.**\n```r\n​        version = \"HTTP/1.1\", headers = structure(list(server = \"nginx/1.13.1\", \n                                                                               ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:17:104:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L17) *style:* **Trailing whitespace is superfluous.**\n```r\n​            date = \"Fri, 24 Nov 2017 10:44:51 GMT\", `content-type` = \"application/json; charset=utf-8\", \n                                                                                                       ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:18:72:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L18) *style:* **Trailing whitespace is superfluous.**\n```r\n​            `transfer-encoding` = \"chunked\", connection = \"keep-alive\", \n                                                                       ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:19:97:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L19) *style:* **Trailing whitespace is superfluous.**\n```r\n​            `cache-control` = \"no-cache\", vary = \"Origin\", `x-xss-protection` = \"1; mode=block\", \n                                                                                                ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:20:69:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L20) *style:* **Trailing whitespace is superfluous.**\n```r\n​            `x-request-id` = \"8014D112-D104-11E7-A822-446785C04B87\", \n                                                                    ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:21:72:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L21) *style:* **Trailing whitespace is superfluous.**\n```r\n​            `x-runtime` = \"0.072333\", `x-frame-options` = \"SAMEORIGIN\", \n                                                                       ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:22:85:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L22) *style:* **Trailing whitespace is superfluous.**\n```r\n​            `x-content-type-options` = \"nosniff\", `x-rack-cors` = \"miss; no-origin\", \n                                                                                    ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:23:83:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L23) *style:* **Trailing whitespace is superfluous.**\n```r\n​            `x-powered-by` = \"Phusion Passenger 5.0.26\", status = \"403 Forbidden\", \n                                                                                  ^\n```\n[tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R:24:63:](https://github.com/RTMC/tmc-rstudio/blob/80369c858834f0e2e5c806ee7b412a585f556439/tests/testthat/tmc.mooc.fi/api/v8/core/submissions/136.R#L24) *style:* **Trailing whitespace is superfluous.**\n```r\n​            `content-encoding` = \"gzip\"), .Names = c(\"server\", \n                                                              ^\n```\n"}}
{"actor":{"display_login":"lintr-bot"}}