missing system libs at travis... · Rapporteket/rapbase@a52492c

lintr-bot · 2020-10-06T12:57:16Z

inst/nowebChildAddAnnotation.Rnw:23:1: style: Lines should not be more than 80 characters.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/nowebChildAddAnnotation.Rnw:23:28: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                           ^~~~

inst/nowebChildAddAnnotation.Rnw:23:34: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/nowebChildAddAnnotation.Rnw:23:87: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                      ^~~~

inst/nowebChildAddAnnotation.Rnw:23:101: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                    ^~~

inst/nowebChildAddAnnotation.Rnw:23:106: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                         ^~~~~~~

inst/nowebChildAddAnnotation.Rnw:23:115: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                                  ^~~~

inst/nowebChildAddAnnotation.Rnw:23:124: style: Put spaces around all infix operators.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                                          ~^~

inst/nowebChildAddAnnotation.Rnw:23:125: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                                            ^~

inst/nowebChildAddAnnotation.Rnw:26:7: style: Only use double-quotes.

  cat('Annotations wanted but found no files to add!\n')
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/nowebChildAddAnnotation.Rnw:27:7: style: Only use double-quotes.

  cat('Annotasjoner ønskes, men fant ingen filer å legge ved!\n')
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AppNavbarUserWidget.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AppNavbarUserWidget.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AppNavbarUserWidget.R:22:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AppNavbarUserWidget.R:27:1: style: Lines should not be more than 80 characters.

#'     appNavbarUserWidget(user = uiOutput(appUserName), organization = textOutput(appUserOrg))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AppNavbarUserWidget.R:33:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AppNavbarUserWidget.R:45:1: style: Variable and function name style should be snake_case.

