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
68
69
70
71
72
73
74
75
76
77
78
79
|
## RcppTomlPlusPlus -- Rcpp bindings to TOML via cpptomlplusplus
## (based on earlier work in RcppTOML using cpptoml)
##
## Copyright (C) 2015 - 2023 Dirk Eddelbuettel
##
## This file is part of RcppTomlPlusPlus.
##
## RcppTomlPlusPlus is free software: you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 2 of the License, or
## (at your option) any later version.
##
## RcppTomlPlusPlus is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with RcppTomlPlusPlus. If not, see <http://www.gnu.org/licenses/>.
##' Parse a TOML file
##'
##' The function \code{parseTOML}, also aliased to \code{tomlparse} and \code{parseToml},
##' parse TOML content inout. This is usually a file given by its name, or a character variable
##' with a TOML expression.
##'
##' This implementation uses the \sQuote{tomlplusplus} library by Mark Gillar (see
##' \url{https://github.com/marzer/tomlplusplus}) which is TOML 1.0 compliant. In earlier
##' work the package used the \sQuote{cpptoml} library by Chase Geigle (see
##' \url{https://github.com/skystrife/cpptoml} for which development ceased once TOML 0.5.0
##' parity was reached.
##'
##' @param input [character] TOML input, either as chracter value or path to TOML file
##' @param verbose [logical] Optional verbosity flag, no current effect
##' @param fromFile [logical] Optional with default value \sQuote{TRUE} indicating parsing from file
##' @param includize [logical] Optional legacy option, no current effect
##' @param escape [logical] Optional boolean whether strings should be escaped, defaults to
##' \sQuote{TRUE}
##' @param ... Used for aliased function and S3 methods
##' @param x Used for S3 method
##' @param object Used for S3 method
##' @return A list object with the parsed content as an S3 object of class \sQuote{toml}
parseTOML <- function(input, verbose=FALSE, fromFile=TRUE, includize=FALSE, escape=TRUE) {
if (verbose || includize) {
warning("Options 'verbose' and 'includize' are available for legacy ",
"support, have no current effect, and may be removed.")
}
if (fromFile) {
toml <- tomlparseImpl(path.expand(input), fromFile, escape)
} else {
toml <- tomlparseImpl(enc2utf8(input), fromFile, escape)
}
class(toml) <- c("toml", "list")
attr(toml, "file") <- input
toml
}
## alias for now, to be renamed
##' @rdname parseTOML
tomlparse <- function(...) parseTOML(...)
## alias for now, to be renamed
##' @rdname parseTOML
parseToml <- function(...) parseTOML(...)
##' @rdname parseTOML
print.toml <- function(x, ...) {
cat(utils::str(x, give.attr=FALSE)) # convenient shortcut
invisible(x)
}
##' @rdname parseTOML
summary.toml <- function(object, ...) {
cat("toml object with top-level slots:\n")
cat(" ", paste(names(object), collapse=", "), "\n")
cat("read from '", attr(object, "file"), "'\n", sep="")
invisible(NULL)
}
|
