Merge pull request #12 from kamapu/devel

Improved documentation for 'write_rmd()'

.Rbuildignore

@@ -12,10 +12,10 @@
 ^examples$
 ^lab$
 ^LICENSE$
-^\.travis\.yml$
 ^codecov\.yml$
 ^_pkgdown\.yml$
 ^docs$
 ^pkgdown$
 ^.*\.Rproj$
 ^\.Rproj\.user$
+^tests$

DESCRIPTION

@@ -21,7 +21,6 @@ Description: Setting layout through 'YAML' headers in 'R-Markdown' documents,
     Functions and methods may summarize 'R' objects in automatic reports, for
     instance check-lists and further reports applied to the packages 'taxlist'
     and 'vegtable'.
-LazyData: true
 SystemRequirements: pandoc (>= 1.14) - http://pandoc.org
 Roxygen: list(markdown = TRUE)
 License: GPL (>= 2)

R/write_rmd.R

@@ -12,8 +12,8 @@
 #' @param object [rmd_doc-class] object used to write an Rmarkdown file. If
 #'     header is missing, `write_rmd()` will fail with an error message.
 #' @param filename A character value with the name of the file to be written.
-#'     If not included, the extension *.Rmd will be appended to this name.
-#'     If missing, no file will be written by this function.
+#'     It is not necessary to include the extension *.Rmd in this argument.
+#'     If missing, the function will use the name of the input object.
 #' @param ... Further arguments passed among methods (not yet used).
 #'
 #' @return
@@ -47,6 +47,9 @@ write_rmd <- function(object, ...) {
 #' @method write_rmd rmd_doc
 #' @export
 write_rmd.rmd_doc <- function(object, filename, ...) {
+  if (missing(filename)) {
+    filename <- paste0(deparse(substitute(object)))
+  }
   filename <- paste0(file_path_sans_ext(filename), ".Rmd")
   con <- file(filename, "wb")
   writeBin(