Running examples in 'parsetools-Ex.R' failed
The error most likely occurred in:

> ### Name: get_parse_data
> ### Title: Parse Data
> ### Aliases: get_parse_data parse-data get_parse_data.srcfile
> ###   get_parse_data.srcref get_parse_data.function valid_parse_data
> ###   as_parse_data
> 
> ### ** Examples
> 
>     text <- "    my_function <- function(object #< An object to do something with
+             ){
+         #' A title
+         #'
+         #' A Description
+         print(\"It Works!\")
+         #< A return value.
+     }"
>     source(textConnection(text), keep.source = TRUE)
> 
>     # Get parse data from a function
>     (pd <- get_parse_data(my_function))
   line1 col1 line2 col2 id parent                token terminal
1      1    5     1   15  1      3               SYMBOL     TRUE
3      1    5     1   15  3     40                 expr    FALSE
40     1    5     8    5 40      0                 expr    FALSE
2      1   17     1   18  2     40          LEFT_ASSIGN     TRUE
4      1   20     1   27  4     39             FUNCTION     TRUE
39     1   20     8    5 39     40                 expr    FALSE
5      1   28     1   28  5     39                  '('     TRUE
6      1   29     1   34  6     39       SYMBOL_FORMALS     TRUE
7      1   36     1   68  7     39     RELATIVE_COMMENT     TRUE
9      2   13     2   13  9     39                  ')'     TRUE
11     2   14     2   14 11     36                  '{'     TRUE
36     2   14     8    5 36     39                 expr    FALSE
13     3    9     3   18 13     36      ROXYGEN_COMMENT     TRUE
15     4    9     4   10 15     36      ROXYGEN_COMMENT     TRUE
17     5    9     5   24 17     36      ROXYGEN_COMMENT     TRUE
19     6    9     6   13 19     21 SYMBOL_FUNCTION_CALL     TRUE
21     6    9     6   13 21     27                 expr    FALSE
27     6    9     6   26 27     36                 expr    FALSE
20     6   14     6   14 20     27                  '('     TRUE
22     6   15     6   25 22     24            STR_CONST     TRUE
24     6   15     6   25 24     27                 expr    FALSE
23     6   26     6   26 23     27                  ')'     TRUE
31     7    9     7   26 31     36     RELATIVE_COMMENT     TRUE
34     8    5     8    5 34     36                  '}'     TRUE
                                text
1                        my_function
3                                   
40                                  
2                                 <-
4                           function
39                                  
5                                  (
6                             object
7  #< An object to do something with
9                                  )
11                                 {
36                                  
13                        #' A title
15                                #'
17                  #' A Description
19                             print
21                                  
27                                  
20                                 (
22                       "It Works!"
24                                  
23                                 )
31                #< A return value.
34                                 }
>     # which must have a srcref attribute.
>     # You can call the get_parse data directly on the srcref object.
>     src <- utils::getSrcref(my_function)
>     pd2 <- get_parse_data(src)
> 
>     identical(pd, pd2)
[1] TRUE
> 
>     # Objects must have a srcref.
>     utils::getSrcref(rnorm)
>     tools::assertError(get_parse_data(rnorm), TRUE)
Error: Failed to get error in evaluating get_parse_data(rnorm)
Execution halted