{"action":"created","issue":{"url":"https://api.github.com/repos/nlware/qdnatool/issues/51","repository_url":"https://api.github.com/repos/nlware/qdnatool","labels_url":"https://api.github.com/repos/nlware/qdnatool/issues/51/labels{/name}","comments_url":"https://api.github.com/repos/nlware/qdnatool/issues/51/comments","events_url":"https://api.github.com/repos/nlware/qdnatool/issues/51/events","html_url":"https://github.com/nlware/qdnatool/pull/51","id":166836330,"number":51,"title":"WIP - Added R code style check to Travis configuration","user":{"login":"mvdriel","id":408052,"avatar_url":"https://avatars.githubusercontent.com/u/408052?v=3","gravatar_id":"","url":"https://api.github.com/users/mvdriel","html_url":"https://github.com/mvdriel","followers_url":"https://api.github.com/users/mvdriel/followers","following_url":"https://api.github.com/users/mvdriel/following{/other_user}","gists_url":"https://api.github.com/users/mvdriel/gists{/gist_id}","starred_url":"https://api.github.com/users/mvdriel/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/mvdriel/subscriptions","organizations_url":"https://api.github.com/users/mvdriel/orgs","repos_url":"https://api.github.com/users/mvdriel/repos","events_url":"https://api.github.com/users/mvdriel/events{/privacy}","received_events_url":"https://api.github.com/users/mvdriel/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":3,"created_at":"2016-07-21T14:41:12Z","updated_at":"2016-07-21T15:33:14Z","closed_at":null,"pull_request":{"url":"https://api.github.com/repos/nlware/qdnatool/pulls/51","html_url":"https://github.com/nlware/qdnatool/pull/51","diff_url":"https://github.com/nlware/qdnatool/pull/51.diff","patch_url":"https://github.com/nlware/qdnatool/pull/51.patch"},"body":""},"comment":{"url":"https://api.github.com/repos/nlware/qdnatool/issues/comments/234291412","html_url":"https://github.com/nlware/qdnatool/pull/51#issuecomment-234291412","issue_url":"https://api.github.com/repos/nlware/qdnatool/issues/51","id":234291412,"user":{"login":"lintr-bot","id":10925265,"avatar_url":"https://avatars.githubusercontent.com/u/10925265?v=3","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},"created_at":"2016-07-21T15:33:12Z","updated_at":"2016-07-21T15:33:12Z","body":"[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:6:9:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L6) *style:* **Variable and function names should be all lowercase.**\n```r\n​library(gridExtra)\n        ^~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:8:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L8) *style:* **Variable and function names should be all lowercase.**\n```r\n​GenerateReport <- function(file.name, number.students, number.answeroptions,\n^~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:10:28:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L10) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                           frequency.answer.options, percentage.answer.options,\n                           ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:10:54:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L10) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                           frequency.answer.options, percentage.answer.options,\n                                                     ^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:12:48:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L12) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                           correct.percentage, corrected.item.tot.cor,\n                                               ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:13:28:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L13) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                           corrected.item.tot.cor.answ.option, title,\n                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:13:28:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L13) *style:* **Variable and function names should not be longer than 30 characters.**\n```r\n​                           corrected.item.tot.cor.answ.option, title,\n                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:20:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L20) *style:* **lines should not be more than 80 characters.**\n```r\n​  # Filling a list with frequency, percentage and IRC for total and each answer options.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:23:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L23) *style:* **lines should not be more than 80 characters.**\n```r\n​  # If there are more than 14 answer options, only the correct statistics are displayed to conserve space.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:24:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L24) *style:* **lines should not be more than 80 characters.**\n```r\n​  # This list is used for the first part of the output. This list is modified to a data frame to make the plots with the answer options.\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:31:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L31) *style:* **lines should not be more than 80 characters.**\n```r\n​      # in case someone wants to alter the script to display the frequency instead of the percentage\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:32:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L32) *style:* **lines should not be more than 80 characters.**\n```r\n​      item.list[[i]] <- data.frame(c(LETTERS[1:number.answeroptions[i]], \"Missing\"),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:33:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L33) *style:* **lines should not be more than 80 characters.**\n```r\n​                                  c(frequency.answer.options[c(2:(number.answeroptions[i] + 1), 1), i]),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:33:37:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L33) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                                  c(frequency.answer.options[c(2:(number.answeroptions[i] + 1), 1), i]),\n                                    ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:34:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L34) *style:* **lines should not be more than 80 characters.**\n```r\n​                                  c(percentage.answer.options[c(2:(number.answeroptions[i] + 1), 1), i]),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:34:37:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L34) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                                  c(percentage.answer.options[c(2:(number.answeroptions[i] + 1), 1), i]),\n                                    ^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:35:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L35) *style:* **lines should not be more than 80 characters.**\n```r\n​                                  c(corrected.item.tot.cor.answ.option[c(2:(number.answeroptions[i] + 1), 1), i]),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:35:37:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L35) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                                  c(corrected.item.tot.cor.answ.option[c(2:(number.answeroptions[i] + 1), 1), i]),\n                                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:35:37:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L35) *style:* **Variable and function names should not be longer than 30 characters.**\n```r\n​                                  c(corrected.item.tot.cor.answ.option[c(2:(number.answeroptions[i] + 1), 1), i]),\n                                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:42:36:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L42) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                                   corrected.item.tot.cor[i])\n                                   ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:44:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L44) *style:* **lines should not be more than 80 characters.**\n```r\n​      # in case someone wants to alter the script to display the frequency instead of the percentage\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:62:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L62) *style:* **lines should not be more than 80 characters.**\n```r\n​                                           levels = c(LETTERS[1 : max(number.answeroptions)], \"Missing\"))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:64:23:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L64) *warning:* **no visible binding for global variable ‘IRC’, Did you mean 'AIC'?**\n```r\n​      item.list1[[i]]$IRC_col_scale <- with(item.list1[[i]], IRC * Col_scale)\n                      ^~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:64:68:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L64) *warning:* **no visible binding for global variable ‘Col_scale’**\n```r\n​      item.list1[[i]]$IRC_col_scale <- with(item.list1[[i]], IRC * Col_scale)\n                                                                   ^~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:65:63:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L65) *warning:* **no visible binding for global variable ‘Percentage’**\n```r\n​      item.list1[[i]]$Perc_col_scale <- with(item.list1[[i]], Percentage)\n                                                              ^~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:69:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L69) *style:* **lines should not be more than 80 characters.**\n```r\n​  #Create data frame of all the items which have answer options. This is used to make barplots per answer option\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:71:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L71) *style:* **lines should not be more than 80 characters.**\n```r\n​    AnsOpt_dataframe <- ldply(item.list1[number.answeroptions != 0 & number.answeroptions < 15], data.frame)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:71:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L71) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe <- ldply(item.list1[number.answeroptions != 0 & number.answeroptions < 15], data.frame)\n    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:71:25:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L71) *warning:* **no visible global function definition for ‘ldply’, Did you mean 'apply'?**\n```r\n​    AnsOpt_dataframe <- ldply(item.list1[number.answeroptions != 0 & number.answeroptions < 15], data.frame)\n                        ^~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:72:11:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L72) *style:* **Variable and function names should be all lowercase.**\n```r\n​    names(AnsOpt_dataframe)[1] <- \"id\"\n          ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:73:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L73) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe[, 2] <- gsub(\"Missing\", \"Mis\", AnsOpt_dataframe[, 2])\n    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:73:53:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L73) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe[, 2] <- gsub(\"Missing\", \"Mis\", AnsOpt_dataframe[, 2])\n                                                    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:74:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L74) *style:* **lines should not be more than 80 characters.**\n```r\n​    AnsOpt_dataframe$Ans_Factor <- gsub(\"Missing\", \"Mis\", AnsOpt_dataframe$Ans_Factor)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:74:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L74) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$Ans_Factor <- gsub(\"Missing\", \"Mis\", AnsOpt_dataframe$Ans_Factor)\n    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:74:59:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L74) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$Ans_Factor <- gsub(\"Missing\", \"Mis\", AnsOpt_dataframe$Ans_Factor)\n                                                          ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:75:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L75) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$Ans_Factor <- factor(AnsOpt_dataframe$Ans_Factor,\n    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:75:43:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L75) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$Ans_Factor <- factor(AnsOpt_dataframe$Ans_Factor,\n                                          ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:76:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L76) *style:* **lines should not be more than 80 characters.**\n```r\n​                                          levels = c(LETTERS[1 : max(number.answeroptions)], \"Mis\"))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:77:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L77) *style:* **lines should not be more than 80 characters.**\n```r\n​    AnsOpt_dataframe$id <- factor(AnsOpt_dataframe$id , levels = items[number.answeroptions != 0])\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:77:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L77) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$id <- factor(AnsOpt_dataframe$id , levels = items[number.answeroptions != 0])\n    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:77:35:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L77) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$id <- factor(AnsOpt_dataframe$id , levels = items[number.answeroptions != 0])\n                                  ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:77:55:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L77) *style:* **Commas should never have a space before.**\n```r\n​    AnsOpt_dataframe$id <- factor(AnsOpt_dataframe$id , levels = items[number.answeroptions != 0])\n                                                     ~^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:78:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L78) *style:* **lines should not be more than 80 characters.**\n```r\n​    AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"] <- 100 - AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"]\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:78:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L78) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"] <- 100 - AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"]\n    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:78:37:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L78) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"] <- 100 - AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"]\n                                    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:78:85:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L78) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"] <- 100 - AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"]\n                                                                                    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:78:117:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L78) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"] <- 100 - AnsOpt_dataframe$Perc_col_scale[AnsOpt_dataframe$Correct == \"Correct\"]\n                                                                                                                    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:80:23:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L80) *style:* **Variable and function names should be all lowercase.**\n```r\n​    id2 <- as.numeric(AnsOpt_dataframe$id)\n                      ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:81:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L81) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe <- cbind(AnsOpt_dataframe, id2)\n    ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:81:31:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L81) *style:* **Variable and function names should be all lowercase.**\n```r\n​    AnsOpt_dataframe <- cbind(AnsOpt_dataframe, id2)\n                              ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:84:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L84) *style:* **lines should not be more than 80 characters.**\n```r\n​  # Create a dataframe with only the correct statistics in it. This is used in the general item plots\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:86:55:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L86) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​                                  correct.percentage, corrected.item.tot.cor)\n                                                      ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:91:47:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L91) *style:* **Commas should always have a space after.**\n```r\n​    \"Number of students  : \", number.students,\"\\n\",\n                                              ^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:92:48:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L92) *style:* **Commas should always have a space after.**\n```r\n​    \"Number of questions : \", number.questions,\"\\n\",\n                                               ^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:93:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L93) *style:* **lines should not be more than 80 characters.**\n```r\n​    \"Average score       : \", round(mean(rowSums(input.correct)), digits = 3), \"\\n\",\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:94:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L94) *style:* **lines should not be more than 80 characters.**\n```r\n​    \"Standard deviation  : \", round(sd(rowSums(input.correct)), digits = 3), \"\\n\",\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:96:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L96) *style:* **lines should not be more than 80 characters.**\n```r\n​    \"Standard error      : \", round(sd(rowSums(input.correct) * sqrt(1 - cronbach)), digits = 3), \"\\n\",\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:101:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L101) *style:* **lines should not be more than 80 characters.**\n```r\n​    \"For each question the frequency, percentage and item rest correlations (IRC)\", \"\\n\",\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:102:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L102) *style:* **lines should not be more than 80 characters.**\n```r\n​    \"from every answer option are diplayed. The IRC should be (highly) positive\", \"\\n\",\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:126:40:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L126) *style:* **Commas should never have a space before.**\n```r\n​                    8, 8, 8, 9, 9, 9), , 6, byrow = TRUE))\n                                      ~^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:127:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L127) *style:* **lines should not be more than 80 characters.**\n```r\n​    # matrix(c(1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6), 3, 6, byrow = TRUE))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:130:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L130) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​    textplot(title, valign = \"top\", cex = 2)\n    ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:133:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L133) *style:* **lines should not be more than 80 characters.**\n```r\n​    textplot(start_text, halign = \"left\", valign = \"top\", cex = 1, mar = c(1, 5, 5, 1))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:133:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L133) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​    textplot(start_text, halign = \"left\", valign = \"top\", cex = 1, mar = c(1, 5, 5, 1))\n    ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:134:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L134) *style:* **lines should not be more than 80 characters.**\n```r\n​    textplot(explanation_items, halign = \"left\", valign = \"top\", mar = c(1, 1, 5, 5))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:134:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L134) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​    textplot(explanation_items, halign = \"left\", valign = \"top\", mar = c(1, 1, 5, 5))\n    ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:139:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L139) *style:* **lines should not be more than 80 characters.**\n```r\n​        textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(5, 1, 0, 1))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:139:9:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L139) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​        textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(5, 1, 0, 1))\n        ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:144:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L144) *style:* **lines should not be more than 80 characters.**\n```r\n​            rect(.19,.92 - which(key[,i] == 1)[j] * .11 , .85, 1.02 - which(key[, i] == 1)[j] * .11, col = rgb(0, .9, 0, .5), density = NA)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:144:22:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L144) *style:* **Commas should always have a space after.**\n```r\n​            rect(.19,.92 - which(key[,i] == 1)[j] * .11 , .85, 1.02 - which(key[, i] == 1)[j] * .11, col = rgb(0, .9, 0, .5), density = NA)\n                     ^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:144:39:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L144) *style:* **Commas should always have a space after.**\n```r\n​            rect(.19,.92 - which(key[,i] == 1)[j] * .11 , .85, 1.02 - which(key[, i] == 1)[j] * .11, col = rgb(0, .9, 0, .5), density = NA)\n                                      ^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:144:57:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L144) *style:* **Commas should never have a space before.**\n```r\n​            rect(.19,.92 - which(key[,i] == 1)[j] * .11 , .85, 1.02 - which(key[, i] == 1)[j] * .11, col = rgb(0, .9, 0, .5), density = NA)\n                                                       ~^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:150:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L150) *style:* **lines should not be more than 80 characters.**\n```r\n​        textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(5, 1, 0, 1))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:150:9:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L150) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​        textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(5, 1, 0, 1))\n        ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:155:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L155) *style:* **lines should not be more than 80 characters.**\n```r\n​            rect(.19, .92 - which(key[, i] == 1)[j] *.11 , .85, 1.02 - which(key[, i] == 1)[j] * .11, col = rgb(0, .9, 0, .5), density = NA)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:155:53:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L155) *style:* **Put spaces around all infix operators.**\n```r\n​            rect(.19, .92 - which(key[, i] == 1)[j] *.11 , .85, 1.02 - which(key[, i] == 1)[j] * .11, col = rgb(0, .9, 0, .5), density = NA)\n                                                    ^~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:155:58:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L155) *style:* **Commas should never have a space before.**\n```r\n​            rect(.19, .92 - which(key[, i] == 1)[j] *.11 , .85, 1.02 - which(key[, i] == 1)[j] * .11, col = rgb(0, .9, 0, .5), density = NA)\n                                                        ~^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:160:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L160) *style:* **lines should not be more than 80 characters.**\n```r\n​      # Creating the item output on second page forward, only if more than 6 questions\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:161:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L161) *style:* **lines should not be more than 80 characters.**\n```r\n​      layout(matrix(c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8), 4, 6, byrow = TRUE))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:163:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L163) *style:* **lines should not be more than 80 characters.**\n```r\n​        textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(2, 1, 3, 1))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:163:9:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L163) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​        textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(2, 1, 3, 1))\n        ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:168:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L168) *style:* **lines should not be more than 80 characters.**\n```r\n​            rect(.19, .92 - which(key[, i] == 1)[j] * .096, .85, 1.01 - which(key[, i] == 1)[j] * .096 , col = rgb(0, .9, 0, .5), density = NA)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:168:104:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L168) *style:* **Commas should never have a space before.**\n```r\n​            rect(.19, .92 - which(key[, i] == 1)[j] * .096, .85, 1.01 - which(key[, i] == 1)[j] * .096 , col = rgb(0, .9, 0, .5), density = NA)\n                                                                                                      ~^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:174:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L174) *style:* **lines should not be more than 80 characters.**\n```r\n​    # Creates PDF for more than 7 answeroptions, only 4 items per page are displayed\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:186:40:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L186) *style:* **Commas should never have a space before.**\n```r\n​                    6, 6, 6, 7, 7, 7), , 6, byrow = TRUE))\n                                      ~^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:189:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L189) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​    textplot(title, valign = \"top\", cex = 2)\n    ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:192:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L192) *style:* **lines should not be more than 80 characters.**\n```r\n​    textplot(start_text, halign = \"left\", valign = \"top\", cex = 1, mar = c(1, 5, 5, 1))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:192:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L192) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​    textplot(start_text, halign = \"left\", valign = \"top\", cex = 1, mar = c(1, 5, 5, 1))\n    ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:193:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L193) *style:* **lines should not be more than 80 characters.**\n```r\n​    textplot(explanation_items, halign = \"left\", valign = \"top\", mar = c(1, 1, 5, 5))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:193:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L193) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​    textplot(explanation_items, halign = \"left\", valign = \"top\", mar = c(1, 1, 5, 5))\n    ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:197:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L197) *style:* **lines should not be more than 80 characters.**\n```r\n​      textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(5, 1, 0, 1))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:197:7:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L197) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​      textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(5, 1, 0, 1))\n      ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:203:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L203) *style:* **lines should not be more than 80 characters.**\n```r\n​          rect(.19, .95 - .065 * which(key[, i] == 1)[j], .85, 1.01 - .065 * which(key[, i] == 1)[j], col = rgb(0, .9, 0, .5), density = NA)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:209:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L209) *style:* **lines should not be more than 80 characters.**\n```r\n​    layout(matrix(c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6), 3, 6, byrow = TRUE))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:213:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L213) *style:* **lines should not be more than 80 characters.**\n```r\n​      textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(2, 1, 3, 1))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:213:7:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L213) *warning:* **no visible global function definition for ‘textplot’, Did you mean 'termplot'?**\n```r\n​      textplot(item.list[[i]][, 1:4], show.rownames = FALSE, cex = 1, valign = \"top\", mar = c(2, 1, 3, 1))\n      ^~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:219:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L219) *style:* **lines should not be more than 80 characters.**\n```r\n​          rect(.19, .95 - .065 * which(key[, i] == 1)[j] , .85, 1.01 - .065 * which(key[, i] == 1)[j], col = rgb(0, .9, 0, .5), density = NA)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:219:58:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L219) *style:* **Commas should never have a space before.**\n```r\n​          rect(.19, .95 - .065 * which(key[, i] == 1)[j] , .85, 1.01 - .065 * which(key[, i] == 1)[j], col = rgb(0, .9, 0, .5), density = NA)\n                                                        ~^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:226:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L226) *style:* **lines should not be more than 80 characters.**\n```r\n​  bar_plot_freq <- ggplot(dataframe_correct, aes(item, correct.percentage, fill = correct.percentage)) # Create chart with Answer Option on x-axis and IRC on y-asix\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:226:20:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L226) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**\n```r\n​  bar_plot_freq <- ggplot(dataframe_correct, aes(item, correct.percentage, fill = correct.percentage)) # Create chart with Answer Option on x-axis and IRC on y-asix\n                   ^~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:226:46:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L226) *warning:* **no visible global function definition for ‘aes’, Did you mean 'abs'?**\n```r\n​  bar_plot_freq <- ggplot(dataframe_correct, aes(item, correct.percentage, fill = correct.percentage)) # Create chart with Answer Option on x-axis and IRC on y-asix\n                                             ^~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:226:50:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L226) *warning:* **no visible binding for global variable ‘item’, Did you mean 'items'?**\n```r\n​  bar_plot_freq <- ggplot(dataframe_correct, aes(item, correct.percentage, fill = correct.percentage)) # Create chart with Answer Option on x-axis and IRC on y-asix\n                                                 ^~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:228:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L228) *style:* **lines should not be more than 80 characters.**\n```r\n​    scale_fill_gradient2(low = \"red\", mid = \"green\", high = \"red\", midpoint = 50, limits = c(0, 100), name = \"\")  + # Create colour boundray: Green = \"right\" (low for wrong answer options, high for right answer options)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:230:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L230) *style:* **lines should not be more than 80 characters.**\n```r\n​    labs(x = \"Item\", title = \"Correct Percentage\", y = \"Percentage\") + # Change titles and x axis name\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:231:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L231) *style:* **lines should not be more than 80 characters.**\n```r\n​    theme(strip.text.x = element_text(size = 7) , axis.text.x = element_text(size = 8), # Change font size of item names and Answer options\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:231:49:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L231) *style:* **Commas should never have a space before.**\n```r\n​    theme(strip.text.x = element_text(size = 7) , axis.text.x = element_text(size = 8), # Change font size of item names and Answer options\n                                               ~^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:235:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L235) *style:* **lines should not be more than 80 characters.**\n```r\n​  bar_plot_IRC <- ggplot(dataframe_correct, aes(item, corrected.item.tot.cor, fill = corrected.item.tot.cor)) # Create chart with Answer_Option on x-axis and IRC on y-asix\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:235:19:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L235) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**\n```r\n​  bar_plot_IRC <- ggplot(dataframe_correct, aes(item, corrected.item.tot.cor, fill = corrected.item.tot.cor)) # Create chart with Answer_Option on x-axis and IRC on y-asix\n                  ^~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:235:45:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L235) *warning:* **no visible global function definition for ‘aes’, Did you mean 'abs'?**\n```r\n​  bar_plot_IRC <- ggplot(dataframe_correct, aes(item, corrected.item.tot.cor, fill = corrected.item.tot.cor)) # Create chart with Answer_Option on x-axis and IRC on y-asix\n                                            ^~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:235:49:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L235) *warning:* **no visible binding for global variable ‘item’, Did you mean 'items'?**\n```r\n​  bar_plot_IRC <- ggplot(dataframe_correct, aes(item, corrected.item.tot.cor, fill = corrected.item.tot.cor)) # Create chart with Answer_Option on x-axis and IRC on y-asix\n                                                ^~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:235:55:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L235) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​  bar_plot_IRC <- ggplot(dataframe_correct, aes(item, corrected.item.tot.cor, fill = corrected.item.tot.cor)) # Create chart with Answer_Option on x-axis and IRC on y-asix\n                                                      ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:235:86:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L235) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**\n```r\n​  bar_plot_IRC <- ggplot(dataframe_correct, aes(item, corrected.item.tot.cor, fill = corrected.item.tot.cor)) # Create chart with Answer_Option on x-axis and IRC on y-asix\n                                                                                     ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:237:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L237) *style:* **lines should not be more than 80 characters.**\n```r\n​    scale_fill_gradient(low = \"red\", high = \"green\", limits = c(-.1, .4), name = \"\")  + # Create colour boundray: Green = \"right\" (low for wrong answer options, high for right answer options)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:239:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L239) *style:* **lines should not be more than 80 characters.**\n```r\n​    labs(x = \"Item\", title = \"Item Rest Correlations\", y = \"Item Rest Correlation\") + # Change titles and x axis name\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:240:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L240) *style:* **lines should not be more than 80 characters.**\n```r\n​    theme(strip.text.x = element_text(size = 7), axis.text.x = element_text(size = 8), # Change font size of item names and Answer options\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:246:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L246) *style:* **Variable and function names should be all lowercase.**\n```r\n​    Tot_AnswerOptions <- 0\n    ^~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:251:5:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L251) *style:* **Variable and function names should be all lowercase.**\n```r\n​    Questions_with_AnsOpts <- nlevels(AnsOpt_dataframe$id)\n    ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:251:39:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L251) *style:* **Variable and function names should be all lowercase.**\n```r\n​    Questions_with_AnsOpts <- nlevels(AnsOpt_dataframe$id)\n                                      ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:253:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L253) *style:* **lines should not be more than 80 characters.**\n```r\n​    # Calculating which questions are on the first plot. Total answeroptions should be less than 100\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:254:10:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L254) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    while(Tot_AnswerOptions < 100 & Questions_p1 < Questions_with_AnsOpts) {\n         ^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:254:11:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L254) *style:* **Variable and function names should be all lowercase.**\n```r\n​    while(Tot_AnswerOptions < 100 & Questions_p1 < Questions_with_AnsOpts) {\n          ^~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:254:52:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L254) *style:* **Variable and function names should be all lowercase.**\n```r\n​    while(Tot_AnswerOptions < 100 & Questions_p1 < Questions_with_AnsOpts) {\n                                                   ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:256:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L256) *style:* **lines should not be more than 80 characters.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p1)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:256:7:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L256) *style:* **Variable and function names should be all lowercase.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p1)\n      ^~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:256:28:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L256) *style:* **Variable and function names should be all lowercase.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p1)\n                           ^~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:256:52:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L256) *style:* **Variable and function names should be all lowercase.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p1)\n                                                   ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:259:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L259) *style:* **lines should not be more than 80 characters.**\n```r\n​    # Calculating which questions are on the second plot. Total answeroptions should be less than 100\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:261:10:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L261) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    while(Tot_AnswerOptions < 200 & Questions_p2 < Questions_with_AnsOpts) {\n         ^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:261:11:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L261) *style:* **Variable and function names should be all lowercase.**\n```r\n​    while(Tot_AnswerOptions < 200 & Questions_p2 < Questions_with_AnsOpts) {\n          ^~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:261:52:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L261) *style:* **Variable and function names should be all lowercase.**\n```r\n​    while(Tot_AnswerOptions < 200 & Questions_p2 < Questions_with_AnsOpts) {\n                                                   ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:263:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L263) *style:* **lines should not be more than 80 characters.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p2)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:263:7:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L263) *style:* **Variable and function names should be all lowercase.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p2)\n      ^~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:263:28:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L263) *style:* **Variable and function names should be all lowercase.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p2)\n                           ^~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:263:52:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L263) *style:* **Variable and function names should be all lowercase.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p2)\n                                                   ^~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:266:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L266) *style:* **lines should not be more than 80 characters.**\n```r\n​    # Calculating which questions are on the third plot. Total answeroptions should be less than 100\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:268:10:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L268) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    while(Tot_AnswerOptions < 300 & Questions_p3 < Questions_with_AnsOpts) {\n         ^\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:268:11:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L268) *style:* **Variable and function names should be all lowercase.**\n```r\n​    while(Tot_AnswerOptions < 300 & Questions_p3 < Questions_with_AnsOpts) {\n          ^~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:268:52:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L268) *style:* **Variable and function names should be all lowercase.**\n```r\n​    while(Tot_AnswerOptions < 300 & Questions_p3 < Questions_with_AnsOpts) {\n                                                   ^~~~~~~~~~~~~~~~~~~~~~\n```\n[/home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R:270:1:](https://github.com/nlware/qdnatool/blob/3f50b87f3886180e99127a9022e939c82e18a7f5//home/travis/build/nlware/qdnatool/app/Lib/Rscripts/report.R#L270) *style:* **lines should not be more than 80 characters.**\n```r\n​      Tot_AnswerOptions <- Tot_AnswerOptions + sum(AnsOpt_dataframe$id2 == Questions_p3)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n"}}
{"actor":{"display_login":"lintr-bot"}}