Generate html from object.
Prepare html document to see full text.
html(object, ...) ## S4 method for signature 'character' html(object, corpus, height = NULL) ## S4 method for signature 'partition' html( object, meta = NULL, cpos = TRUE, verbose = FALSE, cutoff = NULL, charoffset = FALSE, beautify = TRUE, height = NULL, ... ) ## S4 method for signature 'subcorpus' html( object, meta = NULL, cpos = TRUE, verbose = FALSE, cutoff = NULL, charoffset = FALSE, beautify = FALSE, height = NULL, ... ) ## S4 method for signature 'partition_bundle' html( object, charoffset = FALSE, beautify = TRUE, height = NULL, progress = TRUE, ... ) ## S4 method for signature 'kwic' html(object, i, s_attribute = NULL, type = NULL, verbose = FALSE, ...)
object |
The object the fulltext output will be based on. |
... |
Further parameters that are passed into |
corpus |
The ID of the corpus, a length-one |
height |
A |
meta |
Metadata to include in output, if |
cpos |
Length-one |
verbose |
Length-one |
cutoff |
An |
charoffset |
Length-one |
beautify |
Length-one |
progress |
Length-one |
i |
An |
s_attribute |
Structural attributes that will be used to define the partition where the match occurred. |
type |
The partition type. |
If param charoffset
is TRUE
, character offset positions will be
added to tags that embrace tokens. This may be useful, if exported html document
is annotated with a tool that stores annotations with character offset positions.
Returns an object of class html
as used in the htmltools
package. Methods
such as htmltools::html_print
will be available. The encoding of the html
document will be UTF-8 on all systems (including Windows).
use("polmineR") P <- partition("REUTERS", places = "argentina") H <- html(P) if (interactive()) H # show full text in viewer pane # html-method can be used in a pipe H <- partition("REUTERS", places = "argentina") %>% html() # use html-method to get full text where concordance occurrs K <- kwic("REUTERS", query = "barrels") H <- html(K, i = 1, s_attribute = "id") H <- html(K, i = 2, s_attribute = "id") for (i in 1L:length(K)) { H <- html(K, i = i, s_attribute = "id") if (interactive()){ show(H) userinput <- readline("press 'q' to quit or any other key to continue") if (userinput == "q") break } }
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.