| edm.text {pinktoe} | R Documentation |
An example textfn text function for the EDM data set
edm.text(n, web = TRUE, file = "", append = FALSE)
n |
A EDM variable name, such as "EDM29" |
web |
If TRUE then the output is catted and appended to an HTML file. If FALSE the function returns a single character string with the desired text (including newlines, etc) |
file |
The name of the file to cat the text to (if web==TRUE) |
append |
Usually should be TRUE (I know the default is FALSE! Flip) |
This functions produces text (either in HTML format which gets catted to a file, or returned as
a single character string) in response to an EDM number. The text describes the EDM. The actual text
is stored in the character vector edmbigtext, the numbers of EDMs that this character vector contains
is given in the object edmnumswehave.
If web==TRUE then nothing is returned. Otherwise, a single string containing the EDM text is produced.
Not intended for general user use
Guy P Nason
http://www.stats.bris.ac.uk/~magpn/Research/Pinktoe/Welcome.html
#
# Which EDMs do we have text for
#
data(edmnumswehave)
data(edmbigtext)
edmnumswehave
#[1] 29 52 89 110 125 142 175 297 346 391 445 476 493 516 657 770 939
#
#
# Ok. Lets look at the text for EDM29. We'll set web=TRUE to get HTML output
#
edm.text("EDM29", web=TRUE)
#<EM>RACE RELATIONS </EM>
#<P>
#That this House accepts the fact that the
#United Kingdom is a multi-racial society; reasserts the
#right of all individuals to enjoy equal rights
#irrespective of their race, colour or creed; deplores
#the fact that racial discrimination continues to blight
#the lives of many British citizens, and many
#other ethnic minorities who live in the United
#Kingdom; and urges the Home Secretary to implement
#the recommendations by the Commission for Racial Equality
#and reform the Race Relations Act 1976. <BR>
#
# Do the same thing but return as a character string
#
edm.text("EDM29", web=FALSE)
#[1] " RACE RELATIONS \n\n That this House accepts the fact that the\n United Kingdom is a multi-racial society; reasserts the\n right of all individuals to enjoy equal rights\n irrespective of their race, colour or creed; deplores\n the fact that racial discrimination continues to blight\n the lives of many British citizens, and many\n other ethnic minorities who live in the United\n Kingdom; and urges the Home Secretary to implement\n the recommendations by the Commission for Racial Equality\n and reform the Race Relations Act 1976.\n"