Add is_rnw_file()

jonmcalder · jonmcalder · commit 9192714a7eac · 2018-10-16T11:36:45.000+02:00
diff --git a/R/utils.R b/R/utils.R
@@ -84,6 +84,10 @@ is_rmd_file <- function(path) {
   grepl("\\.Rmd$", path, ignore.case = TRUE)
 }
 
+is_rnw_file <- function(path) {
+  grepl("\\.Rnw$", path, ignore.case = TRUE)
+}
+
 is_unsaved_file <- function(path) {
   path == ""
 }

Original file line number	Diff line number	Diff line change
`@@ -84,6 +84,10 @@ is_rmd_file <- function(path) {`
`84`	`84`	`grepl("\\.Rmd$", path, ignore.case = TRUE)`
`85`	`85`	`}`
`86`	`86`
	`87`	`+is_rnw_file <- function(path) {`
	`88`	`+ grepl("\\.Rnw$", path, ignore.case = TRUE)`
	`89`	`+}`
	`90`	`+`
`87`	`91`	`is_unsaved_file <- function(path) {`
`88`	`92`	`path == ""`
`89`	`93`	`}`