Skip to content

Commit

Permalink
CRAN dl badge fixed
Browse files Browse the repository at this point in the history
  • Loading branch information
@jcoenep
jcoenep committed May 9, 2016
1 parent 57d3f70 commit 2365e94
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion README.md
View file
Expand Up @@ -3,7 +3,7 @@
[![Coverage Status](https://img.shields.io/coveralls/JohnCoene/rodham.svg)](https://coveralls.io/r/JohnCoene/rodham?branch=master)
[![codecov](https://codecov.io/gh/JohnCoene/rodham/branch/master/graph/badge.svg)](https://codecov.io/gh/JohnCoene/rodham)
[![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/rodham)](https://cran.r-project.org/package=rodham)
[![CRAN_DL_Badge](http://cranlogs.r-pkg.org/badges/grand-total/)](http://cranlogs.r-pkg.org/badges/grand-total/)
[![CRAN_DL_Badge](http://cranlogs.r-pkg.org/badges/grand-total/rodham)](http://cranlogs.r-pkg.org/badges/grand-total/rodham)

![img](https://raw.githubusercontent.com/JohnCoene/projects/gh-pages/img/modals/rodham.JPG)

Expand Down

1 comment on commit 2365e94

@lintr-bot
Copy link

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

R/edge.R:26:36: style: Commas should always have a space after.

​  emails <- emails[emails$to != "",] # filter
                                   ^

R/edge.R:27:38: style: Commas should always have a space after.

​  emails <- emails[emails$from != "",]
                                     ^

R/edge.R:30:44: warning: no visible binding for global variable ‘to’, Did you mean 'ts'?

​  clean <- emails[with(emails, !grepl(";", to) & !grepl(";", from)),] # split
                                           ^~

R/edge.R:30:62: warning: no visible binding for global variable ‘from’, Did you mean 'proj'?

​  clean <- emails[with(emails, !grepl(";", to) & !grepl(";", from)),] # split
                                                             ^~~~

R/edge.R:30:69: style: Commas should always have a space after.

​  clean <- emails[with(emails, !grepl(";", to) & !grepl(";", from)),] # split
                                                                    ^

R/edge.R:31:41: warning: no visible binding for global variable ‘to’, Did you mean 'ts'?

​  raw <- emails[with(emails, grepl(";", to) | grepl(";", from)),]
                                        ^~

R/edge.R:31:58: warning: no visible binding for global variable ‘from’, Did you mean 'proj'?

​  raw <- emails[with(emails, grepl(";", to) | grepl(";", from)),]
                                                         ^~~~

R/edge.R:31:65: style: Commas should always have a space after.

​  raw <- emails[with(emails, grepl(";", to) | grepl(";", from)),]
                                                                ^

R/edge.R:32:11: warning: no visible global function definition for ‘raw2clean’

​  tail <- raw2clean(raw) # process raw
          ^~~~~~~~~

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

​  if(!is.null(args)){ # if meta-data
    ^

R/edge.R:36:21: style: Opening curly braces should never go on their own line and should always be followed by a new line.

​  if(!is.null(args)){ # if meta-data
                    ^

R/edge.R:47:53: style: Commas should always have a space after.

​  src_tgt <- src_tgt[order(-src_tgt[ncol(src_tgt)]),] # arrange by weight
                                                    ^

R/extractor.R:18:30: warning: Do not use absolute paths.

​get_xpdf <- function(dest = "C:/"){
                             ^~~

R/extractor.R:19:20: style: Only use double-quotes.

​  os <- Sys.info()['sysname'] # get os
                   ^~~~~~~~~

R/extractor.R:20:10: style: Variable and function names should be all lowercase.

​  lst <- OStoURI(os) # check os
         ^~~~~~~

R/extractor.R:20:10: warning: no visible global function definition for ‘OStoURI’

​  lst <- OStoURI(os) # check os
         ^~~~~~~

R/extractor.R:24:31: style: Put spaces around all infix operators.

​  unlink("temp_zip", recursive=TRUE) # delete temp zip once unzipped
                             ~^~

R/extractor.R:32:1: style: Trailing blank lines are superfluous.

​
^

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

​  if(!file.exists(extractor)){
    ^

R/get_emails.R:85:10: style: Variable and function names should be all lowercase.

​  uri <- checkRelease(release) # check release input and return URL
         ^~~~~~~~~~~~

R/get_emails.R:85:10: warning: no visible global function definition for ‘checkRelease’

​  uri <- checkRelease(release) # check release input and return URL
         ^~~~~~~~~~~~

R/get_emails.R:97:28: style: Commas should always have a space after.

​    pdf <- paste0(temp_dir,"\\", files[i])
                           ^

R/get_emails.R:98:28: style: Commas should always have a space after.

​    txt <- paste0(save.dir,"/", dest[i])
                           ^

R/get_emails.R:99:40: style: Commas should never have a space before.

​    system(paste(extractor, "-nopgbrk" , pdf, txt, sep = " "),
                                      ~^

R/get_emails.R:101:28: style: Put spaces around all infix operators.

​    setTxtProgressBar(pb, i/length(files))
                          ~^~

R/search.R:38:26: style: Opening curly braces should never go on their own line and should always be followed by a new line.

​  if (internal == FALSE) { # encode subject if fetching from WSJ
                         ^

R/search.R:42:1: style: lines should not be more than 80 characters.

​    uri <- paste0("http://graphics.wsj.com/hillary-clinton-email-documents/api/",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/search.R:59:63: style: Commas should always have a space after.

​      emails <- emails[grep(toupper(subject), emails$subject),]
                                                              ^

R/search.R:62:40: style: Commas should always have a space after.

​      emails <- emails[emails$to == to,]
                                       ^

R/search.R:65:44: style: Commas should always have a space after.

​      emails <- emails[emails$from == from,]
                                           ^

R/search.R:68:31: style: Variable and function names should be all lowercase.

​      emails <- emails[emails$docDate <= as.Date(start),]
                              ^~~~~~~

R/search.R:68:57: style: Commas should always have a space after.

​      emails <- emails[emails$docDate <= as.Date(start),]
                                                        ^

R/search.R:71:31: style: Variable and function names should be all lowercase.

​      emails <- emails[emails$docDate >= as.Date(end),]
                              ^~~~~~~

R/search.R:71:55: style: Commas should always have a space after.

​      emails <- emails[emails$docDate >= as.Date(end),]
                                                      ^

R/utils.R:7:1: style: Variable and function names should be all lowercase.

​checkRelease <- function(x){
^~~~~~~~~~~~

R/utils.R:10:16: warning: no visible binding for global variable ‘db’, Did you mean 'df'?

​    release <- db[db$name == x, "uri"]
               ^~

R/utils.R:10:16: warning: no visible binding for global variable ‘db’, Did you mean 'df'?

​    release <- db[db$name == x, "uri"]
               ^~

R/utils.R:12:12: style: Place a space before left parenthesis, except in a function call.

​  } else if(!x %in% db$name && length(x) == 1) {
           ^

R/utils.R:13:19: warning: no visible binding for global variable ‘db’, Did you mean 'df'?

​    msg <- paste0(db$name, collapse = ", ")
                  ^~

R/utils.R:20:1: style: Variable and function names should be all lowercase.

​OStoURI <- function(x){
^~~~~~~

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

​  if(x == "Windows"){
    ^

R/utils.R:27:12: style: Place a space before left parenthesis, except in a function call.

​  } else if(x == "Darwin") {
           ^

Please sign in to comment.