appNavbarUserWidget <- function(user = "Undefined person",
^~~~~~~~~~~~~~~~~~~

R/AppNavbarUserWidget.R:47:33: style: Variable and function name style should be snake_case.

                                addUserInfo = FALSE) {
                                ^~~~~~~~~~~

R/AppNavbarUserWidget.R:48:1: style: Trailing whitespace is superfluous.

^~

R/AppNavbarUserWidget.R:50:3: style: Variable and function name style should be snake_case.

  userInfo <- shiny::tags$a(
  ^~~~~~~~

R/AppNavbarUserWidget.R:56:5: style: Variable and function name style should be snake_case.

    userInfo <- character()
    ^~~~~~~~

R/AppNavbarUserWidget.R:58:1: style: Trailing whitespace is superfluous.

^~

R/AppNavbarUserWidget.R:59:3: style: Variable and function name style should be snake_case.

  txtWidget <-
  ^~~~~~~~~

R/AppNavbarUserWidget.R:61:1: style: Lines should not be more than 80 characters.

         "header.append('<div class=\"navbar-brand\" style=\"float:right;vertical-align:super;font-size:65%\">",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AppNavbarUserWidget.R:67:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:27:22: style: Trailing whitespace is superfluous.

#' and 1 month if not 
                     ^

R/AutoReportFuns.R:31:52: style: Trailing whitespace is superfluous.

#' \code{interval}. Default value is an emty string 
                                                   ^

R/AutoReportFuns.R:41:1: style: Variable and function name style should be snake_case.

createAutoReport <- function(synopsis, package, fun, paramNames, paramValues,
^~~~~~~~~~~~~~~~

R/AutoReportFuns.R:41:54: style: Variable and function name style should be snake_case.

createAutoReport <- function(synopsis, package, fun, paramNames, paramValues,
                                                     ^~~~~~~~~~

R/AutoReportFuns.R:41:66: style: Variable and function name style should be snake_case.

createAutoReport <- function(synopsis, package, fun, paramNames, paramValues,
                                                                 ^~~~~~~~~~~

R/AutoReportFuns.R:42:58: style: Variable and function name style should be snake_case.

                             owner, email, organization, runDayOfYear,
                                                         ^~~~~~~~~~~~

R/AutoReportFuns.R:43:30: style: Variable and function name style should be snake_case.

                             terminateDate = NULL, interval = "",
                             ^~~~~~~~~~~~~

R/AutoReportFuns.R:44:30: style: Variable and function name style should be snake_case.

                             intervalName = "", dryRun = FALSE) {
                             ^~~~~~~~~~~~

R/AutoReportFuns.R:44:49: style: Variable and function name style should be snake_case.

                             intervalName = "", dryRun = FALSE) {
                                                ^~~~~~

R/AutoReportFuns.R:45:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:49:5: style: Variable and function name style should be snake_case.

    terminateDate <- as.POSIXlt(Sys.Date())
    ^~~~~~~~~~~~~

R/AutoReportFuns.R:55:5: style: Variable and function name style should be snake_case.

    terminateDate <- as.Date(terminateDate)
    ^~~~~~~~~~~~~

R/AutoReportFuns.R:57:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:60:3: style: Variable and function name style should be snake_case.

  autoRepId <- digest::digest(paste0(owner, ts))
  ^~~~~~~~~

R/AutoReportFuns.R:61:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:66:3: style: Variable and function name style should be snake_case.

  paramsListVector <- list()
  ^~~~~~~~~~~~~~~~

R/AutoReportFuns.R:67:13: warning: Avoid 1:length(...) expressions, use seq_len.

  for (i in 1:length(params)){
            ^

R/AutoReportFuns.R:67:29: style: There should be a space between right parenthesis and an opening curly brace.

  for (i in 1:length(params)){
                            ^~

R/AutoReportFuns.R:70:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:78:5: style: Variable and function name style should be snake_case.

  l$terminateDate <- as.character(terminateDate)
    ^~~~~~~~~~~~~

R/AutoReportFuns.R:80:5: style: Variable and function name style should be snake_case.

  l$intervalName <- intervalName
    ^~~~~~~~~~~~

R/AutoReportFuns.R:81:5: style: Variable and function name style should be snake_case.

  l$runDayOfYear <- runDayOfYear
    ^~~~~~~~~~~~

R/AutoReportFuns.R:82:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:84:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:86:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:92:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:93:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:103:1: style: Variable and function name style should be snake_case.

deleteAutoReport <- function(autoReportId) {
^~~~~~~~~~~~~~~~

R/AutoReportFuns.R:103:30: style: Variable and function name style should be snake_case.

deleteAutoReport <- function(autoReportId) {
                             ^~~~~~~~~~~~

R/AutoReportFuns.R:104:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:111:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:129:1: style: Lines should not be more than 80 characters.

readAutoReportData <- function(fileName = "autoReport.yml", packageName = "rapbase") {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:129:1: style: Variable and function name style should be snake_case.

readAutoReportData <- function(fileName = "autoReport.yml", packageName = "rapbase") {
^~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:129:32: style: Variable and function name style should be snake_case.

readAutoReportData <- function(fileName = "autoReport.yml", packageName = "rapbase") {
                               ^~~~~~~~

R/AutoReportFuns.R:129:61: style: Variable and function name style should be snake_case.

readAutoReportData <- function(fileName = "autoReport.yml", packageName = "rapbase") {
                                                            ^~~~~~~~~~~

R/AutoReportFuns.R:130:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:132:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:144:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:146:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:164:1: style: Variable and function name style should be snake_case.

writeAutoReportData <- function(fileName = "autoReport.yml", config,
^~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:164:33: style: Variable and function name style should be snake_case.

writeAutoReportData <- function(fileName = "autoReport.yml", config,
                                ^~~~~~~~

R/AutoReportFuns.R:165:33: style: Variable and function name style should be snake_case.

                                packageName = "rapbase") {
                                ^~~~~~~~~~~

R/AutoReportFuns.R:166:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:168:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:171:57: style: Trailing whitespace is superfluous.

    stop(paste("There is nowhere to store config data.", 
                                                        ^

R/AutoReportFuns.R:176:5: style: Variable and function name style should be snake_case.

    oriFile <- file.path(path, fileName)
    ^~~~~~~

R/AutoReportFuns.R:178:5: style: Variable and function name style should be snake_case.

    tmpTag <- as.character(as.integer(as.POSIXct(Sys.time())))
    ^~~~~~

R/AutoReportFuns.R:179:5: style: Variable and function name style should be snake_case.

    nameParts <- strsplit(fileName, "[.]")[[1]]
    ^~~~~~~~~

R/AutoReportFuns.R:180:5: style: Variable and function name style should be snake_case.

    bckFileName <- paste0(nameParts[1], tmpTag, ".", nameParts[-1])
    ^~~~~~~~~~~

R/AutoReportFuns.R:181:5: style: Variable and function name style should be snake_case.

    bckFilePath <- file.path(path, "autoReportBackup")
    ^~~~~~~~~~~

R/AutoReportFuns.R:185:1: style: Lines should not be more than 80 characters.

    file.copy(from = oriFile, to = file.path(bckFilePath, bckFileName), overwrite = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:188:5: style: Variable and function name style should be snake_case.

    rmFiles <- rownames(files[difftime(Sys.time(), files[, "mtime"],
    ^~~~~~~

R/AutoReportFuns.R:210:1: style: Variable and function name style should be snake_case.

selectByReg <- function(config, reg) {
^~~~~~~~~~~

R/AutoReportFuns.R:211:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:212:26: style: Do not place spaces around code in parentheses or square brackets.

  if (length(config) == 0 ) {
                         ^

R/AutoReportFuns.R:216:15: warning: Avoid 1:length(...) expressions, use seq_len.

    for (i in 1:length(config)) {
              ^

R/AutoReportFuns.R:236:1: style: Variable and function name style should be snake_case.

selectByOwner <- function(config, owner) {
^~~~~~~~~~~~~

R/AutoReportFuns.R:237:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:242:15: warning: Avoid 1:length(...) expressions, use seq_len.

    for (i in 1:length(config)) {
              ^

R/AutoReportFuns.R:262:1: style: Variable and function name style should be snake_case.

selectByOrganization <- function(config, organization) {
^~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:263:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:268:15: warning: Avoid 1:length(...) expressions, use seq_len.

    for (i in 1:length(config)) {
              ^

R/AutoReportFuns.R:285:1: style: Variable and function name style should be snake_case.

getRegs <- function(config) {
^~~~~~~

R/AutoReportFuns.R:287:13: warning: Avoid 1:length(...) expressions, use seq_len.

  for (i in 1:length(config)) {
            ^

R/AutoReportFuns.R:314:1: style: Variable and function name style should be snake_case.

.testAutoReport <- function(aNum = 1, aChar = "a", anExp = Sys.Date()) {
^~~~~~~~~~~~~~~

R/AutoReportFuns.R:314:29: style: Variable and function name style should be snake_case.

.testAutoReport <- function(aNum = 1, aChar = "a", anExp = Sys.Date()) {
                            ^~~~

R/AutoReportFuns.R:314:39: style: Variable and function name style should be snake_case.

.testAutoReport <- function(aNum = 1, aChar = "a", anExp = Sys.Date()) {
                                      ^~~~~

R/AutoReportFuns.R:314:52: style: Variable and function name style should be snake_case.

.testAutoReport <- function(aNum = 1, aChar = "a", anExp = Sys.Date()) {
                                                   ^~~~~

R/AutoReportFuns.R:315:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:316:1: style: Lines should not be more than 80 characters.

  msg <- paste("This is a simple test of automated reports. Arguments provided:\n",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:320:3: style: Variable and function name style should be snake_case.

  fileName <- paste0(tempfile(), ".txt")
  ^~~~~~~~

R/AutoReportFuns.R:324:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:326:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:337:1: style: Variable and function name style should be snake_case.

.getFun <- function(x) {
^~~~~~~

R/AutoReportFuns.R:338:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:339:5: style: Place a space before left parenthesis, except in a function call.

  if(length(grep("::", x))>0) {
    ^

R/AutoReportFuns.R:339:27: style: Put spaces around all infix operators.

  if(length(grep("::", x))>0) {
                         ~^~

R/AutoReportFuns.R:340:10: style: Put spaces around all infix operators.

    parts<-strsplit(x, "::")[[1]]
        ~^~~

R/AutoReportFuns.R:345:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:373:1: style: Variable and function name style should be snake_case.

runAutoReport <- function(dayNumber = as.POSIXlt(Sys.Date())$yday+1,
^~~~~~~~~~~~~

R/AutoReportFuns.R:373:27: style: Variable and function name style should be snake_case.

runAutoReport <- function(dayNumber = as.POSIXlt(Sys.Date())$yday+1,
                          ^~~~~~~~~

R/AutoReportFuns.R:373:66: style: Put spaces around all infix operators.

runAutoReport <- function(dayNumber = as.POSIXlt(Sys.Date())$yday+1,
                                                                ~^~

R/AutoReportFuns.R:374:27: style: Variable and function name style should be snake_case.

                          dryRun = FALSE) {
                          ^~~~~~

R/AutoReportFuns.R:375:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:376:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:379:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:381:3: style: Variable and function name style should be snake_case.

  stdTxt <- readr::read_file(system.file("autoReportStandardEmailText.txt",
  ^~~~~~

R/AutoReportFuns.R:386:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:390:3: style: Variable and function name style should be snake_case.

  headPost <- "?="
  ^~~~~~~~

R/AutoReportFuns.R:391:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:392:13: warning: Avoid 1:length(...) expressions, use seq_len.

  for (i in 1:length(reps)) {
            ^

R/AutoReportFuns.R:399:9: style: Variable and function name style should be snake_case.

        attFile <- do.call(what = f, args = rep$params)
        ^~~~~~~

R/AutoReportFuns.R:414:38: style: Put spaces around all infix operators.

            control = list(smtpServer=conf$network$smtp$server,
                                    ~^~

R/AutoReportFuns.R:415:40: style: Put spaces around all infix operators.

                           smtpPortSMTP=conf$network$smtp$port))
                                      ~^~

R/AutoReportFuns.R:416:1: style: Trailing whitespace is superfluous.

          
^~~~~~~~~~

R/AutoReportFuns.R:447:1: style: Variable and function name style should be snake_case.

makeRunDayOfYearSequence <- function(startDay = Sys.Date(), interval) {
^~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:447:38: style: Variable and function name style should be snake_case.

makeRunDayOfYearSequence <- function(startDay = Sys.Date(), interval) {
                                     ^~~~~~~~

R/AutoReportFuns.R:448:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:456:12: warning: Avoid 1:length(...) expressions, use seq_len.

    s <- s[1:length(s)-1]
           ^

R/AutoReportFuns.R:456:23: style: Put spaces around all infix operators.

    s <- s[1:length(s)-1]
                     ~^~

R/AutoReportFuns.R:463:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AutoReportFuns.R:468:65: style: Trailing whitespace is superfluous.

#' @param runDayOfYear Numeric vector providing year-day numbers  
                                                                ^~

R/AutoReportFuns.R:480:1: style: Variable and function name style should be snake_case.

findNextRunDate <- function(runDayOfYear,
^~~~~~~~~~~~~~~

R/AutoReportFuns.R:480:29: style: Variable and function name style should be snake_case.

findNextRunDate <- function(runDayOfYear,
                            ^~~~~~~~~~~~

R/AutoReportFuns.R:481:29: style: Variable and function name style should be snake_case.

                            baseDayNum = as.POSIXlt(Sys.Date())$yday+1,
                            ^~~~~~~~~~

R/AutoReportFuns.R:481:69: style: Put spaces around all infix operators.

                            baseDayNum = as.POSIXlt(Sys.Date())$yday+1,
                                                                   ~^~

R/AutoReportFuns.R:482:29: style: Variable and function name style should be snake_case.

                            returnFormat = "%A %e. %B %Y") {
                            ^~~~~~~~~~~~

R/AutoReportFuns.R:483:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:485:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:489:5: style: Variable and function name style should be snake_case.

    nextDayNum <- min(runDayOfYear)
    ^~~~~~~~~~

R/AutoReportFuns.R:493:5: style: Variable and function name style should be snake_case.

    nextDayNum <- min(runDayOfYear[runDayOfYear > baseDayNum])
    ^~~~~~~~~~

R/AutoReportFuns.R:495:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:497:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:502:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AutoReportFuns.R:513:1: style: Variable and function name style should be snake_case.

makeUserSubscriptionTab <- function(session) {
^~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:514:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:516:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:518:3: style: Variable and function name style should be snake_case.

  autoRep <- readAutoReportData() %>%
  ^~~~~~~

R/AutoReportFuns.R:520:55: style: Trailing whitespace is superfluous.

    selectByOwner(., owner = getUserName(session)) %>% 
                                                      ^

R/AutoReportFuns.R:522:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:523:3: style: Variable and function name style should be snake_case.

  dateFormat <- "%A %e. %B %Y"
  ^~~~~~~~~~

R/AutoReportFuns.R:524:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:525:27: style: There should be a space between right parenthesis and an opening curly brace.

  for (n in names(autoRep)){
                          ^~

R/AutoReportFuns.R:526:5: style: Variable and function name style should be snake_case.

    nextDate <- findNextRunDate(autoRep[[n]]$runDayOfYear,
    ^~~~~~~~

R/AutoReportFuns.R:529:7: style: Variable and function name style should be snake_case.

      nextDate <- "Utl\u00F8pt"
      ^~~~~~~~

R/AutoReportFuns.R:531:24: style: Put spaces around all infix operators.

    r <- list("Rapport"=autoRep[[n]]$synopsis,
                      ~^~

R/AutoReportFuns.R:532:22: style: Put spaces around all infix operators.

              "Enhet"=autoRep[[n]]$organization,
                    ~^~

R/AutoReportFuns.R:533:24: style: Put spaces around all infix operators.

              "Periode"=autoRep[[n]]$intervalName,
                      ~^~

R/AutoReportFuns.R:534:27: style: Put spaces around all infix operators.

              "Utl\u00F8p"=strftime(as.Date(autoRep[[n]]$terminateDate),
                         ~^~

R/AutoReportFuns.R:536:22: style: Put spaces around all infix operators.

              "Neste"=nextDate,
                    ~^~

R/AutoReportFuns.R:537:22: style: Put spaces around all infix operators.

              "Slett"=as.character(
                    ~^~

R/AutoReportFuns.R:541:1: style: Lines should not be more than 80 characters.

                                    onclick = 'Shiny.onInputChange(\"del_button\",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:549:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AutoReportFuns.R:555:64: style: Trailing whitespace is superfluous.

#' @param map_resh_name A data.table consisting og two columns, 
                                                               ^

R/AutoReportFuns.R:556:64: style: Trailing whitespace is superfluous.

#' Sykehusnavn and AvdRESH, providing a mapping between numeric 
                                                               ^

R/AutoReportFuns.R:563:1: style: Variable and function name style should be snake_case.

makeUserSubscriptionTab_v2 <- function(session, map_resh_name = NULL) {
^~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:564:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:566:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:568:3: style: Variable and function name style should be snake_case.

  autoRep <- readAutoReportData() %>%
  ^~~~~~~

R/AutoReportFuns.R:570:55: style: Trailing whitespace is superfluous.

    selectByOwner(., owner = getUserName(session)) %>% 
                                                      ^

R/AutoReportFuns.R:572:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:573:3: style: Variable and function name style should be snake_case.

  dateFormat <- "%A %e. %B %Y"
  ^~~~~~~~~~

R/AutoReportFuns.R:574:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:575:27: style: There should be a space between right parenthesis and an opening curly brace.

  for (n in names(autoRep)){
                          ^~

R/AutoReportFuns.R:576:5: style: Variable and function name style should be snake_case.

    nextDate <- findNextRunDate(autoRep[[n]]$runDayOfYear,
    ^~~~~~~~

R/AutoReportFuns.R:579:7: style: Variable and function name style should be snake_case.

      nextDate <- "Utl\u00F8pt"
      ^~~~~~~~

R/AutoReportFuns.R:581:24: style: Put spaces around all infix operators.

    r <- list("Rapport"=autoRep[[n]]$synopsis,
                      ~^~

R/AutoReportFuns.R:582:24: style: Put spaces around all infix operators.

              "Periode"=autoRep[[n]]$intervalName,
                      ~^~

R/AutoReportFuns.R:583:27: style: Put spaces around all infix operators.

              "Utl\u00F8p"=strftime(as.Date(autoRep[[n]]$terminateDate),
                         ~^~

R/AutoReportFuns.R:585:22: style: Put spaces around all infix operators.

              "Neste"=nextDate,
                    ~^~

R/AutoReportFuns.R:586:26: style: Put spaces around all infix operators.

              "Mottakere"=autoRep[[n]]$email,
                        ~^~

R/AutoReportFuns.R:587:1: style: Lines should not be more than 80 characters.

              "Avdeling"= if ('reshID' %in%  names(unlist(autoRep[[n]]$params))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:587:25: style: Put spaces around all infix operators.

              "Avdeling"= if ('reshID' %in%  names(unlist(autoRep[[n]]$params))) {
                       ~^

R/AutoReportFuns.R:587:31: style: Only use double-quotes.

              "Avdeling"= if ('reshID' %in%  names(unlist(autoRep[[n]]$params))) {
                              ^~~~~~~~

R/AutoReportFuns.R:588:46: style: Only use double-quotes.

                unlist(autoRep[[n]]$params)[['reshID']]
                                             ^~~~~~~~

R/AutoReportFuns.R:589:22: style: Opening curly braces should never go on their own line and should always be followed by a new line.

              } else {autoRep[[n]]$organization},
                     ^

R/AutoReportFuns.R:590:22: style: Put spaces around all infix operators.

              "Slett"=as.character(
                    ~^~

R/AutoReportFuns.R:594:1: style: Lines should not be more than 80 characters.

                                    onclick = 'Shiny.onInputChange(\"del_button\",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:600:1: style: Lines should not be more than 80 characters.

    l$Mottakere <- purrr::map_chr(l$Mottakere, function(x) {paste0(x, collapse = '<br />')})
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:600:7: style: Variable and function name style should be snake_case.

    l$Mottakere <- purrr::map_chr(l$Mottakere, function(x) {paste0(x, collapse = '<br />')})
      ^~~~~~~~~

R/AutoReportFuns.R:600:60: style: Opening curly braces should never go on their own line and should always be followed by a new line.

    l$Mottakere <- purrr::map_chr(l$Mottakere, function(x) {paste0(x, collapse = '<br />')})
                                                           ^

R/AutoReportFuns.R:600:82: style: Only use double-quotes.

    l$Mottakere <- purrr::map_chr(l$Mottakere, function(x) {paste0(x, collapse = '<br />')})
                                                                                 ^~~~~~~~

R/AutoReportFuns.R:601:7: style: Variable and function name style should be snake_case.

    l$Avdeling <- purrr::map_chr(l$Avdeling, function(x) x)
      ^~~~~~~~

R/AutoReportFuns.R:603:1: style: Lines should not be more than 80 characters.

      l$Avdeling <- map_resh_name$Sykehusnavn[match(as.numeric(l$Avdeling), map_resh_name$AvdRESH)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:603:9: style: Variable and function name style should be snake_case.

      l$Avdeling <- map_resh_name$Sykehusnavn[match(as.numeric(l$Avdeling), map_resh_name$AvdRESH)]
        ^~~~~~~~

R/FireInTheHole.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/FireInTheHole.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/FireInTheHole.R:9:1: style: Lines should not be more than 80 characters.

#' \preformatted{0  1 * * 1-5 Rscript -e 'rapbase::fireInTheHole()' >/dev/null 2>&1}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/FireInTheHole.R:20:1: style: Variable and function name style should be snake_case.

fireInTheHole <- function() {
^~~~~~~~~~~~~

R/FireInTheHole.R:21:1: style: Trailing whitespace is superfluous.

^~

R/FireInTheHole.R:24:1: style: Trailing whitespace is superfluous.

^~

R/GetConfig.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetConfig.R:16:1: style: Variable and function name style should be snake_case.

getConfig <- function(fileName = "dbConfig.yml", packageName = "rapbase") {
^~~~~~~~~

R/GetConfig.R:16:23: style: Variable and function name style should be snake_case.

getConfig <- function(fileName = "dbConfig.yml", packageName = "rapbase") {
                      ^~~~~~~~

R/GetConfig.R:16:50: style: Variable and function name style should be snake_case.

getConfig <- function(fileName = "dbConfig.yml", packageName = "rapbase") {
                                                 ^~~~~~~~~~~

R/GetConfig.R:17:1: style: Trailing whitespace is superfluous.

^~

R/GetConfig.R:19:1: style: Trailing whitespace is superfluous.

^~

R/GetConfig.R:27:1: style: Trailing whitespace is superfluous.

^~

R/getRapPackages.R:12:1: style: Variable and function name style should be snake_case.

getRapPackages <- function() {
^~~~~~~~~~~~~~

R/getRapPackages.R:13:3: style: Variable and function name style should be snake_case.

  allPkg <- as.data.frame(library()$result, stringsAsFactors=FALSE)
  ^~~~~~

R/getRapPackages.R:13:61: style: Put spaces around all infix operators.

  allPkg <- as.data.frame(library()$result, stringsAsFactors=FALSE)
                                                           ~^~

R/getRapPackages.R:15:23: style: Put spaces around all infix operators.

  res <- names(res[res==TRUE])
                     ~^~~

R/getRapPackages.R:24:1: style: Trailing whitespace is superfluous.

^~

R/GetShinyUserGroups.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:4:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:9:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:15:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:19:1: style: Variable and function name style should be snake_case.

getShinyUserGroups <- function(shinySession, testCase = FALSE) {
^~~~~~~~~~~~~~~~~~

R/GetShinyUserGroups.R:19:32: style: Variable and function name style should be snake_case.

getShinyUserGroups <- function(shinySession, testCase = FALSE) {
                               ^~~~~~~~~~~~

R/GetShinyUserGroups.R:19:46: style: Variable and function name style should be snake_case.

getShinyUserGroups <- function(shinySession, testCase = FALSE) {
                                             ^~~~~~~~

R/GetShinyUserGroups.R:20:1: style: Lines should not be more than 80 characters.

  lifecycle::deprecate_warn("1.10.0", "rapbase::GetShinyUserGroups()", "rapbase::getUserGroups()")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/GetShinyUserName.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:4:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:9:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:15:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:19:1: style: Variable and function name style should be snake_case.

getShinyUserName <- function(shinySession, testCase = FALSE) {
^~~~~~~~~~~~~~~~

R/GetShinyUserName.R:19:30: style: Variable and function name style should be snake_case.

getShinyUserName <- function(shinySession, testCase = FALSE) {
                             ^~~~~~~~~~~~

R/GetShinyUserName.R:19:44: style: Variable and function name style should be snake_case.

getShinyUserName <- function(shinySession, testCase = FALSE) {
                                           ^~~~~~~~

R/GetShinyUserReshId.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:4:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:9:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:15:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:19:1: style: Variable and function name style should be snake_case.

getShinyUserReshId <- function(shinySession, testCase = FALSE) {
^~~~~~~~~~~~~~~~~~

R/GetShinyUserReshId.R:19:32: style: Variable and function name style should be snake_case.

getShinyUserReshId <- function(shinySession, testCase = FALSE) {
                               ^~~~~~~~~~~~

R/GetShinyUserReshId.R:19:46: style: Variable and function name style should be snake_case.

getShinyUserReshId <- function(shinySession, testCase = FALSE) {
                                             ^~~~~~~~

R/GetShinyUserRole.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserRole.R:4:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserRole.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserRole.R:9:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserRole.R:15:3: style: Trailing whitespace is superfluous.

#' 
  ^

lintr-bot · 2020-10-06T13:09:43Z

inst/nowebChildAddAnnotation.Rnw:23:1: style: Lines should not be more than 80 characters.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/nowebChildAddAnnotation.Rnw:23:28: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                           ^~~~

inst/nowebChildAddAnnotation.Rnw:23:34: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/nowebChildAddAnnotation.Rnw:23:87: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                      ^~~~

inst/nowebChildAddAnnotation.Rnw:23:101: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                    ^~~

inst/nowebChildAddAnnotation.Rnw:23:106: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                         ^~~~~~~

inst/nowebChildAddAnnotation.Rnw:23:115: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                                  ^~~~

inst/nowebChildAddAnnotation.Rnw:23:124: style: Put spaces around all infix operators.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                                          ~^~

inst/nowebChildAddAnnotation.Rnw:23:125: style: Only use double-quotes.

    cat(paste(san(anFile), ': ', '\\attachfile[icon=Paperclip, description=', anFile, ']{', anFile, '}', ' \\\\', '\n', sep=''))
                                                                                                                            ^~

inst/nowebChildAddAnnotation.Rnw:26:7: style: Only use double-quotes.

  cat('Annotations wanted but found no files to add!\n')
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/nowebChildAddAnnotation.Rnw:27:7: style: Only use double-quotes.

  cat('Annotasjoner ønskes, men fant ingen filer å legge ved!\n')
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AppNavbarUserWidget.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AppNavbarUserWidget.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AppNavbarUserWidget.R:22:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AppNavbarUserWidget.R:27:1: style: Lines should not be more than 80 characters.

#'     appNavbarUserWidget(user = uiOutput(appUserName), organization = textOutput(appUserOrg))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AppNavbarUserWidget.R:33:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AppNavbarUserWidget.R:45:1: style: Variable and function name style should be snake_case.

appNavbarUserWidget <- function(user = "Undefined person",
^~~~~~~~~~~~~~~~~~~

R/AppNavbarUserWidget.R:47:33: style: Variable and function name style should be snake_case.

                                addUserInfo = FALSE) {
                                ^~~~~~~~~~~

R/AppNavbarUserWidget.R:48:1: style: Trailing whitespace is superfluous.

^~

R/AppNavbarUserWidget.R:50:3: style: Variable and function name style should be snake_case.

  userInfo <- shiny::tags$a(
  ^~~~~~~~

R/AppNavbarUserWidget.R:56:5: style: Variable and function name style should be snake_case.

    userInfo <- character()
    ^~~~~~~~

R/AppNavbarUserWidget.R:58:1: style: Trailing whitespace is superfluous.

^~

R/AppNavbarUserWidget.R:59:3: style: Variable and function name style should be snake_case.

  txtWidget <-
  ^~~~~~~~~

R/AppNavbarUserWidget.R:61:1: style: Lines should not be more than 80 characters.

         "header.append('<div class=\"navbar-brand\" style=\"float:right;vertical-align:super;font-size:65%\">",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AppNavbarUserWidget.R:67:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:27:22: style: Trailing whitespace is superfluous.

#' and 1 month if not 
                     ^

R/AutoReportFuns.R:31:52: style: Trailing whitespace is superfluous.

#' \code{interval}. Default value is an emty string 
                                                   ^

R/AutoReportFuns.R:41:1: style: Variable and function name style should be snake_case.

createAutoReport <- function(synopsis, package, fun, paramNames, paramValues,
^~~~~~~~~~~~~~~~

R/AutoReportFuns.R:41:54: style: Variable and function name style should be snake_case.

createAutoReport <- function(synopsis, package, fun, paramNames, paramValues,
                                                     ^~~~~~~~~~

R/AutoReportFuns.R:41:66: style: Variable and function name style should be snake_case.

createAutoReport <- function(synopsis, package, fun, paramNames, paramValues,
                                                                 ^~~~~~~~~~~

R/AutoReportFuns.R:42:58: style: Variable and function name style should be snake_case.

                             owner, email, organization, runDayOfYear,
                                                         ^~~~~~~~~~~~

R/AutoReportFuns.R:43:30: style: Variable and function name style should be snake_case.

                             terminateDate = NULL, interval = "",
                             ^~~~~~~~~~~~~

R/AutoReportFuns.R:44:30: style: Variable and function name style should be snake_case.

                             intervalName = "", dryRun = FALSE) {
                             ^~~~~~~~~~~~

R/AutoReportFuns.R:44:49: style: Variable and function name style should be snake_case.

                             intervalName = "", dryRun = FALSE) {
                                                ^~~~~~

R/AutoReportFuns.R:45:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:49:5: style: Variable and function name style should be snake_case.

    terminateDate <- as.POSIXlt(Sys.Date())
    ^~~~~~~~~~~~~

R/AutoReportFuns.R:55:5: style: Variable and function name style should be snake_case.

    terminateDate <- as.Date(terminateDate)
    ^~~~~~~~~~~~~

R/AutoReportFuns.R:57:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:60:3: style: Variable and function name style should be snake_case.

  autoRepId <- digest::digest(paste0(owner, ts))
  ^~~~~~~~~

R/AutoReportFuns.R:61:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:66:3: style: Variable and function name style should be snake_case.

  paramsListVector <- list()
  ^~~~~~~~~~~~~~~~

R/AutoReportFuns.R:67:13: warning: Avoid 1:length(...) expressions, use seq_len.

  for (i in 1:length(params)){
            ^

R/AutoReportFuns.R:67:29: style: There should be a space between right parenthesis and an opening curly brace.

  for (i in 1:length(params)){
                            ^~

R/AutoReportFuns.R:70:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:78:5: style: Variable and function name style should be snake_case.

  l$terminateDate <- as.character(terminateDate)
    ^~~~~~~~~~~~~

R/AutoReportFuns.R:80:5: style: Variable and function name style should be snake_case.

  l$intervalName <- intervalName
    ^~~~~~~~~~~~

R/AutoReportFuns.R:81:5: style: Variable and function name style should be snake_case.

  l$runDayOfYear <- runDayOfYear
    ^~~~~~~~~~~~

R/AutoReportFuns.R:82:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:84:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:86:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:92:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:93:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:103:1: style: Variable and function name style should be snake_case.

deleteAutoReport <- function(autoReportId) {
^~~~~~~~~~~~~~~~

R/AutoReportFuns.R:103:30: style: Variable and function name style should be snake_case.

deleteAutoReport <- function(autoReportId) {
                             ^~~~~~~~~~~~

R/AutoReportFuns.R:104:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:111:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:129:1: style: Lines should not be more than 80 characters.

readAutoReportData <- function(fileName = "autoReport.yml", packageName = "rapbase") {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:129:1: style: Variable and function name style should be snake_case.

readAutoReportData <- function(fileName = "autoReport.yml", packageName = "rapbase") {
^~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:129:32: style: Variable and function name style should be snake_case.

readAutoReportData <- function(fileName = "autoReport.yml", packageName = "rapbase") {
                               ^~~~~~~~

R/AutoReportFuns.R:129:61: style: Variable and function name style should be snake_case.

readAutoReportData <- function(fileName = "autoReport.yml", packageName = "rapbase") {
                                                            ^~~~~~~~~~~

R/AutoReportFuns.R:130:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:132:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:144:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:146:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:164:1: style: Variable and function name style should be snake_case.

writeAutoReportData <- function(fileName = "autoReport.yml", config,
^~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:164:33: style: Variable and function name style should be snake_case.

writeAutoReportData <- function(fileName = "autoReport.yml", config,
                                ^~~~~~~~

R/AutoReportFuns.R:165:33: style: Variable and function name style should be snake_case.

                                packageName = "rapbase") {
                                ^~~~~~~~~~~

R/AutoReportFuns.R:166:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:168:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:171:57: style: Trailing whitespace is superfluous.

    stop(paste("There is nowhere to store config data.", 
                                                        ^

R/AutoReportFuns.R:176:5: style: Variable and function name style should be snake_case.

    oriFile <- file.path(path, fileName)
    ^~~~~~~

R/AutoReportFuns.R:178:5: style: Variable and function name style should be snake_case.

    tmpTag <- as.character(as.integer(as.POSIXct(Sys.time())))
    ^~~~~~

R/AutoReportFuns.R:179:5: style: Variable and function name style should be snake_case.

    nameParts <- strsplit(fileName, "[.]")[[1]]
    ^~~~~~~~~

R/AutoReportFuns.R:180:5: style: Variable and function name style should be snake_case.

    bckFileName <- paste0(nameParts[1], tmpTag, ".", nameParts[-1])
    ^~~~~~~~~~~

R/AutoReportFuns.R:181:5: style: Variable and function name style should be snake_case.

    bckFilePath <- file.path(path, "autoReportBackup")
    ^~~~~~~~~~~

R/AutoReportFuns.R:185:1: style: Lines should not be more than 80 characters.

    file.copy(from = oriFile, to = file.path(bckFilePath, bckFileName), overwrite = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:188:5: style: Variable and function name style should be snake_case.

    rmFiles <- rownames(files[difftime(Sys.time(), files[, "mtime"],
    ^~~~~~~

R/AutoReportFuns.R:210:1: style: Variable and function name style should be snake_case.

selectByReg <- function(config, reg) {
^~~~~~~~~~~

R/AutoReportFuns.R:211:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:212:26: style: Do not place spaces around code in parentheses or square brackets.

  if (length(config) == 0 ) {
                         ^

R/AutoReportFuns.R:216:15: warning: Avoid 1:length(...) expressions, use seq_len.

    for (i in 1:length(config)) {
              ^

R/AutoReportFuns.R:236:1: style: Variable and function name style should be snake_case.

selectByOwner <- function(config, owner) {
^~~~~~~~~~~~~

R/AutoReportFuns.R:237:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:242:15: warning: Avoid 1:length(...) expressions, use seq_len.

    for (i in 1:length(config)) {
              ^

R/AutoReportFuns.R:262:1: style: Variable and function name style should be snake_case.

selectByOrganization <- function(config, organization) {
^~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:263:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:268:15: warning: Avoid 1:length(...) expressions, use seq_len.

    for (i in 1:length(config)) {
              ^

R/AutoReportFuns.R:285:1: style: Variable and function name style should be snake_case.

getRegs <- function(config) {
^~~~~~~

R/AutoReportFuns.R:287:13: warning: Avoid 1:length(...) expressions, use seq_len.

  for (i in 1:length(config)) {
            ^

R/AutoReportFuns.R:314:1: style: Variable and function name style should be snake_case.

.testAutoReport <- function(aNum = 1, aChar = "a", anExp = Sys.Date()) {
^~~~~~~~~~~~~~~

R/AutoReportFuns.R:314:29: style: Variable and function name style should be snake_case.

.testAutoReport <- function(aNum = 1, aChar = "a", anExp = Sys.Date()) {
                            ^~~~

R/AutoReportFuns.R:314:39: style: Variable and function name style should be snake_case.

.testAutoReport <- function(aNum = 1, aChar = "a", anExp = Sys.Date()) {
                                      ^~~~~

R/AutoReportFuns.R:314:52: style: Variable and function name style should be snake_case.

.testAutoReport <- function(aNum = 1, aChar = "a", anExp = Sys.Date()) {
                                                   ^~~~~

R/AutoReportFuns.R:315:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:316:1: style: Lines should not be more than 80 characters.

  msg <- paste("This is a simple test of automated reports. Arguments provided:\n",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:320:3: style: Variable and function name style should be snake_case.

  fileName <- paste0(tempfile(), ".txt")
  ^~~~~~~~

R/AutoReportFuns.R:324:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:326:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:337:1: style: Variable and function name style should be snake_case.

.getFun <- function(x) {
^~~~~~~

R/AutoReportFuns.R:338:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:339:5: style: Place a space before left parenthesis, except in a function call.

  if(length(grep("::", x))>0) {
    ^

R/AutoReportFuns.R:339:27: style: Put spaces around all infix operators.

  if(length(grep("::", x))>0) {
                         ~^~

R/AutoReportFuns.R:340:10: style: Put spaces around all infix operators.

    parts<-strsplit(x, "::")[[1]]
        ~^~~

R/AutoReportFuns.R:345:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:373:1: style: Variable and function name style should be snake_case.

runAutoReport <- function(dayNumber = as.POSIXlt(Sys.Date())$yday+1,
^~~~~~~~~~~~~

R/AutoReportFuns.R:373:27: style: Variable and function name style should be snake_case.

runAutoReport <- function(dayNumber = as.POSIXlt(Sys.Date())$yday+1,
                          ^~~~~~~~~

R/AutoReportFuns.R:373:66: style: Put spaces around all infix operators.

runAutoReport <- function(dayNumber = as.POSIXlt(Sys.Date())$yday+1,
                                                                ~^~

R/AutoReportFuns.R:374:27: style: Variable and function name style should be snake_case.

                          dryRun = FALSE) {
                          ^~~~~~

R/AutoReportFuns.R:375:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:376:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:379:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:381:3: style: Variable and function name style should be snake_case.

  stdTxt <- readr::read_file(system.file("autoReportStandardEmailText.txt",
  ^~~~~~

R/AutoReportFuns.R:386:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:390:3: style: Variable and function name style should be snake_case.

  headPost <- "?="
  ^~~~~~~~

R/AutoReportFuns.R:391:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:392:13: warning: Avoid 1:length(...) expressions, use seq_len.

  for (i in 1:length(reps)) {
            ^

R/AutoReportFuns.R:399:9: style: Variable and function name style should be snake_case.

        attFile <- do.call(what = f, args = rep$params)
        ^~~~~~~

R/AutoReportFuns.R:414:38: style: Put spaces around all infix operators.

            control = list(smtpServer=conf$network$smtp$server,
                                    ~^~

R/AutoReportFuns.R:415:40: style: Put spaces around all infix operators.

                           smtpPortSMTP=conf$network$smtp$port))
                                      ~^~

R/AutoReportFuns.R:416:1: style: Trailing whitespace is superfluous.

          
^~~~~~~~~~

R/AutoReportFuns.R:447:1: style: Variable and function name style should be snake_case.

makeRunDayOfYearSequence <- function(startDay = Sys.Date(), interval) {
^~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:447:38: style: Variable and function name style should be snake_case.

makeRunDayOfYearSequence <- function(startDay = Sys.Date(), interval) {
                                     ^~~~~~~~

R/AutoReportFuns.R:448:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:456:12: warning: Avoid 1:length(...) expressions, use seq_len.

    s <- s[1:length(s)-1]
           ^

R/AutoReportFuns.R:456:23: style: Put spaces around all infix operators.

    s <- s[1:length(s)-1]
                     ~^~

R/AutoReportFuns.R:463:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AutoReportFuns.R:468:65: style: Trailing whitespace is superfluous.

#' @param runDayOfYear Numeric vector providing year-day numbers  
                                                                ^~

R/AutoReportFuns.R:480:1: style: Variable and function name style should be snake_case.

findNextRunDate <- function(runDayOfYear,
^~~~~~~~~~~~~~~

R/AutoReportFuns.R:480:29: style: Variable and function name style should be snake_case.

findNextRunDate <- function(runDayOfYear,
                            ^~~~~~~~~~~~

R/AutoReportFuns.R:481:29: style: Variable and function name style should be snake_case.

                            baseDayNum = as.POSIXlt(Sys.Date())$yday+1,
                            ^~~~~~~~~~

R/AutoReportFuns.R:481:69: style: Put spaces around all infix operators.

                            baseDayNum = as.POSIXlt(Sys.Date())$yday+1,
                                                                   ~^~

R/AutoReportFuns.R:482:29: style: Variable and function name style should be snake_case.

                            returnFormat = "%A %e. %B %Y") {
                            ^~~~~~~~~~~~

R/AutoReportFuns.R:483:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:485:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:489:5: style: Variable and function name style should be snake_case.

    nextDayNum <- min(runDayOfYear)
    ^~~~~~~~~~

R/AutoReportFuns.R:493:5: style: Variable and function name style should be snake_case.

    nextDayNum <- min(runDayOfYear[runDayOfYear > baseDayNum])
    ^~~~~~~~~~

R/AutoReportFuns.R:495:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:497:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:502:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AutoReportFuns.R:513:1: style: Variable and function name style should be snake_case.

makeUserSubscriptionTab <- function(session) {
^~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:514:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:516:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:518:3: style: Variable and function name style should be snake_case.

  autoRep <- readAutoReportData() %>%
  ^~~~~~~

R/AutoReportFuns.R:520:55: style: Trailing whitespace is superfluous.

    selectByOwner(., owner = getUserName(session)) %>% 
                                                      ^

R/AutoReportFuns.R:522:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:523:3: style: Variable and function name style should be snake_case.

  dateFormat <- "%A %e. %B %Y"
  ^~~~~~~~~~

R/AutoReportFuns.R:524:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:525:27: style: There should be a space between right parenthesis and an opening curly brace.

  for (n in names(autoRep)){
                          ^~

R/AutoReportFuns.R:526:5: style: Variable and function name style should be snake_case.

    nextDate <- findNextRunDate(autoRep[[n]]$runDayOfYear,
    ^~~~~~~~

R/AutoReportFuns.R:529:7: style: Variable and function name style should be snake_case.

      nextDate <- "Utl\u00F8pt"
      ^~~~~~~~

R/AutoReportFuns.R:531:24: style: Put spaces around all infix operators.

    r <- list("Rapport"=autoRep[[n]]$synopsis,
                      ~^~

R/AutoReportFuns.R:532:22: style: Put spaces around all infix operators.

              "Enhet"=autoRep[[n]]$organization,
                    ~^~

R/AutoReportFuns.R:533:24: style: Put spaces around all infix operators.

              "Periode"=autoRep[[n]]$intervalName,
                      ~^~

R/AutoReportFuns.R:534:27: style: Put spaces around all infix operators.

              "Utl\u00F8p"=strftime(as.Date(autoRep[[n]]$terminateDate),
                         ~^~

R/AutoReportFuns.R:536:22: style: Put spaces around all infix operators.

              "Neste"=nextDate,
                    ~^~

R/AutoReportFuns.R:537:22: style: Put spaces around all infix operators.

              "Slett"=as.character(
                    ~^~

R/AutoReportFuns.R:541:1: style: Lines should not be more than 80 characters.

                                    onclick = 'Shiny.onInputChange(\"del_button\",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:549:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/AutoReportFuns.R:555:64: style: Trailing whitespace is superfluous.

#' @param map_resh_name A data.table consisting og two columns, 
                                                               ^

R/AutoReportFuns.R:556:64: style: Trailing whitespace is superfluous.

#' Sykehusnavn and AvdRESH, providing a mapping between numeric 
                                                               ^

R/AutoReportFuns.R:563:1: style: Variable and function name style should be snake_case.

makeUserSubscriptionTab_v2 <- function(session, map_resh_name = NULL) {
^~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:564:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:566:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:568:3: style: Variable and function name style should be snake_case.

  autoRep <- readAutoReportData() %>%
  ^~~~~~~

R/AutoReportFuns.R:570:55: style: Trailing whitespace is superfluous.

    selectByOwner(., owner = getUserName(session)) %>% 
                                                      ^

R/AutoReportFuns.R:572:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:573:3: style: Variable and function name style should be snake_case.

  dateFormat <- "%A %e. %B %Y"
  ^~~~~~~~~~

R/AutoReportFuns.R:574:1: style: Trailing whitespace is superfluous.

^~

R/AutoReportFuns.R:575:27: style: There should be a space between right parenthesis and an opening curly brace.

  for (n in names(autoRep)){
                          ^~

R/AutoReportFuns.R:576:5: style: Variable and function name style should be snake_case.

    nextDate <- findNextRunDate(autoRep[[n]]$runDayOfYear,
    ^~~~~~~~

R/AutoReportFuns.R:579:7: style: Variable and function name style should be snake_case.

      nextDate <- "Utl\u00F8pt"
      ^~~~~~~~

R/AutoReportFuns.R:581:24: style: Put spaces around all infix operators.

    r <- list("Rapport"=autoRep[[n]]$synopsis,
                      ~^~

R/AutoReportFuns.R:582:24: style: Put spaces around all infix operators.

              "Periode"=autoRep[[n]]$intervalName,
                      ~^~

R/AutoReportFuns.R:583:27: style: Put spaces around all infix operators.

              "Utl\u00F8p"=strftime(as.Date(autoRep[[n]]$terminateDate),
                         ~^~

R/AutoReportFuns.R:585:22: style: Put spaces around all infix operators.

              "Neste"=nextDate,
                    ~^~

R/AutoReportFuns.R:586:26: style: Put spaces around all infix operators.

              "Mottakere"=autoRep[[n]]$email,
                        ~^~

R/AutoReportFuns.R:587:1: style: Lines should not be more than 80 characters.

              "Avdeling"= if ('reshID' %in%  names(unlist(autoRep[[n]]$params))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:587:25: style: Put spaces around all infix operators.

              "Avdeling"= if ('reshID' %in%  names(unlist(autoRep[[n]]$params))) {
                       ~^

R/AutoReportFuns.R:587:31: style: Only use double-quotes.

              "Avdeling"= if ('reshID' %in%  names(unlist(autoRep[[n]]$params))) {
                              ^~~~~~~~

R/AutoReportFuns.R:588:46: style: Only use double-quotes.

                unlist(autoRep[[n]]$params)[['reshID']]
                                             ^~~~~~~~

R/AutoReportFuns.R:589:22: style: Opening curly braces should never go on their own line and should always be followed by a new line.

              } else {autoRep[[n]]$organization},
                     ^

R/AutoReportFuns.R:590:22: style: Put spaces around all infix operators.

              "Slett"=as.character(
                    ~^~

R/AutoReportFuns.R:594:1: style: Lines should not be more than 80 characters.

                                    onclick = 'Shiny.onInputChange(\"del_button\",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:600:1: style: Lines should not be more than 80 characters.

    l$Mottakere <- purrr::map_chr(l$Mottakere, function(x) {paste0(x, collapse = '<br />')})
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:600:7: style: Variable and function name style should be snake_case.

    l$Mottakere <- purrr::map_chr(l$Mottakere, function(x) {paste0(x, collapse = '<br />')})
      ^~~~~~~~~

R/AutoReportFuns.R:600:60: style: Opening curly braces should never go on their own line and should always be followed by a new line.

    l$Mottakere <- purrr::map_chr(l$Mottakere, function(x) {paste0(x, collapse = '<br />')})
                                                           ^

R/AutoReportFuns.R:600:82: style: Only use double-quotes.

    l$Mottakere <- purrr::map_chr(l$Mottakere, function(x) {paste0(x, collapse = '<br />')})
                                                                                 ^~~~~~~~

R/AutoReportFuns.R:601:7: style: Variable and function name style should be snake_case.

    l$Avdeling <- purrr::map_chr(l$Avdeling, function(x) x)
      ^~~~~~~~

R/AutoReportFuns.R:603:1: style: Lines should not be more than 80 characters.

      l$Avdeling <- map_resh_name$Sykehusnavn[match(as.numeric(l$Avdeling), map_resh_name$AvdRESH)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/AutoReportFuns.R:603:9: style: Variable and function name style should be snake_case.

      l$Avdeling <- map_resh_name$Sykehusnavn[match(as.numeric(l$Avdeling), map_resh_name$AvdRESH)]
        ^~~~~~~~

R/FireInTheHole.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/FireInTheHole.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/FireInTheHole.R:9:1: style: Lines should not be more than 80 characters.

#' \preformatted{0  1 * * 1-5 Rscript -e 'rapbase::fireInTheHole()' >/dev/null 2>&1}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/FireInTheHole.R:20:1: style: Variable and function name style should be snake_case.

fireInTheHole <- function() {
^~~~~~~~~~~~~

R/FireInTheHole.R:21:1: style: Trailing whitespace is superfluous.

^~

R/FireInTheHole.R:24:1: style: Trailing whitespace is superfluous.

^~

R/GetConfig.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetConfig.R:16:1: style: Variable and function name style should be snake_case.

getConfig <- function(fileName = "dbConfig.yml", packageName = "rapbase") {
^~~~~~~~~

R/GetConfig.R:16:23: style: Variable and function name style should be snake_case.

getConfig <- function(fileName = "dbConfig.yml", packageName = "rapbase") {
                      ^~~~~~~~

R/GetConfig.R:16:50: style: Variable and function name style should be snake_case.

getConfig <- function(fileName = "dbConfig.yml", packageName = "rapbase") {
                                                 ^~~~~~~~~~~

R/GetConfig.R:17:1: style: Trailing whitespace is superfluous.

^~

R/GetConfig.R:19:1: style: Trailing whitespace is superfluous.

^~

R/GetConfig.R:27:1: style: Trailing whitespace is superfluous.

^~

R/getRapPackages.R:12:1: style: Variable and function name style should be snake_case.

getRapPackages <- function() {
^~~~~~~~~~~~~~

R/getRapPackages.R:13:3: style: Variable and function name style should be snake_case.

  allPkg <- as.data.frame(library()$result, stringsAsFactors=FALSE)
  ^~~~~~

R/getRapPackages.R:13:61: style: Put spaces around all infix operators.

  allPkg <- as.data.frame(library()$result, stringsAsFactors=FALSE)
                                                           ~^~

R/getRapPackages.R:15:23: style: Put spaces around all infix operators.

  res <- names(res[res==TRUE])
                     ~^~~

R/getRapPackages.R:24:1: style: Trailing whitespace is superfluous.

^~

R/GetShinyUserGroups.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:4:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:9:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:15:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserGroups.R:19:1: style: Variable and function name style should be snake_case.

getShinyUserGroups <- function(shinySession, testCase = FALSE) {
^~~~~~~~~~~~~~~~~~

R/GetShinyUserGroups.R:19:32: style: Variable and function name style should be snake_case.

getShinyUserGroups <- function(shinySession, testCase = FALSE) {
                               ^~~~~~~~~~~~

R/GetShinyUserGroups.R:19:46: style: Variable and function name style should be snake_case.

getShinyUserGroups <- function(shinySession, testCase = FALSE) {
                                             ^~~~~~~~

R/GetShinyUserGroups.R:20:1: style: Lines should not be more than 80 characters.

  lifecycle::deprecate_warn("1.10.0", "rapbase::GetShinyUserGroups()", "rapbase::getUserGroups()")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/GetShinyUserName.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:4:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:9:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:15:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserName.R:19:1: style: Variable and function name style should be snake_case.

getShinyUserName <- function(shinySession, testCase = FALSE) {
^~~~~~~~~~~~~~~~

R/GetShinyUserName.R:19:30: style: Variable and function name style should be snake_case.

getShinyUserName <- function(shinySession, testCase = FALSE) {
                             ^~~~~~~~~~~~

R/GetShinyUserName.R:19:44: style: Variable and function name style should be snake_case.

getShinyUserName <- function(shinySession, testCase = FALSE) {
                                           ^~~~~~~~

R/GetShinyUserReshId.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:4:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:9:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:15:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserReshId.R:19:1: style: Variable and function name style should be snake_case.

getShinyUserReshId <- function(shinySession, testCase = FALSE) {
^~~~~~~~~~~~~~~~~~

R/GetShinyUserReshId.R:19:32: style: Variable and function name style should be snake_case.

getShinyUserReshId <- function(shinySession, testCase = FALSE) {
                               ^~~~~~~~~~~~

R/GetShinyUserReshId.R:19:46: style: Variable and function name style should be snake_case.

getShinyUserReshId <- function(shinySession, testCase = FALSE) {
                                             ^~~~~~~~

R/GetShinyUserRole.R:2:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserRole.R:4:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserRole.R:6:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserRole.R:9:3: style: Trailing whitespace is superfluous.

#' 
  ^

R/GetShinyUserRole.R:15:3: style: Trailing whitespace is superfluous.

#' 
  ^

-Original file line number
+Diff line change
@@ Expand Up / @@ -17,6 +17,7 @@ services: @@
     before_install:
       - mysql -e 'CREATE DATABASE IF NOT EXISTS rapbase; USE rapbase; CREATE TABLE testTable (id INT, someText VARCHAR(50), someInt INT, someFloat DOUBLE, someTime DATETIME);'
+      - sudo apt-get -y install libharfbuzz-dev libfribidi-dev
     r_github_packages:
       - jimhester/covr
@@ Expand Down @@

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Commit

There are no files selected for viewing

2 comments on commit `a52492c`

lintr-bot commented on `a52492c` Oct 6, 2020

lintr-bot commented on `a52492c` Oct 6, 2020

Commit

There are no files selected for viewing

2 comments on commit a52492c

lintr-bot commented on a52492c Oct 6, 2020

Choose a reason for hiding this comment

lintr-bot commented on a52492c Oct 6, 2020

Choose a reason for hiding this comment

2 comments on commit `a52492c`

lintr-bot commented on `a52492c` Oct 6, 2020

lintr-bot commented on `a52492c` Oct 6, 2020