Minor updates suggested by lintr

R/zzz.R

@@ -21,12 +21,11 @@ splines2_default_options <- list(
 )
 
 ## set options for splines2
-.onLoad <- function(libname, pkgname)
-{
-  op <- options()
-  toset <- ! names(splines2_default_options) %in% names(op)
-  if (any(toset)) {
-      options(splines2_default_options[toset])
-  }
-  invisible(NULL)
+.onLoad <- function(libname, pkgname) {
+    op <- options()
+    toset <- ! names(splines2_default_options) %in% names(op)
+    if (any(toset)) {
+        options(splines2_default_options[toset])
+    }
+    invisible()
 }

inst/examples/ex-mSpline.R

@@ -53,10 +53,10 @@ intercept <- TRUE
 internal_knots <- default_knots(x, df, intercept)
 
 ## 1. specify df
-spline_basis1 =  mSpline(x, degree = degree, df = df,
+spline_basis1 <- mSpline(x, degree = degree, df = df,
                          periodic = TRUE, intercept = intercept)
 ## 2. specify knots
-spline_basis2 =  mSpline(x, degree = degree, knots = internal_knots,
+spline_basis2 <- mSpline(x, degree = degree, knots = internal_knots,
                          periodic = TRUE, intercept = intercept)
 
 all.equal(internal_knots, knots(spline_basis1))

inst/examples/ex-naturalSpline.R

@@ -32,7 +32,7 @@ fit1 <- lm(weight ~ -1 + nsk(height, df = 4, intercept = TRUE), data = women)
 fit2 <- lm(weight ~ nsk(height, df = 3), data = women)
 
 ## the knots (same for both fits)
-knots <- unlist(attributes(fit1$model[[2]])[c('Boundary.knots', 'knots')])
+knots <- unlist(attributes(fit1$model[[2]])[c("Boundary.knots", "knots")])
 
 ## predictions at the knot points
 predict(fit1, data.frame(height = sort(unname(knots))))