Nothing
# functions for setting the package options as easily as possible. Most do not have arguments.
# these ones do have arguments
ResetDefaults =
function(Local = interactive()) {
if (interactive()) {
DefSettings = system.file("BrailleROptions", package = "BrailleR")
PrefSettings =
file.path(getOption("BrailleR.Folder"), "BrailleROptions")
file.copy(DefSettings, PrefSettings, overwrite = TRUE)
.OriginalDefaults()
if (Local) file.remove("BrailleROptions")
devtools::reload("BrailleR")
} else {
.InteractiveOnly()
}
return(invisible(NULL))
}
ChooseEmbosser =
function(
Embosser = "none", Permanent = interactive(), Local = interactive()) {
if (is.character(Embosser)) {
options(BrailleR.Embosser = Embosser)
.OptionUpdated("Embosser", Embosser)
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.Embosser = Embosser
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.Embosser = Embosser
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.ExpectingText()
}
return(invisible(NULL))
}
ChooseSlideStyle =
function(css = "JGSlides.css", Permanent = interactive(),
Local = interactive()) {
if (is.character(css)) {
options(BrailleR.SlideStyle = css)
if (system.file("css", css, package = "BrailleR") == "") {
warning(
"The file", css,
"is not in the css folder of the BrailleR package.\nPlease put it there before re-issuing this command.\n")
} else {
.OptionUpdated("SlideStyle", css)
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.SlideStyle = css
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.SlideStyle = css
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
}
} else {
.ExpectingText()
}
return(invisible(NULL))
}
ChooseStyle =
function(css = "BrailleR.css", Permanent = interactive(),
Local = interactive()) {
if (is.character(css)) {
options(BrailleR.Style = css)
if (system.file("css", css, package = "BrailleR") == "") {
warning(
"The file", css,
"is not in the css folder of the BrailleR package.\nPlease put it there before re-issuing this command.\n")
} else {
.OptionUpdated("Style", css)
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.Style = css
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.Style = css
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
}
} else {
.ExpectingText()
}
return(invisible(NULL))
}
SetAuthor =
function(
name = "BrailleR", Permanent = interactive(), Local = interactive()) {
if (is.character(name)) {
options(BrailleR.Author = name)
.OptionUpdated("Author", name)
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.Author = name
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.Author = name
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.ExpectingText()
}
return(invisible(NULL))
}
SetBRLPointSize =
function(pt, Permanent = FALSE, Local = interactive()) {
if ((10 < pt) & (pt < 40)) {
options(BrailleR.BRLPointSize = pt)
.OptionUpdated("BRLPointSize (for the braille font)", paste0(pt, " inches"))
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.BRLPointSize = pt
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.BRLPointSize = pt
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.NoChangeWarning("The point size must be between 10 and 40 .")
}
return(invisible(NULL))
}
SetLanguage =
function(
Language = "en_us", Permanent = interactive(), Local = interactive()) {
if (is.character(Language)) {
options(BrailleR.Language = Language)
.OptionUpdated("Language", Language)
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.Language = Language
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.Language = Language
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.ExpectingText()
}
return(invisible(NULL))
}
SetMakeUpper =
function(Upper, Permanent = interactive(), Local = interactive()) {
Upper = as.logical(Upper)
if (is.logical(Upper)) {
options(BrailleR.MakeUpper = Upper)
.UpdatedSettingMSG(What="BrailleR.MakeUpper option for capitalising the initial letter of variable names", To=Upper)
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.MakeUpper = Upper
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.MakeUpper = Upper
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.NoChangeWarning()
}
return(invisible(NULL))
}
SetPaperHeight =
function(Inches, Permanent = FALSE, Local = interactive()) {
if ((5 < Inches) & (Inches < 14)) {
options(BrailleR.PaperHeight = Inches)
.UpdatedSettingMSG(What = "BrailleR.PaperHeight option for the height of the embossed images", To=paste(Inches, "inches"))
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.PaperHeight = Inches
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.PaperHeight = Inches
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.NoChangeWarning("The height must be between 5 and 14 inches.")
}
return(invisible(NULL))
}
SetPaperWidth =
function(Inches, Permanent = FALSE, Local = interactive()) {
if ((5 < Inches) & (Inches < 14)) {
options(BrailleR.PaperWidth = Inches)
.UpdatedSettingMSG(What="BrailleR.PaperWidth option for the width of the embossed images", To=paste(Inches, "inches"))
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.PaperWidth = Inches
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.PaperWidth = Inches
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.NoChangeWarning("The width must be between 5 and 14 inches.")
}
return(invisible(NULL))
}
SetPValDigits =
function(digits, Permanent = interactive(), Local = interactive()) {
digits = as.integer(digits)
if (digits > 1) {
options(BrailleR.PValDigits = digits)
.UpdatedSettingMSG(What="BrailleR.PValDigits option for the number of decimal places to display for p values", To=digits)
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.PValDigits = digits
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.PValDigits = digits
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.NoChangeWarning("The number of digits must be an integer greater than one")
}
return(invisible(NULL))
}
SetSigLevel =
function(alpha, Permanent = interactive(), Local = interactive()) {
if ((0 < alpha) & (alpha < 1)) {
options(BrailleR.SigLevel = alpha)
.UpdatedSettingMSG("BrailleR.SigLevel option for the level of alpha",To=alpha)
if (Permanent) {
Prefs = paste0(getOption("BrailleR.Folder"), "BrailleROptions")
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
OpSet$BrailleR.SigLevel = alpha
write.dcf(OpSet, file = Prefs)
.OptionPermanent()
}
if (Local) {
Prefs = "BrailleROptions"
if (file.exists(Prefs)) {
OpSet = as.data.frame(read.dcf(Prefs, all = TRUE))
}
OpSet$BrailleR.SigLevel = alpha
write.dcf(OpSet, file = Prefs)
.OptionLocal()
}
} else {
.NoChangeWarning("The level of alpha must be between 0 and 1.")
}
return(invisible(NULL))
}
# functions below this point have no arguments. (yet)
GoSighted =
function() {
options(BrailleR.VI = FALSE)
.GoSightedMSG()
return(invisible(NULL))
}
GoBlind =
function() {
options(BrailleR.VI = TRUE)
.GoBlindMSG()
return(invisible(NULL))
}
GoAdvanced =
function() {
options(BrailleR.Advanced = TRUE)
.GoAdvancedMSG()
return(invisible(NULL))
}
GoNovice =
function() {
options(BrailleR.Advanced = FALSE)
.GoNoviceMSG()
return(invisible(NULL))
}
ViewOn = function() {
options(BrailleR.View = TRUE)
.ViewOnMSG()
return(invisible(NULL))
}
ViewOff =
function() {
options(BrailleR.View = FALSE)
.ViewOffMSG()
return(invisible(NULL))
}
LatexOn =
function() {
options(BrailleR.Latex = TRUE)
.LatexOnMSG()
return(invisible(NULL))
}
LatexOff =
function() {
options(BrailleR.Latex = FALSE)
.LatexOffMSG()
return(invisible(NULL))
}
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.