Merge pull request #284 from krlmlr/no-wrap-authors-r

don't wrap Authors@R field in the DESCRIPTION file

NEWS.md

@@ -4,6 +4,8 @@
   ordering between `devtools::document()` and `devtools::check()` this
   was the cause of that.
 
+* Don't wrap `Authors@R` field in `DESCRIPTION` (@krlmlr, 284).
+
 # roxygen2 4.0.2
 
 * If you don't use `@exports` or other namespace directives, your namespace

R/description.R

@@ -16,15 +16,22 @@ write.description <- function(desc, file = "") {
 # Print the field-value pair to a given file or standard out.
 cat.description <- function(field, value, file='') {
   comma_sep <- any(field %in% c("Suggests", "Depends", "Extends", "Imports"))
-  individual_lines <- field %in% c("Collate")
 
   if (comma_sep) {
     value <- strsplit(value, ",\\s+")[[1]]
     value <- gsub("^\\s+|\\s+$", "", value)
     value_string <- paste("    ", value, collapse = ",\n", sep = "")
     out <- paste(field, ":\n", value_string, sep = "")
   } else {
-    width <- if (individual_lines) 0 else 80
+    width <- 80
+    if (field %in% c("Collate")) {
+      # Individual lines
+      width <- 0
+    } else if (field %in% c("Authors@R")) {
+      # No wrapping
+      width <- Inf
+    }
+
     out <- wrap_field_if_necessary(field, value, wrap.threshold = width)
   }
 

tests/testthat/test-wrapFieldIfNecessary.R

@@ -55,5 +55,11 @@ test_that("DESCRIPTION fields DO NOT get wrapped if no line exceeds the wrapping
   }
 )
 
-
-
+test_that("Infinity threshold turns off wrapping", {
+  poem <- paste(sample(letters, 1000, TRUE), collapse = "")
+  expect_equal(
+    wrap_field_if_necessary("LongPoem", poem, wrap.threshold = Inf),
+    paste("LongPoem:", poem)
+  )
+}
+)