1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
###########################################################################/**
# @RdocDefault typeOfRnw
#
# @title "Checks whether an Rnw file is a Sweave or a knitr file"
#
# \description{
# @get "title".
# }
#
# @synopsis
#
# \arguments{
# \item{filename, path}{The filename and (optional) path of the Rnw file.}
# \item{default}{A @character string specifying the default result.}
# \item{...}{Not used.}
# }
#
# \value{
# Returns a @character string.
# }
#
# @author
#
# \seealso{
# TBA.
# }
#
# @keyword file
# @keyword IO
# @keyword internal
#*/###########################################################################
setMethodS3("typeOfRnw", "default", function(filename, path=NULL, default="application/x-sweave", ...) {
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Validate arguments
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Arguments 'filename' & 'path':
pathname <- if (is.null(path)) filename else file.path(path, filename)
if (!isUrl(pathname)) {
withoutGString({
pathname <- Arguments$getReadablePathname(pathname)
})
}
# Argument 'default':
default <- Arguments$getCharacter(default)
# Read content
bfr <- readLines(pathname, warn=FALSE)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Check for knitr-specific commands
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
if (any(regexpr("opts_chunk$set(", bfr, fixed=TRUE) != -1L)) {
return("application/x-knitr")
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Check for Sweave-specific commands
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
if (any(regexpr("\\SweaveOpts(", bfr, fixed=TRUE) != -1L)) {
return("application/x-sweave")
}
default
}) # typeOfRnw()
|
