Nothing
.ifelse = function(condition, yes, no){
if(condition){
return(yes)}
else {
return(no)}
}
FindCSSFile =
function(file) {
out = NULL
if (file.exists(paste0(getOption("BrailleR.Folder"), "/css/", file))) {
out = normalizePath(paste0(getOption("BrailleR.Folder"), "/css/", file))
}
if (file.exists(file)) {
out = file
}
return(out)
}
InQuotes = function(x) {
Out = paste0('"', x, '"')
}
### from examples for toupper() with slight alteration to allow for BrailleR options.
.simpleCap <- function(x) {
if (getOption("BrailleR.MakeUpper")) {
s <- strsplit(x, " ")[[1]]
out = paste0(toupper(substring(s, 1, 1)), substring(s, 2))
} else {
out = x
}
return(out)
}
.GetOldStyleScatterText = function(ResponseName, PredictorName, DataName){
TextOut = paste0(
'```{r ScatterPlot, fig.cap="Scatter Plot"}
# Remove the missing values
completeCases <- complete.cases(Data[ResponseName])*complete.cases(Data[PredictorName])
assign(DataName, Data[completeCases==1,])
plot(',
ResponseName, '~', PredictorName, ', data=', DataName, ', ylab=',
.simpleCap(ResponseName), ', xlab=', .simpleCap(PredictorName),
')
attach(', DataName, ')
WhereXY(', ResponseName, ',',
PredictorName, ')
detach(', DataName, ')
``` \n\n')
return(TextOut)
}
.GetModernStyleScatterText = function(ResponseName, PredictorName, DataName){
TextOut=UseTemplate(file="ScatterPlot.Rmd", find=c("library\\(ggplot2\\)", "DataName", "ResponseName", "PredictorName"),
replace=c("# N.B. using the ggplot2 package", DataName, ResponseName, PredictorName))
return(TextOut)
}
.GetOldStyleFittedText = function(ResponseName, PredictorName, DataName, ModelName){
TextOut = paste0('
```{r FittedLinePlot}
plot(', ResponseName, '~',
PredictorName, ', data=', DataName, ', ylab=',
.simpleCap(ResponseName), ', xlab=', .simpleCap(PredictorName),
')
abline(', ModelName,
')
```\n\n')
return(TextOut)
}
.GetModernStyleFittedText = function(ResponseName, PredictorName, DataName, ModelName){
TextOut=UseTemplate(file="FittedLinePlot.Rmd", find=c("library\\(ggplot2\\)", "DataName", "ResponseName", "PredictorName"),
replace=c("# N.B. using the ggplot2 package", DataName, ResponseName, PredictorName))
return(TextOut)
}
.GetOldStyleResidualText = function(ModelName){
TextOut=paste0('
```{r SimpleLinModResAnal, fig.cap="Residual analysis"}
par(mfrow=c(2,2))
plot(',
ModelName, ')
``` \n\n')
return(TextOut)
}
.GetModernStyleResidualText = function(ModelName){
TextOut=UseTemplate(file="ResidualAnalysis.Rmd", find=c("library\\(ggfortify\\)", "ModelName"),
replace=c("# N.B. using the ggfortify package", ModelName))
return(TextOut)
}
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.