mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-29 16:58:11 -05:00
30 lines
1.1 KiB
R
30 lines
1.1 KiB
R
context("text")
|
|
|
|
test_that("reactivePrint and reactiveText behavior is correct", {
|
|
expect_equal(isolate(reactivePrint(function() "foo")()),
|
|
'[1] "foo"')
|
|
expect_equal(isolate(reactivePrint(function() invisible("foo"))()),
|
|
'')
|
|
expect_equal(isolate(reactivePrint(function() { print("foo"); "bar"})()),
|
|
'[1] "foo"\n[1] "bar"')
|
|
expect_equal(isolate(reactivePrint(function() NULL)()),
|
|
'NULL')
|
|
expect_equal(isolate(reactivePrint(function() invisible())()),
|
|
'')
|
|
expect_equal(isolate(reactivePrint(function() 1:5)()),
|
|
'[1] 1 2 3 4 5')
|
|
|
|
expect_equal(isolate(reactiveText(function() "foo")()),
|
|
'foo')
|
|
expect_equal(isolate(reactiveText(function() invisible("foo"))()),
|
|
'foo')
|
|
expect_equal(isolate(reactiveText(function() { print("foo"); "bar"})()),
|
|
'bar')
|
|
expect_equal(isolate(reactiveText(function() NULL)()),
|
|
'')
|
|
expect_equal(isolate(reactiveText(function() invisible())()),
|
|
'')
|
|
expect_equal(isolate(reactiveText(function() 1:5)()),
|
|
'1 2 3 4 5')
|
|
})
|