checking

.Rbuildignore

@@ -10,3 +10,4 @@
 ^\.Rproj\.user$
 ^\.travis\.yml$
 ^data-raw$
+^\.lintr$

DESCRIPTION

@@ -13,24 +13,26 @@ Authors@R: c(person("Jeffrey B.", "Arnold", role = c("aut", "cre"),
     comment = "Code from the ggplot2 package."),
     person("Justin",  "Talbot", role = "ctb",
     comment = "Code from the labeling package"))
-Depends: 
+Depends:
     R (>= 3.0.0),
-Imports: 
+Imports:
     assertthat,
     colorspace,
     ggplot2 (>= 2.0.0),
     graphics,
     grid,
     methods,
     scales
-Suggests: 
+Suggests:
     extrafont,
     knitr,
     maps,
     mapproj,
     pander,
     plyr,
-    reshape2
+    reshape2,
+    testthat,
+    lintr
 VignetteBuilder: knitr
 Description: Some extra themes, geoms, and scales for `ggplot2`.
     Provides `ggplot2` themes and scales that replicate the look of plots
@@ -40,7 +42,7 @@ Description: Some extra themes, geoms, and scales for `ggplot2`.
 License: GPL-2
 URL: http://github.com/jrnold/ggthemes
 BugReports: http://github.com/jrnold/ggthemes
-Collate: 
+Collate:
     'banking.R'
     'base.R'
     'calc.R'

R/banking.R

@@ -204,16 +204,16 @@ bank_slopes_ao <- function(slopes, weight = TRUE, ...) {
     f <- function(alpha, slopes) {
       (mean(abs(atan(slopes$s / alpha))) - FORTY_FIVE) ^ 2
     }
-    nlm(f, alpha0, slopes = slopes)$estimate
   }
+  nlm(f, alpha0, slopes = slopes)$estimate
 }
 
 bank_slopes_gor <- function(slopes, ...) {
   alpha0 <- bank_slopes_ms(slopes)
   s <- slopes$s
   f <- function(alpha) {
-    theta <- atan(s / alpha) * -mean(as.numeric(dist(theta,
-                                                     method = "manhattan")))
+    theta <- atan(s / alpha)
+    - mean(as.numeric(dist(theta, method = "manhattan")))
   }
   nlm(f, alpha0)$estimate
 }

R/stata.R

@@ -117,7 +117,7 @@ theme_stata_base <- function(base_size = 11, base_family = "sans") {
                                   hjust = 0.5,
                                   vjust = 1),
         plot.margin = unit(rep(0.035, 4), "npc"),
-        complete=TRUE)
+        complete = TRUE)
 }
 
 theme_stata_colors <- function(scheme="s2color") {
@@ -194,9 +194,10 @@ theme_stata_colors <- function(scheme="s2color") {
         plot.background = element_rect(fill = color_plot))
 }
 
-#" Themes based on Stata graph schemes
+#' Themes based on Stata graph schemes
 #'
-#' @param scheme One of "s2color", "s2mono", "s1color", "s1rcolor", or "s1mono", "s2manual",
+#' @param scheme One of "s2color", "s2mono", "s1color",
+#'   "s1rcolor", or "s1mono", "s2manual",
 #'   "s1manual", or "sj"
 #' @inheritParams ggplot2::theme_grey
 #' @export

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(ggthemes)
+
+test_check("ggthemes")

tests/testthat/test-linters.R

@@ -0,0 +1,6 @@
+if (requireNamespace("lintr", quietly = TRUE)) {
+  context("lints")
+  test_that("Package Style", {
+    lintr::expect_lint_free()
+  })
+}