{"comment":{"url":"https://api.github.com/repos/RTMC/tmc-rstudio/comments/25741194","html_url":"https://github.com/RTMC/tmc-rstudio/commit/b412692b460d687bcb77fbe80f210f75b36f3945#commitcomment-25741194","id":25741194,"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":"b412692b460d687bcb77fbe80f210f75b36f3945","created_at":"2017-11-20T22:22:16Z","updated_at":"2017-11-20T22:22:16Z","author_association":"NONE","body":"[R/AddinCourseTab.R:22:52:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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:44:19:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L44) *style:* **Put spaces around all infix operators.**\n```r\n​    names(choices)<-exercises$name\n                 ~^~~\n```\n[R/AddinCourseTab.R:46:16:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L46) *style:* **Put spaces around all infix operators.**\n```r\n​  }, ignoreInit=TRUE)\n              ~^~\n```\n[R/AddinCourseTab.R:66:44:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L66) *style:* **Put spaces around all infix operators.**\n```r\n​      courseName <- courses$name[courses$id==input$courseSelect]\n                                          ~^~~\n```\n[R/AddinCourseTab.R:67:9:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L67) *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:70:10:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L70) *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:71:53:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L71) *style:* **Commas should always have a space after.**\n```r\n​        tmcrstudioaddin::download_exercise(exercise,zip_name=paste(exercise,\".zip\"), exercise_directory = courseName)\n                                                    ^\n```\n[R/AddinCourseTab.R:71:61:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L71) *style:* **Put spaces around all infix operators.**\n```r\n​        tmcrstudioaddin::download_exercise(exercise,zip_name=paste(exercise,\".zip\"), exercise_directory = courseName)\n                                                           ~^~\n```\n[R/AddinCourseTab.R:71:77:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L71) *style:* **Commas should always have a space after.**\n```r\n​        tmcrstudioaddin::download_exercise(exercise,zip_name=paste(exercise,\".zip\"), exercise_directory = courseName)\n                                                                            ^\n```\n[R/AddinCourseTab.R:73:40:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L73) *style:* **Commas should always have a space after.**\n```r\n​      rstudioapi::showDialog(\"Success\",\"Exercises downloaded succesfully\",\"\")\n                                       ^\n```\n[R/AddinCourseTab.R:73:75:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L73) *style:* **Commas should always have a space after.**\n```r\n​      rstudioapi::showDialog(\"Success\",\"Exercises downloaded succesfully\",\"\")\n                                                                          ^\n```\n[R/AddinCourseTab.R:75:38:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L75) *style:* **Commas should always have a space after.**\n```r\n​      rstudioapi::showDialog(\"Error\",\"Something went wrong\",\"\")\n                                     ^\n```\n[R/AddinCourseTab.R:75:61:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinCourseTab.R#L75) *style:* **Commas should always have a space after.**\n```r\n​      rstudioapi::showDialog(\"Error\",\"Something went wrong\",\"\")\n                                                            ^\n```\n[R/AddinLoginTab.R:37:7:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L18) *warning:* **no visible global function definition for ‘reactiveValues’**\n```r\n​  reactive <- reactiveValues(submitResults = NULL, testResults = NULL, showAll = TRUE)\n              ^~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:22:25:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/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:30:25:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L30) *style:* **Put spaces around all infix operators.**\n```r\n​    withProgress(message= 'Submitting exercise', value = 0, {\n                       ~^\n```\n[R/AddinSubmitTab.R:31:17:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L31) *warning:* **no visible global function definition for ‘submitCurrent’**\n```r\n​      output <- submitCurrent()\n                ^~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:33:18:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L33) *warning:* **no visible global function definition for ‘processSubmissionJson’**\n```r\n​    submitRes <- processSubmissionJson(output)\n                 ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:36:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L36) *warning:* **no visible global function definition for ‘showMessage’**\n```r\n​    showMessage(submitRes)\n    ^~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:40:22:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L40) *style:* **Use <-, not =, for assignment.**\n```r\n​    reactive$showAll = input$showAllResults\n                     ^\n```\n[R/AddinSubmitTab.R:46:17:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L46) *style:* **Use <-, not =, for assignment.**\n```r\n​    testResults = reactive$testResults\n                ^\n```\n[R/AddinSubmitTab.R:50:15:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L50) *warning:* **no visible global function definition for ‘formatTestResults’**\n```r\n​      html <- formatTestResults(testResults, showAll)\n              ^~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:52:15:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L52) *warning:* **no visible global function definition for ‘.createRunSourcingFailHtml’**\n```r\n​      html <- .createRunSourcingFailHtml(runResults)\n              ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:52:42:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L52) *warning:* **no visible binding for global variable ‘runResults’**\n```r\n​      html <- .createRunSourcingFailHtml(runResults)\n                                         ^~~~~~~~~~\n```\n[R/AddinSubmitTab.R:59:23:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L59) *warning:* **no visible global function definition for ‘getTestOutput’**\n```r\n​  testResultOutput <- getTestOutput(testResults, showAll)\n                      ^~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:60:11:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L60) *warning:* **no visible global function definition for ‘formatResultsWithBar’**\n```r\n​  html <- formatResultsWithBar(testResultOutput, .testsPassedPercentage(testResults))\n          ^~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:60:50:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L60) *warning:* **no visible global function definition for ‘.testsPassedPercentage’**\n```r\n​  html <- formatResultsWithBar(testResultOutput, .testsPassedPercentage(testResults))\n                                                 ^~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:67:10:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L67) *warning:* **no visible global function definition for ‘upload_current_exercise’**\n```r\n​  url <- upload_current_exercise(token)\n         ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:68:13:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L68) *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:70:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L70) *warning:* **no visible global function definition for ‘incProgress’**\n```r\n​    incProgress(1/3)\n    ^~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:70:18:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L70) *style:* **Put spaces around all infix operators.**\n```r\n​    incProgress(1/3)\n                ~^~\n```\n[R/AddinSubmitTab.R:72:15:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L72) *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:87:25:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L87) *warning:* **no visible global function definition for ‘createSingleResultDisplay’**\n```r\n​    testResultOutput <- createSingleResultDisplay(testResults = testResults)\n                        ^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:95:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L95) *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:107:27:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L107) *warning:* **no visible global function definition for ‘processSubmission’**\n```r\n​  submitRes[[\"tests\"]] <- processSubmission(output)\n                          ^~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:115:14:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L115) *warning:* **no visible global function definition for ‘getDialogMessage’**\n```r\n​  message <- getDialogMessage(submitResults)\n             ^~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:143:32:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L143) *warning:* **no visible global function definition for ‘.createDetailedMessageWithButton’**\n```r\n​    elements <- list(elements, .createDetailedMessageWithButton(index, message))\n                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:150:10:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L150) *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:171:10:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L171) *warning:* **no visible global function definition for ‘.createTestResultElement’**\n```r\n​  return(.createTestResultElement(name = \"All tests\", status = \"pass\"))\n         ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/AddinSubmitTab.R:177:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L177) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    fail_name = \"Sourcing fail\"\n    ^~~~~~~~~\n```\n[R/AddinSubmitTab.R:177:15:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L177) *style:* **Use <-, not =, for assignment.**\n```r\n​    fail_name = \"Sourcing fail\"\n              ^\n```\n[R/AddinSubmitTab.R:179:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L179) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    fail_name = \"Run fail\"\n    ^~~~~~~~~\n```\n[R/AddinSubmitTab.R:179:15:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/AddinSubmitTab.R#L179) *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/b412692b460d687bcb77fbe80f210f75b36f3945/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:9:7:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/Authentication.R#L9) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    if(status_code == 200){\n      ^\n```\n[R/Authentication.R:18:14:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/Authentication.R#L18) *style:* **Put spaces around all infix operators.**\n```r\n​    response <-list(error_description = \"Invalid request\", error = \"Bad request\")\n             ^~~\n```\n[R/Authentication.R:37:45:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/Authentication.R#L37) *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:42:80:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/Authentication.R#L42) *style:* **Commas should always have a space after.**\n```r\n​    response <- list(error_description = \"Check your username and/or password\",error = \"Invalid credentials\")\n                                                                               ^\n```\n[R/Authentication.R:47:24:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/Authentication.R#L47) *style:* **Put spaces around all infix operators.**\n```r\n​fetchClientIdAndSecret <-function(serverAddress){\n                       ^~~\n```\n[R/Authentication.R:69:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/Authentication.R#L69) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!file.exists(\".server\")){\n    ^\n```\n[R/HTTPQueries.R:1:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L1) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​create_exercise_metadata <- function(exercise_id, exercise_directory) {\n^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:1:38:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L1) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​create_exercise_metadata <- function(exercise_id, exercise_directory) {\n                                     ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:1:51:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L1) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​create_exercise_metadata <- function(exercise_id, exercise_directory) {\n                                                  ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:2:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L2) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    course_directory_path <- file.path(get_actual_project_path(exercise_directory), \"metadata.json\",\n    ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:6:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L6) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    export_json <- toJSON(list(id = exercise_id,\n    ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:14:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L14) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​get_actual_project_path <- function(exercise_directory) {\n^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:14:37:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L14) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​get_actual_project_path <- function(exercise_directory) {\n                                    ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:15:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L15) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  subfolder_path <- paste(sep = \"/\", exercise_directory, list.files(exercise_directory)[1])\n  ^~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:16:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L16) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  project_path <- paste(sep = \"/\", subfolder_path, list.files(subfolder_path)[1])\n  ^~~~~~~~~~~~\n```\n[R/HTTPQueries.R:16:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L16) *warning:* **local variable ‘project_path’ assigned but may not be used**\n```r\n​  project_path <- paste(sep = \"/\", subfolder_path, list.files(subfolder_path)[1])\n  ^~~~~~~~~~~~\n```\n[R/HTTPQueries.R:22:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L22) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​download_exercise <- function(exercise_id,\n^~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:22:31:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L22) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​download_exercise <- function(exercise_id,\n                              ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:23:25:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L23) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                        zip_target = getwd(),\n                        ^~~~~~~~~~\n```\n[R/HTTPQueries.R:24:25:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L24) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                        zip_name = \"temp.zip\",\n                        ^~~~~~~~\n```\n[R/HTTPQueries.R:25:25:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L25) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                        exercise_directory) {\n                        ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:30:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L30) *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:32:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L32) *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:35:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L35) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  url_config <- httr::add_headers(Authorization = token)\n  ^~~~~~~~~~\n```\n[R/HTTPQueries.R:37:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L37) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  exercises_response <- httr::GET(exercises_url,\n  ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:41:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L41) *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:45:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L45) *warning:* **no visible global function definition for ‘create_exercise_metadata’**\n```r\n​  create_exercise_metadata(exercise_id, exercise_directory)\n  ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:52:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L52) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​download_all_exercises <- function(token, course_id) {\n^~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:52:43:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L52) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​download_all_exercises <- function(token, course_id) {\n                                          ^~~~~~~~~\n```\n[R/HTTPQueries.R:57:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L57) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    base_url <- getServerAddress()\n    ^~~~~~~~\n```\n[R/HTTPQueries.R:57:17:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L57) *warning:* **no visible global function definition for ‘getServerAddress’**\n```r\n​    base_url <- getServerAddress()\n                ^~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:60:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L60) *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:63:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L63) *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:66:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L66) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    url_config <- httr::add_headers(Authorization = token)\n    ^~~~~~~~~~\n```\n[R/HTTPQueries.R:68:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L68) *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:72:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L72) *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:76:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L76) *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:77:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L77) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    user_home <- Sys.getenv(\"HOME\")\n    ^~~~~~~~~\n```\n[R/HTTPQueries.R:78:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L78) *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:81:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L81) *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:86:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L86) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    json_exercises <- jsonlite::read_json(\"temp.json\")\n    ^~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:89:7:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L89) *warning:* **no visible global function definition for ‘from_json_to_download’**\n```r\n​      from_json_to_download(i, json_exercises, token, course_directory_path)\n      ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:100:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L100) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​from_json_to_download <- function(exercise_iteration,\n^~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:100:35:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L100) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​from_json_to_download <- function(exercise_iteration,\n                                  ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:101:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L101) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  json_exercises, token, course_directory_path) {\n  ^~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:101:26:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L101) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  json_exercises, token, course_directory_path) {\n                         ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:103:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L103) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    exercise_id <- json_exercises[exercise_iteration][[1]]$id\n    ^~~~~~~~~~~\n```\n[R/HTTPQueries.R:104:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L104) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    exercise_name <- json_exercises[exercise_iteration][[1]]$name\n    ^~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:105:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L105) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    exercise_dir <- paste(sep = \"/\", course_directory_path, exercise_name)\n    ^~~~~~~~~~~~\n```\n[R/HTTPQueries.R:114:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L114) *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:114:36:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L114) *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:114:49:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L114) *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:115:30:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L115) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                             server_address, zip_name = \"temp\",\n                             ^~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:115:46:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L115) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                             server_address, zip_name = \"temp\",\n                                             ^~~~~~~~\n```\n[R/HTTPQueries.R:116:30:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L116) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                             remove_zip = TRUE) {\n                             ^~~~~~~~~~\n```\n[R/HTTPQueries.R:117:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L117) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  base_url <- server_address\n  ^~~~~~~~\n```\n[R/HTTPQueries.R:118:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L118) *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:120:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L120) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  url_config <- httr::add_headers(Authorization = token)\n  ^~~~~~~~~~\n```\n[R/HTTPQueries.R:122:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L122) *warning:* **no visible global function definition for ‘.tmc_zip’**\n```r\n​  .tmc_zip(project_path, zip_name)\n  ^~~~~~~~\n```\n[R/HTTPQueries.R:123:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L123) *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:124:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L124) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  submission_file <- httr::upload_file(zipped_file)\n  ^~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:126:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L126) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  exercises_response <- httr::POST(exercises_url,\n  ^~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:139:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L139) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​get_submission_json <- function(token, url) {\n^~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:140:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L140) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  url_config <- httr::add_headers(Authorization = token)\n  ^~~~~~~~~~\n```\n[R/HTTPQueries.R:142:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L142) *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:150:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L150) *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:150:44:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L150) *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:150:63:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L150) *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:151:37:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L151) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​                                    project_path = rstudioapi::getActiveProject()) {\n                                    ^~~~~~~~~~~~\n```\n[R/HTTPQueries.R:183:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L183) *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\"))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/HTTPQueries.R:186:12:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L186) *style:* **Put spaces around all infix operators.**\n```r\n​    list(id=list(),name = list())\n          ~^~\n```\n[R/HTTPQueries.R:186:20:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L186) *style:* **Commas should always have a space after.**\n```r\n​    list(id=list(),name = list())\n                   ^\n```\n[R/HTTPQueries.R:188:17:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L188) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(id=courses$id,name=courses$name))\n               ~^~\n```\n[R/HTTPQueries.R:188:29:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L188) *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:188:33:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L188) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(id=courses$id,name=courses$name))\n                               ~^~\n```\n[R/HTTPQueries.R:195:52:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L195) *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:196:1:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/R/HTTPQueries.R#L196) *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\"))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/TestResultsStats.R:19:27:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/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:6:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L6) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  course_name <- \"hy-C-Programming-Open\"\n  ^~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:7:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L7) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  user_home <- Sys.getenv(\"HOME\")\n  ^~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:8:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L8) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  r_home <- file.path(user_home, \"tmcr-projects\", fsep = .Platform$file.sep)\n  ^~~~~~\n```\n[tests/testthat/testHTTPQueries.R:13:3:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L13) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  course_directory_path <- file.path(r_home, course_name,\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[tests/testthat/testHTTPQueries.R:21:37:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L21) *style:* **Commas should always have a space after.**\n```r\n​  authenticate(\"rtest\", \"asdasdasd\",\"https://tmc.mooc.fi\")\n                                    ^\n```\n[tests/testthat/testHTTPQueries.R:22:16:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L22) *style:* **Put spaces around all infix operators.**\n```r\n​  organizations<-tmcrstudioaddin::getAllOrganizations()\n              ~^~~\n```\n[tests/testthat/testHTTPQueries.R:37:16:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L37) *style:* **Put spaces around all infix operators.**\n```r\n​  organizations<-tmcrstudioaddin::getAllOrganizations()\n              ~^~~\n```\n[tests/testthat/testHTTPQueries.R:49:10:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L49) *style:* **Put spaces around all infix operators.**\n```r\n​  courses<-getAllCourses(\"hy\")\n        ~^~~\n```\n[tests/testthat/testHTTPQueries.R:74:46:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testHTTPQueries.R#L74) *style:* **Commas should always have a space after.**\n```r\n​  token <- authenticate(\"rtest\", \"asdasdasd\",\"https://tmc.mooc.fi\")\n                                             ^\n```\n[tests/testthat/testLintr.R:3:5:](https://github.com/RTMC/tmc-rstudio/blob/b412692b460d687bcb77fbe80f210f75b36f3945/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/b412692b460d687bcb77fbe80f210f75b36f3945/tests/testthat/testLintr.R#L5) *style:* **Commented code should be removed.**\n```r\n​#     lintr::expect_lint_free()\n      ^~~~~~~~~~~~~~~~~~~~~~~~~\n```"}}
{"actor":{"display_login":"lintr-bot"}}