html | R Documentation |
The functions described here form building blocks for
the format_html
methods functions for codebook
,
ftable
, ftable_matrix
, and mtable
objects, etc.
The most basic of these functions is html
, which constructs an
object that represents a minimal piece of HTML code and is member of the
class "html_elem"
. Unlike a character string containing HTML
code, the resulting code element can relatively easily modified using
other functions presented here. The actual code is created when the
function as.character
is applied to these objects.
Longer sequences of HTML code can be prepared by
concatenating them with c
, or by html_group
,
or by applying as.html_group
to a list of
"html_elem"
objects. All these result in objects
of class "html_group"
.
Attributes (such as class, id etc.) of HTML elements can be added to the
call to html
, but can also later recalled or modified with
attribs
or setAttribs
. An important attribute
is the style attribute, which can contain CSS styling. It can
be recalled or modified with style
or setStyle
. Styling
strings can also be created with hmtl_style
or as.css
html(tag, ..., .content = NULL, linebreak = FALSE)
html_group(...)
as.html_group(x)
content(x)
content(x)<-value
setContent(x,value)
attribs(x)
attribs(x)<-value
setAttribs(x,...)
## S3 method for class 'character'
setAttribs(x,...)
## S3 method for class 'html_elem'
setAttribs(x,...)
## S3 method for class 'html_group'
setAttribs(x,...)
css(...)
as.css(x)
style(x)
style(x) <- value
setStyle(x,...)
## S3 method for class 'character'
setStyle(x,...)
## S3 method for class 'html_elem'
setStyle(x,...)
## S3 method for class 'html_group'
setStyle(x,...)
tag |
a character string that determines the opening and closing tags of the HTML element. (The closing tag is relevant only if the element has a content.) |
... |
optional further arguments, named or not. For For For For For |
.content |
an optional character string, |
linebreak |
a logical value or vector of length 2, determines whether linebreaks are inserted after the HTML tags. |
x |
an object. For |
value |
an object of appropriate class. For For |
Objects created with html
are lists with class attribute
"html_elem"
and components
a character string
a named character vector
a character vector, an "html_elem"
or "html_group"
object, or a list of such.
a logical value or vector of length 2.
Objects created with html_group
or by concatenation
of "html_elem"
or "html_group"
object
are lists of such objects, with class attribute "html_group"
.
html("img")
html("img",src="test.png")
html("div",class="element",id="first","Sisyphus")
html("div",class="element",id="first",.content="Sisyphus")
div <- html("div",class="element",id="first",linebreak=c(TRUE,TRUE))
content(div) <- "Sisyphus"
div
tag <- html("tag",linebreak=TRUE)
attribs(tag)["class"] <- "something"
attribs(tag)["class"]
tag
style(tag) <- c(color="#342334")
style(tag)
tag
style(tag)["bg"] <- "white"
tag
setStyle(tag,bg="black")
setStyle(tag,c(bg="black"))
c(div,tag,tag)
c(
c(div,tag),
c(div,tag,tag)
)
c(
c(div,tag),
div,tag,tag
)
c(
div,tag,
c(div,tag,tag)
)
content(div) <- c(tag,tag,tag)
div
css("background-color"="black",
color="white")
as.css(c("background-color"="black",
color="white"))
Hello <- "Hello World!"
Hello <- html("p",Hello,linebreak=c(TRUE,TRUE))
style(Hello) <- c(color="white",
"font-size"="40px",
"text-align"="center")
Link <- html("a","More examples here ...",
href="http://elff.eu/software/memisc",
title="More examples here ...",
style=css(color="white"),
linebreak=c(TRUE,FALSE))
Link <- html("p"," (",Link,")",linebreak=c(TRUE,TRUE))
style(Link) <- c(color="white",
"font-size"="15px",
"text-align"="center")
Hello <- html("div",c(Hello,Link),linebreak=c(TRUE,TRUE))
style(Hello) <- c("background-color"="#160666",
padding="20px")
Hello
show_html(Hello)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.