Nothing
testthat::context("youtube")
sec <- scratch_file()
testthat::describe('images',{
skip_if_not_rstudio()
testthat::skip_on_travis()
it('empty html',{
youtuber()
rstudioapi::documentSave(sec$id)
testthat::expect_equal(readLines(sec$path, warn = FALSE),
'<iframe width="100%" height="400" src="https://www.youtube.com/embed/" frameborder="0" allowfullscreen></iframe>'
)
set_text(sec = sec)
})
it('html',{
set_text('https://www.youtube.com/watch?v=O_kYuxP2pLA',sec = sec, mark = entire_document)
youtuber()
rstudioapi::documentSave(sec$id)
testthat::expect_equal(readLines(sec$path, warn = FALSE),
'<iframe width="100%" height="400" src="https://www.youtube.com/embed/O_kYuxP2pLA" frameborder="0" allowfullscreen></iframe>')
set_text(sec = sec)
})
it('html width/height',{
remedy_opts$set(list(youtube_height = 100 , youtube_width = 100 ))
set_text('https://www.youtube.com/watch?v=O_kYuxP2pLA',sec = sec, mark = entire_document)
youtuber()
rstudioapi::documentSave(sec$id)
testthat::expect_equal(readLines(sec$path, warn = FALSE),
'<iframe width="100" height="100" src="https://www.youtube.com/embed/O_kYuxP2pLA" frameborder="0" allowfullscreen></iframe>')
set_text(sec = sec)
})
it('html width/height',{
remedy_opts$set(list(youtube_output = 'md'))
set_text('https://www.youtube.com/watch?v=O_kYuxP2pLA',sec = sec, mark = entire_document)
youtuber()
rstudioapi::documentSave(sec$id)
testthat::expect_equal(readLines(sec$path, warn = FALSE),
'[![ALT TEXT](http://img.youtube.com/vi/O_kYuxP2pLA/0.jpg)](https://www.youtube.com/watch?v=O_kYuxP2pLA)')
set_text(sec = sec)
})
})
remedy_opts$restore()
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.