R - 如何将 HTML 代码嵌入到 Jupyter 笔记本输出中？

Question

How can I do something like this using R? Actually I want to set Jupyter notebook cells width to 100%. In python this code works perfectly:

from IPython.core.display import HTML, display
HTML("<style>.container { width: 100%; }</style>")

Is there any equivalent in R?

Thank you!

Answer 1

You can display html code in R using the display_html function eg ,

// for full width
IRdisplay::display_html('<style>.container { width:100% !important; }</style>')

// this does not work with most sites due to same-origin policy, but no problem with local files   
IRdisplay::display_html('<iframe src="http://www.w3schools.com" width=1000, height=1000></iframe> ') 

See: SecurityError: Blocked a frame with origin from accessing a cross-origin frame

Answer 2

Embed html code and html table to IR Kernel jupyter

  library(IRdisplay)

  display_html("your html code")

library(knitr)
library(kableExtra)

dt <- mtcars[1:5, 1:6]
options(knitr.table.format = "html") 
html_table= kable(dt) %>%
   kable_styling("striped") %>%
   add_header_above(c(" " = 1, "Group 1" = 2, "Group 2" = 2, "Group 3" = 2))

display_html(toString(html_table))