Nothing
#! This file was automatically produced by the documentation package.
#! Changes will be overwritten.
context('tests extracted from file `pd_make_is_in.R`')
#line 39 "/rdtf/parsetools/R/pd_make_is_in.R"
test_that('pd_make_is_call & pd_make_is_in_call', {#@test pd_make_is_call & pd_make_is_in_call
pd <- get_parse_data(parse(text={"
test <- function(msg){
cat('test message:', msg, '\n')
}
test('my message')
"}, keep.source=TRUE))
is_in_test <- pd_make_is_in_call('test')
.is <- environment(is_in_test)[['.is']]
calls <- environment(is_in_test)[['calls']]
test.id <- pd_all_root_ids(pd)[[2]]
id <- pd[pd$text=="'my message'",'id']
expect_true(pd_is_symbol_call(test.id, pd))
expect_identical(text(call_symbol(test.id, pd)), 'test')
expect_true(.is(test.id, pd))
expect_false(.is(id, pd))
expect_true(is_in_test(id, pd))
expect_true(is_in_test(id, pd))
expect_identical(is_in_test(pd$id, pd=pd), ascend_to_root(pd=pd) == test.id)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.