Merge pull request #435 from lorenzwalthert/eol-addin

- Addin fix (#435).

Author: lorenzwalthert

R/addins.R

@@ -33,7 +33,7 @@ style_active_file <- function() {
   }
   rstudioapi::modifyRange(
     c(1, 1, length(context$contents) + 1, 1),
-    paste0(append(out, ""), collapse = "\n"),
+    paste0(ensure_last_is_empty(out), collapse = "\n"),
     id = context$id
   )
   if (Sys.getenv("save_after_styling") == TRUE && context$path != "") {

R/utils.R

@@ -4,6 +4,15 @@ line_col_names <- function() {
   c("line1", "line2", "col1", "col2")
 }
 
+ensure_last_is_empty <- function(x) {
+  has_line_break_at_eof <- x[length(x)] == ""
+  if (has_line_break_at_eof) {
+    return(x)
+  } else {
+    append(x, "")
+  }
+}
+
 #' Check whether two columns match
 #'
 #' @param col1,col2 Column names as string.

README.Rmd

@@ -31,13 +31,13 @@ styler can be customized to format code according to other style guides too.
 
 ## Installation
 
-You can install the package from CRAN: 
+You can install the package from CRAN:
 
 ```{r, eval = FALSE}
 install.packages("styler") 
 ```
 
-Or get the development version from GitHub: 
+Or get the development version from GitHub:
 
 ```{r, eval = FALSE} 
 # install.packages("remotes") 
@@ -106,10 +106,10 @@ style_text(
 
 This was just the tip of the iceberg. Learn more about customization with the
 tidyverse style guide in in this
-[vignette](http://styler.r-lib.org/articles/introducing_styler.html). If this
-is not flexible enough for you, you can implement your own style guide, as 
-explained in the corresponding 
-[vignette](http://styler.r-lib.org/articles/customizing_styler.html)
+[vignette](http://styler.r-lib.org/articles/introducing_styler.html). If this is
+not flexible enough for you, you can implement your own style guide, as
+explained in the corresponding
+[vignette](http://styler.r-lib.org/articles/customizing_styler.html).
 
 ## Adaption of styler
 
@@ -118,21 +118,28 @@ styler functionality is made available through other packages, most notably
 * `usethis::use_tidy_style()` styles your project according to the tidyverse
   style guide.
 * `reprex::reprex(style = TRUE)` to prettify reprex code before printing. To
-  permanently use `style = TRUE` without specifying it every time, you can
-  add the following line to your `.Rprofile` (via `usethis::edit_r_profile()`):
+  permanently use `style = TRUE` without specifying it every time, you can add the
+  following line to your `.Rprofile` (via `usethis::edit_r_profile()`):
   `options(reprex.styler = TRUE)`.
+* you can pretty-print your R code in RMarkdown reports without having styler
+  modifying the source. This feature is implemented as a code chunk option in
+  knitr. use `tidy = "styler"` in the header of a code chunks (e.g. ` ```{r
+  name-of-the-chunk, tidy = "styler"}`), or `knitr::opts_chunk$set(tidy =
+  "styler")` at the top of your RMarkdown script.
+* pretty-printing of [drake](https://github.com/ropensci/drake) workflow data
+  frames with `drake::drake_plan_source()`.
 
 ## Further resources
 
-* The official [web documentation](http://styler.r-lib.org/) of styler, 
-  containing various vignettes function documentation as well as  a change-log. 
-* [Blog 
-  post](https://lorenzwalthert.netlify.com/posts/customizing-styler-the-quick-way/) 
+* The official [web documentation](http://styler.r-lib.org/) of styler,
+  containing various vignettes function documentation as well as a change-log.
+* [Blog
+  post](https://lorenzwalthert.netlify.com/posts/customizing-styler-the-quick-way/)
   about how you can customize styler without being an expert.
 * A [tidyverse.org blog
-  post](https://www.tidyverse.org/articles/2017/12/styler-1.0.0/) introducing
-  the functionality of styler.
-* The wiki of [Google Summer of Code 
+  post](https://www.tidyverse.org/articles/2017/12/styler-1.0.0/) introducing the
+  functionality of styler.
+* The wiki of [Google Summer of Code
   2017](https://github.com/rstats-gsoc/gsoc2017/wiki/Noninvasive-source-code-formatting)
   or the [pkgdown](https://r-lib.github.io/styler/) page contain information
   related to the initial development phase during Google Summer of Code 2017.

README.md

@@ -104,7 +104,7 @@ with the tidyverse style guide in in this
 [vignette](http://styler.r-lib.org/articles/introducing_styler.html). If
 this is not flexible enough for you, you can implement your own style
 guide, as explained in the corresponding
-[vignette](http://styler.r-lib.org/articles/customizing_styler.html)
+[vignette](http://styler.r-lib.org/articles/customizing_styler.html).
 
 ## Adaption of styler
 
@@ -117,6 +117,14 @@ notably
     printing. To permanently use `style = TRUE` without specifying it
     every time, you can add the following line to your `.Rprofile` (via
     `usethis::edit_r_profile()`): `options(reprex.styler = TRUE)`.
+  - you can pretty-print your R code in RMarkdown reports without having
+    styler modifying the source. This feature is implemented as a code
+    chunk option in knitr. use `tidy = "styler"` in the header of a code
+    chunks (e.g. ` ```{r name-of-the-chunk, tidy = "styler"}`), or
+    `knitr::opts_chunk$set(tidy = "styler")` at the top of your
+    RMarkdown script.
+  - pretty-printing of [drake](https://github.com/ropensci/drake)
+    workflow data frames with `drake::drake_plan_source()`.
 
 ## Further resources