Extract special and operators from R code

punctuation.R

path <- #path to pkg
scripts <- fs::dir_ls(file.path(path, "R"))

parse_one <- function(filename) {
  filename |>
    brio::read_lines() |>
    purrr::discard(function(x) grepl("^#'", x)) |>
    glue::glue_collapse(sep = "\n") |>
    downlit::highlight(classes = downlit::classes_pandoc(), code = TRUE, pre = "bla") |>
    xml2::read_html() |>
    xml2::xml_find_all("//span[@class='op' or @class='kw']") |>
    xml2::xml_text() |>
    paste0(collapse = " ")
}

purrr::map_chr(scripts, parse_one) |>
    paste0(collapse = " ")

vcr https://github.com/ropensci/vcr

<- function ( ) UseMethod ( ) <- function ( ) { stop ( ( ) = ) } <- function ( ) <- function ( ) { ( ) [[ ] ] } <- function ( ) ( ) <- function ( ) ( ) <- function ( ) UseMethod ( ) <- function ( ) { if ( ( ) ) { ( = ) } else { stop ( = ) } } <- function ( ) ( ( ) [[ ] ] ) <- R6Class ( = ( = = = = = = = = = ( ) = = = = = = = = = = ( ) = = = = = = function ( ) { $ <- $ <- ( ) $ $ <- %||% $ ( $ ) $ <- %||% $ if ( ! ( ) ) { $ <- ( ) } $ ( ) <- switch ( $ = = ) $ <- ( ( ( ) ) $ ) if ( ! ( $ ) ) ( = $ ) if ( ! ( ) ) { $ <- ( ) } if ( ! ( ) ) $ <- if ( ! ( ) ) $ = if ( ! ( ) ) $ = if ( ! ( ) ) { ( ) $ = } if ( ! ( ) ) { ( ) $ = } if ( ! ( ) ) $ = if ( ! ( ) ) $ = if ( ! ( ) ) { ( ) $ <- } if ( ! ( ) ) { $ <- } $ ( ) if ( ! ( $ ) ) $ ( ) $ <- ( $ ( ) ) $ $ = ( $ $ ) $ = ( $ $ $ ) if ( $ ( ) ) $ <- $ ( ) <- $ ( ) if ( ( ) > ) { <- function ( ) { <- $ <- $ <- ( $ ) <- $ <- function ( ) { <- function ( ) { <- ( ) [ %in% ] } <- ( ) <- ( %in% $ ) <- ( ( ( ) ) ( %in% $ ) ) if ( %in% ( ) ) { <- ( = = ) } else { <- ( = = ) } <- ( ) if ( %in% ) { [[ ] ] <- $ } if ( %in% ) { [[ ] ] <- $ } if ( %in% ) { [[ ] ] <- $ } if ( ( ) != ) ( = ) } ( ) } ( ( ) ) } <- ( $ $ $ $ $ $ $ $ ) <- ( ( ( ) ) ) $ <- <- ( ( ) ( ) = = ) ( ( ) $ $ ) $ <- ( ) if ( ! ( $ ) ) ( $ = = ) ( ) } = function ( ) { ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ) } = function ( ) { <- ( ) if ( ( ) == ) { stop ( ) } ( ( ) ) } = function ( ) { ( $ ( ) ) $ ( ) ( = $ = ) if ( ! $ ) ( $ ) ( = $ ) $ <- return ( ) } = function ( ) $ = function ( ) { if ( $ == ) { return ( ) } else if ( $ == ) { return ( $ ( ) ) } else { return ( ) } } = function ( ) { ( $ ( ) ) < } = function ( ) { ( $ = ) } = function ( ) { ( = $ ( ) = ( ) ) } = function ( ) { $ ( ) } = function ( ) { <- $ ( ) <- ( function ( ) { $ ( = $ = $ = $ ) } ) if ( $ ( ) ) { <- $ ( $ $ ) <- ( function ( ) { <- $ ( ) $ ( $ ) ! ( $ ( ) ) } ) } return ( ( $ ( ) $ ) ) } = function ( ) { if ( ! $ && ( $ ) ) { return ( ) } ( function ( ) { ( $ = ) > ( ( ( ) = ) - $ ) } ) } = function ( ) { if ( ( $ ) ) return ( ) if ( ( $ ( ) ) ) return ( ) <- ( ( ) = ) <- ( $ ( ) + $ ) < <- ( $ ( ) $ ) if ( ! ) { ( ( ) $ $ ) return ( ) } else if ( ( ) ) { ( ( ) $ $ ) return ( ) } else { ( ( ) $ $ ) return ( ) } } = function ( ) { $ != } = function ( ) { $ == } = function ( ) $ $ = function ( ) { <- $ ( ) if ( ( ) ) return ( ) <- ( ) %||% ( = ) } = function ( ) { ( ( $ ) = = ) } = function ( ) { <- $ $ ( ) if ( ( ) ) { return ( ) } else { stop ( = ) } } = function ( ) { if ( ( $ ( ) ) > ) { <- ( ( $ ( ) [[ ] ] function ( ) { <- $ ( $ $ $ $ $ $ $ = $ = $ $ $ ) if ( $ ) $ ( ) <- $ ( = $ ( $ $ $ $ $ $ $ $ $ = $ $ $ ) = ) <- $ ( ) if ( $ ( $ ) ) else } ) ) return ( ) } else { return ( ( ) ) } } = function ( ) { if ( ! $ ( ) ) return ( ) <- $ ( ) if ( ( [[ ] ] ) == ) return ( ) <- $ $ ( ) ( [[ ] ] $ $ $ ) } = function ( ) { <- $ ( ) $ $ ( $ ) ( ( ( $ ) ( $ ) ) $ $ ) $ <- ( $ ) } = function ( ) { ( $ ) != } = function ( ) { $ <- ( = $ = $ = $ = $ = $ = $ = $ = $ = $ = $ = $ = $ ) } = function ( ) { <- ( = $ $ ) for ( in ( ) ) { ( ( ( [ ] ) [ ] ) = ( ( ( ) ) $ ) = = ) } } = function ( ) { $ <- $ ( = { if ( $ ( ) ) { $ ( ) } else { ( ) } } = $ ) } = function ( ) { ( ( $ ) ( ) ) <- <- if ( ( $ ) ) { if ( ( $ ) ) { <- <- $ if ( ( ) ) stop ( ) <- ( ( $ ) ) } } <- $ ( = $ $ = $ = if ( ( ) ) { <- ( $ ) if ( ( ) ) ( ) else } else { ( $ ) } = if ( ( ) ) { ( $ $ ) } else { $ } = $ = ) <- $ ( = if ( ( ) ) { ( ( = $ ) ( ) ) } else ( $ ( ) ) = if ( ( ) ) $ else $ = if ( ( $ ) ) { if ( ( $ ) ) ( $ ) else $ } else { ( ( ( $ ) ) ) if ( ( $ ) ) { ( $ = = ) } else { $ } } = if ( ( ) ) { $ [[ ] ] $ } else { $ $ } = $ = ) if ( $ ) $ ( ) $ ( = = ) } = function ( ) { if ( ( $ ( ) ) != ) { <- $ ( ) [[ ] ] [[ ] ] } else { <- tryCatch ( $ ( ) [[ ] ] = function ( ) ) if ( ( ) ) { <- tryCatch ( $ [[ ] ] = function ( ) ) if ( ( ) ) { stop ( ) } } } <- $ ( = $ $ = $ $ = ( = $ $ %||% = $ $ %||% = = ) ) <- $ ( ) $ ( $ $ ) <- $ $ $ ( if ( %in% ( ) ) $ else ) $ ( $ $ ) $ ( $ $ ) $ ( = $ $ $ %||% ) ( ) } ) = ( = function ( ) { if ( ! ( ( ( $ ( ) ) ) ) ) { ( $ ( ) = ) if ( $ ) warning ( ( $ ) = ) } } ) ) <- function ( ) { ( ( ) ) } <- function ( = = ) { if ( ) { <- ( ( ( ( ) = ) ( ) ) ) [ ! ( ( ) ) ] } else { ( ) } } <- function ( ) { <- ( ( ) ) if ( ( ) == ) return ( ( ) ) <- if ( ( ) == ) [[ ] ] else return ( ) } <- function ( ) $ <- function ( ) %in% ( ) <- function ( = ) { <- ( ) if ( ! ( ) | ! %in% ( ) ) { if ( ) ( ) return ( ( ) ) } else { ( $ [[ ] ] = ) } } <- function ( ) { <- ( ( ( ( ) ) = ) ) ( ( ( ( function ( ) ( ) $ ) ) ) ) } <- function ( ) { <- ( ( ) ) ( ) ( = ) } <- function ( ) { if ( %in% ( ) ) ( ) [[ ] ] } <- function ( ) ( ( ) ) <- function ( ) { <- ( ) if ( ( ) == ) return ( ) ( ( ) ) } <- function ( ) { <- ( ( ( ( ) ) = = ) ) <- switch ( $ = = ) ( ( ( ( ) ) = ) ) } <- function ( ) { <- ( ) if ( ( ) == ) return ( ( ) ) ( ( ( ) ) ) } <- function ( ) { if ( ( ) ) ( = = ) } <- function ( ) { <- ( = ) if ( ( ) > ) { ( ( = ) ) } else { ( ) } } <- function ( ) { ( $ = ) } <- function ( = = = ) { ( ) <- ( = = ) if ( ( ) == ) return ( ) <- function ( ) { <- ( = ) <- ( ) ( ) = <- ( ( [ $ == ] ) ) + ( [ ] ) } <- ( ( ) ) <- ( ( ) ) if ( ! ( ) ) { <- [ ! %in% ] } if ( ( ( ) ) ) { <- ( [ ( ) ] ) <- ( ) for ( in ( ) ) { <- ( function ( ) [ ] %in% ) [ ] <- ( [ ] ( ( ( [ ( ) ] ) ) = ) ) } <- ( ( ( = ) ) ) switch ( = stop ( = ) = warning ( = = ) ) } } <- function ( ) { <- ( ) <- ! ( ) %in% $ ( ) if ( ( ) ) { warning ( ( [ ] ) = ) <- [ ! ] } if ( ( ) == ) return ( ) <- $ <- $ %||% if ( ! ( ) || ) { <- $ ( ) if ( ! ( ) ) $ ( = ) if ( ) $ ( ) } for ( in ( ) ) { [[ ( ) [ ] ] ] <- [[ ] ] } return ( ) } <- function ( ) $ ( ) <- function ( ) <- function ( ) $ ( ) $ ( ) <- R6Class ( = ( = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ) = ( = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) <- ( ) if ( ( ) > ) { if ( %in% ( ) ) { ( $ ) if ( $ ) ( $ ) } if ( %in% ( ) ) { ( $ ) } if ( %in% ( ) ) { ( $ ) } } <- ( ( = = = ) ) $ <- } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) if ( ( ) ) <- ( ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) if ( ( ) ) <- ( ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) if ( ( ) ) <- ( ) ( function ( ) { if ( ! ( ) %in% : ) stop ( = ) } ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) $ <- } = function ( ) { <- ( ) if ( ( ) && ( ) ) return ( $ ) <- %||% $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } = function ( ) { if ( ( ) ) return ( $ ) $ <- ( ) } ) = ( = function ( = = = ( ) = = = = = = = = = = = = = = ( ) = = = ( = = = ) = = = = = = = = = ) { $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ <- $ = $ = $ = $ <- $ <- $ <- $ <- } = function ( ) $ ( ) = function ( ) ( ( ) ) = function ( ) { ( ( ( ) ) $ ( ) ) } = function ( ) { ( = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ( ( $ ) ) = ) ( ( $ ) = ) <- if ( $ ) ( $ $ ) else ( ( $ ) = ) ( ( ( $ ) ) = ) ( ( $ ) = ) ( ( $ ) = ) ( ) } ) ) <- function ( ) ( = ) <- function ( ) { <- <- ( ) if ( != ) { <- ( ) ( ) } } <- function ( ) { ( = ) } <- function ( = = ( ) = ) { ( ( ) = ) if ( ( ) ) { <- ( ) if ( ( ) == ) ( ) } else { if ( ! ( ) ) ( ) <- ( ) [[ ] ] if ( ( ) ) ( ) } $ ( ) } <- ( = ( = ( ) = ) = ( = ( ) = ) = ( = ( ) = ) = ( = ( ) = ) = ( = ( ) = ) = ( = ( ) = ) = ( = ( ) = ) = ( = ( ) = ) = ( = ( ) = ) ) <- R6Class ( = ( = = = function ( ) { ( ) $ <- $ <- ( ) } = function ( ) { <- if ( ! ( $ ) && ! ( $ ( ) ) ) { if ( $ $ %in% ( ) ) { <- } } else { if ( ( $ ( ) ) ) <- } if ( ) $ ( ) return ( ( ) ) } = function ( ) { $ <- ( ) $ $ <- $ ( ) $ $ <- $ ( ) $ $ <- $ ( ) <- ( ( ( ( ) = ) $ ( ) if ( $ ) $ ( ) else $ ( ) if ( $ ) $ $ else $ ( ) ( ( ) = ) ) = ) <- ( ) ( ( = ) ) ( = ) stop ( = ) } = function ( ) { <- ( ) <- ( ( ( $ $ ) ( $ $ ) = ) ) if ( $ ( ) ) { <- ( ( ( $ ( ) ) ) ) } if ( $ ( ) ) { <- ( ( $ $ ) ) } ( = ) } = function ( ) { if ( ( ( ) ) > ) { ( ) $ } else { ( ) $ } } = function ( ) { %in% $ ( ) } = function ( ) { %in% $ ( ) } = function ( ) { <- ( function ( ) { ( ) } ( $ $ ) $ $ ) ( = ) } = function ( ) { if ( ( ( ) ) > ) { <- $ ( ) <- ( ( ) = ) ( ) } else { ( ( ) = ) } } = function ( ) { if ( ( ( ) ) > ) { <- ( ) <- if ( ( ( ) ) == ) { } else { } <- ( ) <- ( ( $ $ ( ) %try% ) ( $ $ ) ( ( $ $ = ) ) ) ( ( ) = ) } else { ( ( ) = ) } } = function ( ) { <- if ( ( ) ) else ( ( ) ) } = function ( ) { <- ( ) <- $ ( ) <- ( function ( ) { <- ( $ ( $ ) ) <- $ ( $ ) ( = = ) } ( ) - ) ( ( ( ) ( ) ) = = ) } = function ( ) { [ ] <- ( [ ] ) [ ( ) ] <- ( [ ( ) ] ( + ) ) ( = ) } = function ( ) { ( + ) } = function ( ) { [[ ] ] } = function ( ) { if ( ( ( ) ) == ) { return ( $ ( ) ) } <- ( ) <- ( $ ( ) ) if ( $ ( ) ) <- ( ) <- ( $ ) ( ( ( $ ( ) ) ) ) } = function ( ) { <- ( ) ( $ ) } = function ( ) { <- ( ( ( ) function ( ) $ ) ) if ( ( == ) ) { } else if ( ( == ) ) { } else { ( ) } } = function ( ) { ( ( ( ) function ( ) { $ ( ) $ $ ( $ ) %||% } ( ) ) ) } = function ( ) { <- ( ( ( ) function ( ) { $ ( ) $ $ ( ) } ( ) ) ) if ( == ) return ( ) <- if ( == ) { } else { ( ) } <- $ ( ) <- $ <- $ [ ] <- ( [ ] ) ( = ( = ) = ) } ) ) <- function ( ) { if ( ( $ ) || ( $ ) == ) { stop ( = ) } ( ( ( ( ( ) = ) $ $ $ $ $ $ ( ( ) = ) ) = ) ) } <- function ( ) { <- function ( ) { if ( ! ( ) ) { if ( ( ( ) ) ) <- ( ) if ( ! ( ( ) ) ) <- ( ( [ ! ( ( ) ) ] ) ) <- ( ) for ( in ( ) ) { <- ( function ( ) { [[ ] ] $ [[ [ ] ] ] <- return ( ) } ) } <- [ ( ( ) ) ] if ( ( ) ) { for ( in ( ) ) { <- ( function ( ) { if ( ( ) [ ] %in% ( [[ ] ] $ ) ) { [[ ] ] $ [[ ( ) [ ] ] ] <- [[ ] ] } return ( ) } ) } } } return ( ) } <- ( $ ) ( $ ) } <- function ( ) { <- $ if ( ! ( ) ) { if ( ( ( ) ) ) <- ( ) if ( ! ( ( ) ) ) <- ( ( [ ! ( ( ) ) ] ) ) <- ( ) for ( in ( ) ) { <- ( function ( ) { $ $ <- ( $ $ [ ] ) return ( ) } ) } <- [ ( ( ) ) ] if ( ( ) ) { for ( in ( ) ) { <- ( function ( ) { <- [[ ] ] <- if ( ( ) == ) [ ] else [ ] $ $ <- ( $ $ ( ) [ ] ) return ( ) } ) } } } return ( ) } <- function ( ) { <- $ if ( ! ( ) ) { <- [ ( ( ) ) ] if ( ( ) ) { for ( in ( ) ) { $ <- ( $ function ( ) { <- [[ ] ] if ( ( ) == ) { $ $ <- ( $ $ ( ) [ ] [ ] [ ] ) } else { $ $ <- ( $ $ ( ) [ ] ) } return ( ) } ) } } } return ( ) } <- function ( ) { <- $ if ( ! ( ) ) { if ( ( ( ) ) ) <- ( ) if ( ! ( ( ) ) ) <- ( ( [ ! ( ( ) ) ] ) ) <- ( ) for ( in ( ) ) <- ( [ ] ) <- [ ( ( ) ) ] if ( ( ) ) { for ( in ( ) ) { <- [[ ] ] if ( ( ) == ) { <- ( ( ) [ ] [ ] [ ] ) } else { <- ( ( ) [ ] ) } } } } return ( ) } <- function ( ) { ( ( ) ( ( ) ) = = ) } <- function ( ) { $ <- ( $ ) <- ( ) ( ) } <- function ( ) { ( ) ( = ( ) == ) <- ( ) $ [[ ] ] <- ( ) } <- function ( ) { ( ) ( = ( ) == ) <- ( ) if ( ! ( $ ) ) return ( ) if ( ( $ [[ ] ] ) ) return ( ) $ [[ ] ] <- ( ) } <- function ( ) { ( ) ( = ( ) == ) <- ( ) if ( ! ( $ ) ) return ( ) if ( ( $ [[ ] ] ) ) return ( ) $ [[ ] ] <- ( $ [[ ] ] ) ( ) } <- function ( ) { <- if ( ( ) ) { <- warning ( ( ) = ) } return ( ( ) ) } <- function ( ) { if ( ! ( $ ) ) { <- $ for ( in ( ) ) { <- ( ( ) [ ] [[ ] ] = ) } } return ( ) } <- function ( ) { <- $ if ( ! ( ) ) { for ( in ( ) ) { if ( ( [[ ] ] ) > ) { <- ( [[ ] ] ( ) [ ] ) <- ( ( ) [ ] = ) } } } <- $ if ( ! ( ) ) { for ( in ( ) ) { if ( ( [[ ] ] ) > ) { <- ( [[ ] ] ( ) [ ] = ) } } } return ( ) } <- R6Class ( = ( = ( ) = function ( ) { $ [[ ] ] ( ) } = function ( ) { $ <- ( ) } = function ( = ) { $ ( if ( ) else ) } ) = ( = function ( ) { <- $ ( ) $ [[ ] ] <- $ ( = = = ) } ) ) <- R6Class ( = ( = ( ) = function ( ) { ( ) <- $ [[ ] ] <- return ( $ [[ ] ] ) } ) ) <- R6Class ( = ( = = = = function ( ) { if ( ! ( ) ) $ <- if ( ! ( ) ) $ <- $ <- ( ) } = function ( ) { ( = $ $ ( ) = $ $ ( ) = $ ) } = function ( ) { $ ( $ ( ) $ ( $ ) $ ( ) $ ( $ ) $ ) } ) ) <- R6Class ( = ( = function ( ) = function ( ) = function ( ) = function ( ) ) ) <- R6Class ( = ( = = = = $ ( ) = ( ) = function ( = = $ ( ) = ( ) ) { $ <- $ <- $ <- $ <- $ <- <- ( function ( ) { ( ( $ ( ) $ ( $ ) ) ( $ ( ) $ ( $ ) ) ) } ) ( ( ( $ = ) ( ) ( = ) ) $ $ ) } = function ( ) { <- $ ( ) if ( ( ) > ) { <- [ ] <- $ [[ ] ] $ <- ( $ ) $ <- ( $ ( ) ) ( ( ( $ ( ) $ ( ) ) ( $ ( ) $ ( $ ) ) ) $ $ ) $ } else { <- $ ( ) if ( ) { $ } else { $ $ ( ) } } } = function ( ) { $ ( ) || $ ( ) || $ $ ( ) } = function ( ) { ( $ function ( ) { $ ( ) } ) } = function ( ) { ( $ ) } = function ( ) { if ( ! $ ( ) ) return ( ) <- ( $ function ( ) { ( ( $ $ ) ( $ ) ) } ) ( $ $ ) stop ( = ) } ) = ( = function ( ) { ( $ ) > } = function ( ) { <- ( ) <- while ( ! ( ) && < ( $ ) ) { <- + <- $ ( $ [[ ] ] ) <- ( ) } return ( ) } = function ( ) { ( $ ( ) ) } = function ( ) { ( $ ( ) ) } = function ( ) { if ( ! $ ) return ( ) if ( ( $ ) == ) return ( ) <- <- while ( ! ) { <- + <- $ ( $ [[ ] ] ) } if ( ) $ [[ ] ] else } = function ( ) { <- $ $ if ( ( ( ) ) > ) { if ( %in% ( ) ) <- $ } <- $ ( $ $ $ $ $ $ ) ( ( ( ) ( ) ( $ = ) ) $ $ ) ( ( ( $ function ( ) { <- $ ( ) $ [[ ] ] <- $ ( ) <- if ( ) else ( ( ( $ ) ( $ ) ) $ $ ) return ( ) } ) ) ) } = function ( ) { ( $ $ ) } = function ( ) { ( $ $ ( ( ( $ ) ) ) ) } ) ) <- function ( ) { ( ( ) ) ( ( ) ) [ - ] } <- function ( ) { ( ( ) ) ( ( ) ) ( ) } <- function ( ) { <- tryCatch ( ( ) = function ( ) ) if ( ! ( ) ) return ( $ ) $ ( ) } <- ( ) <- function ( = = = = = = = = = ) { ( ) ( ) if ( ( ) ) { if ( ( %in% ( ( ) ) ) ) { stop ( ( ) ) } ( = $ ) ( $ ( ) ) $ <- <- $ ( = %||% $ = %||% $ = = = %||% $ = %||% $ = %||% $ = %||% $ = %||% $ = = = = ) return ( ) } else if ( ! $ ) { <- stop ( ) } else { return ( ) } } <- function ( = ) { ( = ) ( ( ) ) ( ) } <- function ( ) { $ <- } <- function ( ) { ! $ } <- function ( = ) { <- tryCatch ( ( ) = function ( ) ) if ( ! ( ) ) { if ( ( ) != ) { stop ( ( $ ) = ) } } $ <- ( ) $ <- } <- <- function ( ) { ( ) ( ) ( ) } <- function ( ) tryCatch ( = function ( ) ) <- function ( ) { if ( ! ( ) || ( ) != || ( ( ) ) ) stop ( ( ) = ) } <- function ( ) { <- <- ( ) if ( != ) { <- ( ) ( ) $ <- $ <- } } <- function ( ) { <- <- ( ) if ( != ) { <- ( ) ( ) $ <- } } <- function ( ) { <- <- ( ) if ( != ) { <- ( ) ( ) $ <- } } <- ( ) <- function ( = ) { ( ) ( ) if ( != ) { if ( ! ( ) ) { ( ) } else if ( ( ) && ) { ( ) ( ) } else { stop ( ) } } $ <- return ( ) } <- function ( = ) { if ( ) <- ( ( ( ) ) ) <- ( ( ) ) ( ) } <- function ( ) { ( $ $ $ %||% ) } <- function ( ) { if ( $ ) { if ( ( $ ) ) { stop ( ) } if ( $ == ) { ( = = ) } else { ( = = $ = ) } } } <- function ( ) { if ( ( ) ) else ( ) } <- function ( ) { <- ( ) <- ( ( ) = ) <- ( ) if ( ( ) == ) else } <- function ( ) { ( = ) || ( = ) } <- function ( ) { <- ( ) <- [ ( ( ) ) ] if ( ( ) == ) else } <- function ( ) { ( ( = ) ) ( ) $ } <- function ( ) { ( ( = $ ) ) ( ) $ } <- function ( ) { if ( %in% ( ) ) { [[ ] ] } else { } } <- function ( ) { <- ( ) <- ( ) if ( ! ( $ ) ) { $ <- ( ( $ ) [[ ] ] function ( ) { <- ( = ) [[ ] ] ( ( [ ] [ ] ) ) } = ) } } <- <- <- <- <- <- <- <- <- function ( ) { <<- ( ) $ <<- $ <<- $ <<- ( ) $ <<- <<- $ ( ) <<- $ ( ) <<- $ ( ) <<- $ ( ) } <- function ( ) { <<- $ ( ) <<- $ ( ) <<- ( ) ( ) } <- R6Class ( = ( = = = = = = function ( = = = = = ) { $ <- $ <- $ <- $ <- $ <- if ( ( ) ) ( ) else if ( $ ) $ ( $ $ ) } = function ( = ) { <- if ( ( ) ) $ else if ( ( ) ) stop ( = ) <- $ ( $ ) if ( ! ( ) ) stop ( = ) ( ) } = function ( ) { if ( ( $ ) ) stop ( = ) <- $ ( $ $ ) if ( ! ( ) ) return ( ) if ( ( ( ) ) ) { return ( ) } else { return ( ) } } = function ( = ) { <- if ( ( ) ) $ else if ( ( ) ) stop ( = ) <- $ ( $ ) <- ( ) if ( ! ( ) ) { ( = = ) } ( ( ) = ) } ) = ( = function ( ) { $ } = function ( ) { if ( ( $ ) ) { } else { ( ( ) ) } } ) ) <- R6Class ( = ( = ( ) = = function ( = ( ) = ) { $ <- $ <- $ ( ) } ) = ( = function ( ) { if ( ! $ %in% ) { stop ( ( $ ) = ) } $ <- switch ( $ = ) } ) ) <- function ( = ) { <- $ ( = ) <- $ $ ( = ) } <- function ( ) { ( ( $ ) = ) ( ( if ( ! ( $ ) ) $ ) = ) ( ( if ( ! ( $ ) ) $ ) = ) } <- function ( ) { <- tryCatch ( ( ) = function ( ) ) if ( ! ( ( ) ) ) return ( ( ) $ ( ) ) if ( ( ( ) ) ) return ( ) ! ( $ || ! ( ) ) } <- R6Class ( = ( = = = = = = = = = = = = = = = function ( ) { if ( ! ( ) ) $ <- ( ) if ( ! ( ) ) { if ( ( ) ) { <- ( ( ) = = ) } $ <- } if ( ! ( ) ) $ <- if ( ! ( ) ) { if ( ! $ ) { $ <- $ ( ) } else { $ <- } <- ( ( = $ ) ) ( $ ) $ <- $ $ <- $ $ <- $ $ <- $ } if ( ! ( ) ) $ <- if ( ! ( ) ) $ <- if ( ! ( ) ) $ <- if ( ! ( ) ) $ <- } = function ( ) { $ <- ( = $ = $ = ( $ $ $ %||% ) = $ = $ ) return ( $ ) } = function ( ) { $ ( = [[ ] ] = [[ ] ] = ( [[ ] ] ) = [[ ] ] = [[ ] ] ) } ) = ( = function ( ) { if ( ( ) ) return ( ) <- $ ( ) if ( ( $ if ( ( $ ) ) else $ ) %in% ( ) ) { return ( ) } $ <- return ( ( ) ) } = function ( ) { ( ) } ) ) <- function ( = ) { if ( ( ) ) return ( ) if ( ) { if ( ( ) ) { <- ( ( ) ) <- } else { <- <- } ( = ) } else { } } <- function ( ) { if ( ( ) ) <- if ( ( ! ( ( ) ) && ( ) ) || ( ( ) ) ) { <- ( ) <- tryCatch ( ( ) = function ( ) ) if ( ( ) ) { } else { } } else { ( ( ) ) } } <- function ( ) { if ( ( ) ) stop ( ) <- tryCatch ( ( ) = function ( ) ) if ( ( ) ) else } <- function ( ) { if ( ( ) ) return ( ) <- tryCatch ( ( ) = function ( ) ) if ( ! ( ) ) return ( ) <- ( = ) [[ ] ] ( ( ) ) } <- function ( ) { <- tryCatch ( ( ) = function ( ) ) if ( ( ) ) else } <- <- function ( ) { if ( == ) return ( ) return ( ) } <- R6Class ( = = ( = function ( ) { $ ( $ ( ) $ $ ( ) $ $ $ $ ) } = function ( ) { <- ( $ ) <- ( $ ) return ( ) } = function ( ) { ( $ ( ) ) } = function ( ) { <- ( $ ) <- ( $ ) $ <- $ ( ) <- tryCatch ( ( ) = function ( ) ) if ( ( ) ) stop ( ) $ ( ) return ( ) } ) ) <- R6Class ( = = ( = function ( ) { $ <- $ <- { $ ( $ $ ( ) $ = $ = $ ) } $ <- tryCatch ( ( ) = function ( ) ) } ) = ( = function ( ) { $ ( ( ( = $ ) ( ) ) $ ( = ) $ [[ ] ] $ $ $ ) } = function ( ) { ( ) ( ( ) = ) <- ( ( = ( $ ) ) ) ( $ = ( ) ( $ ) ( $ ) ) $ <- $ ( ) return ( ) } = function ( ) { ( $ ( ) ) } = function ( ) { ( ) ( ( ) = ) <- ( ( = ( $ $ ) ) ) ( $ $ = ( $ ) ( $ $ ) ( $ $ ) if ( ! ( $ $ $ ) ) ( $ $ $ ) ) <- ( $ ) $ <- $ ( ) <- tryCatch ( ( ) = function ( ) ) if ( ( ) ) stop ( ) $ ( ) return ( ) } ) ) <- R6Class ( = ( = = = = = = function ( ) { $ <- $ <- { $ ( $ $ $ %||% $ ( ) %||% $ = ! ( $ $ ) ) } $ <- tryCatch ( ( ) = function ( ) ) } = function ( ) { ( ( $ ( $ ) $ ( ) ) $ $ ) <- $ ( ) <- ( ) ( ( $ ( $ ) ) $ $ ) ( ( = ) ) ( $ ) } ) = ( = function ( ) { <- if ( ! ( $ ( ) ) && ! ( $ ) ) { $ $ } else { $ } ( $ ( ) $ ( ) ) } = function ( ) { if ( $ ( ) ) { } else if ( $ ( $ ) ) { } else if ( $ ( $ ) ) { } else if ( ( ) ) { } else { } } = function ( ) = function ( ) { $ ( ) } = function ( ) { <- ( ) if ( ( $ ) == ) return ( ) $ ( ) } = function ( = ) ! ( ) = function ( ) { $ <- ( ) $ ( ) $ } = function ( ) = function ( ) { } = function ( ) { } = function ( ) { } = function ( ) { <- $ ( ) $ ( ) } ) ) <- R6Class ( = ( = ( ) = ( ) = function ( ) { $ ( ) $ ( ) } = function ( ) { <- function ( ) { if ( ( $ $ ) ) return ( ) <- ( $ ) $ %||% if ( ( ) ) return ( ) if ( ! ( $ ) ) $ ( $ ) if ( $ ) $ ( ) $ $ ( ) } $ ( = = ) } = function ( ) { $ $ ( $ ) } = function ( ) { $ ( ) } = function ( ) { $ $ ( ) } = function ( ) { if ( ( ) ) stop ( ) $ ( = = ) } ) = ( = function ( ) { $ <- $ ( ) } ) ) <- R6Class ( = ( = ( ) = function ( ) { <- $ if ( ( ) == ) else ( = ) ( ( ( = ) ) = ) ( ) } = function ( ) { $ <- ( ( $ ) ) } = function ( ) { %in% $ } = function ( ) { $ <- ( ( ) $ ) } ) ) <- R6Class ( = ( = = = function ( = ( ) = ( ) ) { $ <- $ <- $ ( ) } = function ( ) { if ( %in% $ ) { warning ( ( ) ) } $ [[ ] ] <- $ ( = ) } = function ( ) { $ ( function ( ) $ == $ ) $ ( function ( ) ( $ ) == $ ) $ ( function ( ) ( $ $ ) ) $ ( function ( ) ( $ $ ) ) $ ( function ( ) ( $ $ ) ) $ ( function ( ) ( ( $ ) ( $ ) ) ) $ ( function ( ) ( $ $ ) ) $ ( ) } = function ( ) { if ( ! ( = ) ) { stop ( = ) } $ ( function ( ) { <- tryCatch ( ( ( $ ) ( $ ) ) = function ( ) ) if ( ( ) ) else } ) } ) ) <- R6Class ( = ( = = function ( ) $ <- = function ( ) $ ( ) ) ) <- function ( = ) { ( ( ) ) ( ( ) ) <- ( $ $ ) if ( %in% ) { <- ( ( $ ) ) } if ( %in% ) { <- ( $ ) } ( = ) } <- function ( ) { ( ( ) ) if ( ( $ ( ) ) ) { <- $ $ } else if ( ( $ ( ) ) ) { <- $ } else { <- } <- if ( ( $ ) ) else $ ( %||% ( ( = ) ) ) } <- R6Class ( = ( = = = = = = = = = function ( = ) { if ( ! ( ) ) $ <- if ( ! ( ) ) $ <- if ( ! ( ) ) { if ( ( ) ) { <- ( ( ) = = ) } $ <- if ( ( ) ) ( ) else } if ( ! ( ) ) { $ <- ( ) } if ( ! ( ) ) $ <- if ( ! ( ) ) $ <- if ( ! ( ) ) $ <- } = function ( ) { $ <- ( = $ = $ = ( $ $ $ %||% ) = $ = $ ) return ( $ ) } = function ( ) { $ ( [[ ] ] [[ ] ] ( [[ ] ] ) [[ ] ] [[ ] ] [[ ] ] ) } = function ( ) { if ( ! ( $ ( ) ) ) { <- if ( ( $ ) > && ( $ ) > ) { <- ( ( $ ) ) } $ ( ) } } = function ( ) { $ [[ ] ] } = function ( = ) { $ [[ ] ] <- } = function ( ) { $ [ ] <- } = function ( ) { $ ( ) [ ] } = function ( ) { $ ( ) %in% ( ) } ) ) <- function ( ) { if ( ! ( ) ) return ( ) if ( ( ) ) { ( ( ) ) [[ ] ] [ ] %||% } else { return ( ) } } <- function ( ) { <- $ ( = $ = $ = ( = $ %||% = $ %||% = = = $ ) ) <- $ ( ) $ ( $ ) <- $ $ ( if ( %in% ( ) ) $ else $ %||% ) $ ( $ = ) $ ( $ = ) $ ( = $ $ %||% ) ( ) } <- function ( ) { if ( ( ) ) return ( ) ( ) return ( ) } <- function ( ) { <- $ ( = $ = $ = ( = $ %||% = $ %||% = = = $ = $ %||% = $ %||% ) ) <- $ ( ) $ ( $ ) <- $ if ( %in% ( ) && ( $ ) ) { <- if ( $ ) { ( $ = ) } else { $ } } $ ( $ %||% ) $ ( $ = ) $ ( $ = ) $ ( = $ $ %||% ) ( ( ) ) } <- function ( ) { <- ( ) [ ! ( ( ) = ) ] } <- function ( ) { if ( ( ) == ) $ <- if ( ( ) == ) $ <- if ( ! ( ) %in% ( ) ) $ <- ( ) return ( ) } <- function ( ) { ( ( = ( $ ) = $ $ = ( $ ) = $ = ( $ ( ( $ ) ) ) = $ = $ ) = ) } <- R6Class ( = ( = = = function ( = = ) { $ <- if ( ( ) ) { $ <- ( ( ) ( ( ) ) $ ) } else { $ <- ( ( ) $ ) } } = function ( ) { } = function ( ) { } ) = ( = function ( ) { if ( ! ( ) ) return ( ) ( ) } = function ( ) { if ( ( ) ) { return ( ( ) ) } else { $ <- ( $ function ( ) { if ( ( $ $ $ ) ) { $ $ $ <- $ ( $ $ $ ) <- ( $ $ $ ) <- tryCatch ( ( ) = function ( ) ) $ $ $ <- if ( ( ) ) { } else { } $ $ $ <- ( $ ( $ $ $ ) ) } return ( ) } ) return ( ) } } ) ) <- R6Class ( = = ( = function ( = ) { $ ( ) } = function ( ) { function ( ) { ( ) } } = function ( ) { <- ( ( $ ) ) <- ( ) <- ( ) $ ( ) } ) ) <- R6Class ( = = ( = function ( = ) { $ ( ) } = function ( ) { function ( ) { ( ) } } = function ( ) { <- ( $ ) $ ( ) } ) ) <- function ( ) { <- ( ( = ) ) <- ( ) <- ( ) } <- R6Class ( = ( = ( ) = = function ( = ( ) = ) { $ <- $ <- $ ( ) } ) = ( = function ( ) { $ <- switch ( $ = = stop ( ( $ ) = ) ) } ) ) <- function ( = ) { <- $ ( = ) <- $ $ ( = ) } <- function ( ) { if ( ! %in% ( ) ) { <- ( ) stop ( = ) } } <- function ( ) { if ( ! ( = ) ) { stop ( ( ) ) } if ( ( ( ) ) && ( ( ) ) ) { ( ) } } <- function ( = = = = = = = = = ) { <- ( = = = = = = = = = ) if ( ( ) ) { ( ) return ( ) } ( $ ( ) ) $ ( ) return ( ) } <- function ( ) { if ( ! ( ( ( $ ( ) ) ) ) ) { warning ( = ) } } <- ( = = = = = ) <- function ( ) { <- ( $ ) ( ( ) ) } <- function ( ) { <- $ ( ( ) ) } <- function ( ) { <- ( ) if ( ! ( ) ) { stop ( ) } ( ( ) = ) [[ ] ] } <- function ( = = ) { if ( ) ( ( ( ) ( ) ) ) ( = = ) ( ) } <- function ( ) { <- ( ( ( ) = = ) ( ( ) = ) ) if ( ( ) == ) return ( ) ( ( function ( ) { ( ( ( ) ) ) } ( ) ) ) } <- function ( = = ) { ( ) ( ( ) == ) if ( ! ( ) ) stop ( ) ( ( ( ) ) ) <- ( ) if ( ) ( ( ( ) ) ) if ( ) ( ( ( ) ) ) ( ) if ( ! ( ( ) ) ) { if ( ) ( ( ( ) ) ) ( ( ) = ) } if ( ) ( ) <- ( ) if ( ! ( ) ) { if ( ) ( ( ( ) ) ) ( = ) ( ( $ ) = = ) } else { if ( ) ( ( ( ) ) ) } <- ( ( ) ) if ( ! ( ) ) { ( = ) } if ( ! ( ( ( ) ) ) ) { if ( ) ( ( ( ( ) ) ) ) ( $ = = ) } else { if ( ) ( ( ( ( ) ) ) ) } if ( ) ( ( ( ) ) ) <- ( ) ( $ = ) <- ( ) if ( ! ( ) ) { if ( ) ( ( ( ) ) ) ( $ = ) } else { if ( ) ( ( ( ) ) ) <- ( ) if ( ( ( ) ) && ( ( ) ) ) { if ( ) ( ( ( ) ) ) } else { if ( ) ( ( ( ) ) ) ( $ = = ) } } if ( ) ( $ ) ( ) } <- function ( ) { if ( ( ) ) stop ( ) if ( ( ! ( ) ) ) stop ( ) <- ( ) <- $ ( ) if ( ! ( ) ) { ( ) ( ) } } <- function ( ) { ( ) ( = = ) } <- function ( ) { ( = = ) } <- function ( ) { ( = = ) } <- function ( ) { if ( ( ) == || ( ) ) return ( ) <- ( ) if ( ( ( ) ) != ( ) ) { <- ( ) for ( in ( ) ) { if ( ( [[ ] ] ) > ) { [[ ] ] <- ( ( [[ ] ] ) ) } else { [[ ] ] <- ( ( [[ ] ] ) ) } } } return ( ) } <- function ( ) { <- ( ) ( = ) } <- function ( ) { ( ( ) ) ( ) if ( ( $ $ ) ) <- <- if ( || ( $ $ ) ) { <- ( $ $ ) if ( ! ( ) ) <- ( ) <- ( ) ( ) } else { ( $ $ ) } <- tryCatch ( ( ) = function ( ) ) <- ( ) if ( ( ) == || ! ( ) ) <- ( ( = ( = $ $ = $ $ = ( = = ( $ $ ) ) = ( $ $ ) ) = ( = $ $ = ( $ $ ) = ( = ( $ ( $ $ ) ) = $ $ = ) ) = ( ( ( ) = ) ) = ( ) ) ) } <- function ( ) { <- ( ) <- ( ) <- ( ) <- ( ) <- ( ) ( = = ) } <- function ( ) { <- ( ) <- ( ) <- ( ) <- ( tryCatch ( ( ) = function ( ) ) ) if ( ! ( ) && ( ) ) { <- ( $ ) } <- ( ( = ) = = $ ) <- ( ) ( ( ) = ) } <- function ( ) { ( ( ( ) ) ( ( ) ) = ) } <- function ( ) { if ( ( ) ) else } <- function ( = = ) { if ( && ! ) return ( ) <- ( ) if ( == ) { ( ) } return ( ) } <- function ( ) { if ( ( ) ) { ( ) } else { ( = ) } } <- function ( ) { if ( ( ) == ) { return ( ( ) ) } else { [ ( ) ] [ ] } } <- <- function ( ) ( ( ) ) <- function ( ) { if ( ( ) || ( ) || ( ( ) == ) || ( ) == ) else } <- function ( ) { <- tryCatch ( = function ( ) ) if ( ( ) ) else } <- function ( ) ( ( ) ) <- function ( ) { if ( ! ( ) ) { if ( ! ( ) ) { stop ( ( ( ) ) ( = ) = ) } } ( ) } <- function ( ) { if ( ( ) == ) return ( ) if ( ( ) == ) return ( ) <- ( ( ) ( ) ) <- ( ) if ( ( ) ) { [ ( ) [ ( ) ] ] = [ ( ) ] } } <- function ( ) { if ( ! ( = ) ) { stop ( = ) } else { ( ) } } <- function ( ) { <- try ( ( ( = ) ) = ) ! ( ) } <- function ( ) { <- tryCatch ( ( ) = function ( ) ) return ( ! ( ) ) } <- function ( ) { <- tryCatch ( ( ) = function ( ) ) return ( ! ( ) ) } <- function ( ) stop ( = ) <- function ( ) { if ( ( ) ) ( ) if ( ( ) ) ( ) <- <- <- <- <- if ( ( ) ) ( ) if ( ( ) ) ( ) if ( ( ) ) ( ) if ( ( ) ) ( ) if ( ( ) ) ( ) if ( ( ) > ) ( ) } <- function ( ) { <- ( ) if ( ! ( %in% ) ) { stop ( ( = ) ( = ) = ) } } <- function ( ) { ( ( ) == ( ) ) <- ( ) if ( ! %in% ) { stop ( ( = ) = ) } } <- function ( = ) { if ( ) ( ) else ( ) } <- function ( ) ( ) <- function ( ) ( )