The userfriendlyscience basics functions are some very basic functions to make life that little bit easier.
safeRequire(packageName, mirrorIndex=NULL) trim(str) noZero(str) formatPvalue(values, digits = 3, spaces=TRUE, includeP = TRUE) formatR(r, digits) repStr(n = 1, str = " ") repeatStr(n = 1, str = " ") ifelseObj(condition, ifTrue, ifFalse) invertItem(item, fullRange=NULL, ignorePreviousInversion = FALSE) is.odd(vector) is.even(vector) convertToNumeric(vector, byFactorLabel = FALSE) massConvertToNumeric(dat, byFactorLabel = FALSE, ignoreCharacter = TRUE, stringsAsFactors = FALSE) vecTxt(vector, delimiter = ", ", useQuote = "", firstDelimiter = NULL, lastDelimiter = " & ", firstElements = 0, lastElements = 1, lastHasPrecedence = TRUE) vecTxtQ(vector, useQuote = "'", ...) find %IN% table cat0(..., sep="") addToLog(fullLog, ..., showLog = FALSE);
| packageName | The name of the package, as character string. |
|---|---|
| mirrorIndex | The index of the mirror to use, in case you want to specify the mirror in the call (see e.g. /code/linkgetCRANmirrors()[, 1:4] for an overview of these mirrors. For example, at the time of writing, Antwerp is 7, Amsterdam is 60, and Auckland is 62). |
| str | The character string to process. |
| values | The p-values to format. |
| digits | For formatPvalue, number of digits to round to. Numbers smaller than this number will be shown as <.001 or <.0001 etc. For formatR, the number of digits to use when formatting the Pearson correlation. |
| spaces | Whether to include spaces between symbols, operators, and digits. |
| includeP | Whether to include the 'p' and '='-symbol in the results (the '<' symbol is always included). |
| r | The Pearson correlation to format. |
| n | The number of times to repeat the string. |
| condition | Condition to evaluate. |
| ifTrue | Object to return if the condition is true. |
| ifFalse | Object to return if the condition is false. |
| item | Item to invert |
| fullRange | If provided it must be a numeric vector with the minimum and the maximum of the scale. If not provided, the range function is used (so, use this range argument if the scale minimum and/or maximum do not occur in the data). |
| ignorePreviousInversion | If this item has already been inverted, the function will halt with an error unless it's told to ignore previous inversions with this boolean. |
| dat, vector | The dataframe of vector to process. |
| byFactorLabel | If TRUE, convertToNumeric and massConvertToNumeric use the factor labels, interpreted as character vectors, to determine the numeric value, instead of the level's indices (which is what as.numeric() does). |
| ignoreCharacter | If TRUE, character vectors are ignored. If FALSE, character vectors are converted (or, an attempt is made :-)). |
| stringsAsFactors | If TRUE, strings (character vectors) in the dataframe will be converted to factors (by as.data.frame, after the function called lapply). |
| find | The element(s) to look up in the vector or matrix. |
| table | The vector or matrix in which to look up the element. |
| delimiter, firstDelimiter, lastDelimiter | The delimiters to use for respectively the middle, first
|
| useQuote | This character string is pre- and appended to all elements; so use this to
quote all elements ( |
| firstElements, lastElements | The number of elements for which to use the first respective last delimiters |
| lastHasPrecedence | If the vector is very short, it's possible that the sum of firstElements
and lastElements is larger than the vector length. In that case, downwardly
adjust the number of elements to separate with the first delimiter
( |
| sep | The separator to pass to |
| fullLog | The full log - the character vector(s) provided are appended to this character vector. |
| showLog | Whether to |
| ... | Extra arguments are passed to whatever function is wrapped (e.g.
|
The safeRequire function checks whether a package is already installed. If so, it loads the package (using require/library). If not, it first installs it, and then loads it.
The trim function removes whitespaces from the start and end of a text string.
The noZero function removes the first zero from a string that was originally a number.
The formatPvalue function formats a P value, roughly according to APA style guidelines. This means that the noZero is used to remove the zero preceding the decimal point, and p values that would round to zero given the requested number of digits are shown as e.g. p<.001.
The formatR function format a Pearson correlation for pretty printing (using noZero).
The repeatStr (or repStr) function repeats a string a given number of times.
The ifelseObj function just evaluates a condition, returning one object if it's true, and another if it's false.
The invertItem function 'unmirrors' an inverted item (i.e. for a 1-3 item, 1 becomes 3, 2 stays 2, and 3 becomes 1).
is.odd and is.even check whether a number is, or numbers in a vector are, odd or even.
The infix function %IN% is a case-insensitive version of %in%.
The cat0 function is to cat what paste0 is to paste; it simply makes concatenating many strings without a separator easier.
The addToLog function adds a character vector to a log.
safeRequire returns nothing.
trim, formatPvalue, noZero, formatR, and repeatStr return a string.
ifelseObj return an object.
The invertItem function returns the inverted item vector, with an attribute "inverted" set to TRUE.
is.odd and is.even return a logical vector.
%IN% returns a logical vector of the same length as its first argument.
cat0 returns a string.
addToLog returns a string.
### load a package safeRequire('ggplot2'); ### trim a string trim(' this is a string with whitespace in front and at the end ');#> [1] "this is a string with whitespace in front and at the end"### Returns "this is a string with whitespace in front and at the end" repeatStr("-", 8);#> [1] "--------"### Returns "--------" (incredibly useful, no? :-)) tempVector <- c(1,2,3,3,2,4,3,2,1,1,3,4,5,4,3,2,2,1,1,2); invertedTempVector <- invertItem(tempVector); ### We can also invert it back, but then we have to override the security ### that prevents accidently inverting items back. invertItem(tempVector, ignorePreviousInversion=TRUE);#> [1] 5 4 3 3 4 2 3 4 5 5 3 2 1 2 3 4 4 5 5 4 #> attr(,"inverted") #> [1] TRUE