Merge pull request #59 from TanguyBarthelemy/develop

Lint package
rjdverse · Oct 14, 2024 · ac85b63 · ac85b63
2 parents e0a5200 + b011f16
commit ac85b63
Show file tree

Hide file tree

Showing 27 changed files with 1,676 additions and 1,420 deletions.
diff --git a/.lintr b/.lintr
@@ -1,5 +1,7 @@
 linters: linters_with_defaults(
         indentation_linter = lintr::indentation_linter(indent = 4L),
+        # line_length_linter = lintr::line_length_linter(80L),
+        line_length_linter = lintr::line_length_linter(500L),
         indentation_linter = NULL,
         assignment_linter = NULL,
         trailing_blank_lines_linter = NULL,
@@ -21,7 +23,6 @@ linters: linters_with_defaults(
         cyclocomp_linter = NULL,
         object_usage_linter = NULL,
         object_name_linter = NULL,
-        line_length_linter = NULL,
         commented_code_linter = NULL
     )
 encoding: "UTF-8"
diff --git a/R/deprecated.R b/R/deprecated.R
@@ -4,31 +4,31 @@
 #' @param ts,spec,context,userdefined,name Parameters.
 #' @name deprecated-rjd3x13
 #' @export
-spec_x13<-function(name = c("rsa4","rsa0", "rsa1", "rsa2c", "rsa3", "rsa5c")){
-  .Deprecated("x13_spec")
-  x13_spec(name)
+spec_x13 <- function(name = c("rsa4", "rsa0", "rsa1", "rsa2c", "rsa3", "rsa5c")) {
+    .Deprecated("x13_spec")
+    x13_spec(name)
 }
 #' @name deprecated-rjd3x13
 #' @export
-spec_regarima<-function(name=c("rg4","rg0", "rg1", "rg2c", "rg3", "rg5c")){
-  .Deprecated("regarima_spec")
-  regarima_spec(name)
+spec_regarima <- function(name = c("rg4", "rg0", "rg1", "rg2c", "rg3", "rg5c")) {
+    .Deprecated("regarima_spec")
+    regarima_spec(name)
 }
 #' @name deprecated-rjd3x13
 #' @export
 spec_x11 <- function() {
-  .Deprecated("x11_spec")
-  x11_spec()
+    .Deprecated("x11_spec")
+    x11_spec()
 }
 #' @name deprecated-rjd3x13
 #' @export
-fast_x13<-function(ts, spec=c("rsa4", "rsa0", "rsa1", "rsa2c", "rsa3", "rsa5c"), context=NULL, userdefined = NULL){
-  .Deprecated("x13_fast")
-  x13_fast(ts, spec, context, userdefined)
+fast_x13 <- function(ts, spec = c("rsa4", "rsa0", "rsa1", "rsa2c", "rsa3", "rsa5c"), context = NULL, userdefined = NULL) {
+    .Deprecated("x13_fast")
+    x13_fast(ts, spec, context, userdefined)
 }
 #' @name deprecated-rjd3x13
 #' @export
-fast_regarima<-function(ts, spec= c("rg4", "rg0", "rg1", "rg2c", "rg3","rg5c"), context=NULL, userdefined = NULL){
-  .Deprecated("regarima_fast")
-  regarima_fast(ts, spec, context, userdefined)
+fast_regarima <- function(ts, spec = c("rg4", "rg0", "rg1", "rg2c", "rg3", "rg5c"), context = NULL, userdefined = NULL) {
+    .Deprecated("regarima_fast")
+    regarima_fast(ts, spec, context, userdefined)
 }