parse_text: Parse a character string as if it was a command entered at...

In svMisc: 'SciViews' - Miscellaneous Functions

Description

Parse R instructions provided as a string and return the expression if it is correct, or an object of class 'try-error' if it is an incorrect code, or NA if the (last) instruction is incomplete.

Usage

parse_text(text, firstline = 1, srcfilename = NULL, encoding = "unknown")

parseText(text, firstline = 1, srcfilename = NULL, encoding = "unknown")

Arguments

text	The character string vector to parse into an R expression.
firstline	The index of first line being parsed in the file. If this is larger than 1, empty lines are added in front of text in order to match the correct position in the file.
srcfilename	A character string with the name of the source file.
encoding	Encoding of 'text“, as in parse().

Value

Returns an expression with the parsed code or NA if the last instruction is correct but incomplete, or an object of class 'try-error' with the error message if the code is incorrect.

Note

On the contrary to parse(), parse_text() recovers from incorrect code and also detects incomplete code. It is also easier to use in case you pass a character string to it, because you don't have to name the argument explicitly (text = ...).

See Also

parse(), capture_all()

Examples

parse_text("1 + 1")
parse_text("1 + 1; log(10)")
parse_text(c("1 + 1", "log(10)"))

# Incomplete instruction
parse_text("log(")

# Incomplete strings
parse_text("text <- \"some string")
parse_text("text <- 'some string")

# Incomplete names (don't write backtick quoted names on several lines!)
# ...but just in case
parse_text("`myvar")

# Incorrect expression
parse_text("log)")

Example output

Attaching package: 'svMisc'

The following object is masked from 'package:utils':

    ?

expression(1 + 1)
expression(1 + 1, log(10))
expression(1 + 1, log(10))
[1] NA
[1] NA
[1] NA
[1] NA
[1] "1:4: unexpected ')'\n1: log)\n       ^"
attr(,"class")
[1] "try-error"
attr(,"error")
<simpleError in "log)": 1:4: unexpected ')'
1: log)
       ^>

svMisc documentation built on Oct. 12, 2021, 1:08 a.m.