[chore] Fix lint errors

Fix lint errors after formatting moved around exclusion comments.

Author: jrnold

R/geom-rangeframe.R

@@ -58,9 +58,9 @@ geom_rangeframe <- function(
 #' @export
 #' @importFrom ggplot2 Geom
 #' @importFrom scales alpha
+# nolint start: object_name_linter
 GeomRangeFrame <- ggplot2::ggproto(
-  # nolint
-  "GeomRangeFrame", # nolint: object_name_linter
+  "GeomRangeFrame",
   ggplot2::Geom,
   optional_aes = c("x", "y"),
   draw_panel = function(data, panel_scales, coord, sides = "bl") {
@@ -136,3 +136,4 @@ GeomRangeFrame <- ggplot2::ggproto(
   ),
   draw_key = ggplot2::draw_key_path
 )
+# nolint end: object_name_linter

R/scales.R

@@ -1,7 +1,6 @@
 # Much of this code is copied from the labeling package.
+# nolint start: object_name_linter
 .simplicity <- function(q, Q, j, lmin, lmax, lstep) {
-  # nolint
-  # nolint: object_name_linter
   eps <- .Machine$double.eps * 100
 
   n <- length(Q)
@@ -18,8 +17,6 @@
 }
 
 .simplicity_max <- function(q, Q, j) {
-  # nolint
-  # nolint: object_name_linter
   n <- length(Q)
   i <- match(q, Q)[1]
   v <- 1
@@ -262,3 +259,5 @@ smart_digits <- function(x, ...) {
 smart_digits_format <- function(x, ...) {
   function(x) smart_digits(x, ...)
 }
+
+# nolint end: object_name_linter

R/stat-fivenumber.R

@@ -51,6 +51,7 @@ has_groups <- function(data) {
   data$group[1L] != NO_GROUP
 }
 
+# nolint start: object_name_linter
 #' @export
 #' @format NULL
 #' @usage NULL
@@ -120,3 +121,4 @@ StatFivenumber <- ggplot2::ggproto(
     df
   }
 )
+# nolint end: object_name_linter