Apply formatting to a vector
The fapply function applies formatting to a vector.
fapply(x, format = NULL, width = NULL, justify = NULL)
x |
A vector, factor, or list to apply the format to. |
format |
A format to be applied. |
width |
The desired character width of the formatted vector. Default value is NULL, meaning the vector will be variable width. |
justify |
Whether to justify the return vector. Valid values are 'left', 'right', 'center', 'centre', or 'none'. |
The fapply function accepts several types of formats: formatting
strings, named vectors,
vectorized functions, or user-defined formats. It also
accepts a formatting list, composed of any of the previous types.
The function will first determine the type of format, and then apply
the format in the appropriate way. Results are returned as a vector.
The function also has parameters for width and justification.
Parameters may also be passed as attributes on the vector. See
the fattr function for additional information on setting
formatting attributes.
A vector of formatted values.
The fapply function will process any of the following types of
formats:
Formatting string: A single string will be interpreted as a formatting string. See the FormattingStrings documentation for further details.
Named vector: A named vector can serve as a lookup list or decode for a vector. You can use a named vector to perform simple lookups on character vectors.
Format object: A format object may be created using the
value function. The format object is included in the
fmtr package, and is specially designed for data categorization.
Vectorized formatting function: A vectorized function
provides
the most flexibility and power over your formatting. You can use
an existing formatting function from any package, or create
your own vectorized formatting function using Vectorize.
fapply will also accept a formatting list, which can contain any
number of formats from the above list. To create a formatting list,
see the flist function.
## Example 1: Formatting string ##
v1 <- c(1.235, 8.363, 5.954, 2.465)
# Apply string format.
fapply(v1, "%.1f")
## Example 2: Named vector ##
# Set up vector
v2 <- c("A", "B", "C", "B")
# Set up named vector for formatting
fmt2 <- c(A = "Vector Label A", B = "Vector Label B", C = "Vector Label C")
# Apply format to vector
fapply(v2, fmt2)
## Example 3: User-defined format ##
# Define format
fmt3 <- value(condition(x == "A", "Format Label A"),
condition(x == "B", "Format Label B"),
condition(TRUE, "Format Other"))
# Apply format to vector
fapply(v2, fmt3)
## Example 4: Formatting function ##
# Set up vectorized function
fmt4 <- Vectorize(function(x) {
if (x %in% c("A", "B"))
ret <- paste("Function Label", x)
else
ret <- "Function Other"
return(ret)
})
# Apply format to vector
fapply(v2, fmt4)
## Example 5: Formatting List - Row Type ##
# Set up data
# Notice each row has a different data type
v3 <- list(2841.258, "H", Sys.Date(),
"L", Sys.Date() + 60, 1382.8865)
v4 <- c("int", "char", "date", "char", "date", "int")
# Create formatting list
lst <- flist(type = "row", lookup = v4,
int = function(x) format(x, digits = 2, nsmall = 1,
big.mark=","),
char = value(condition(x == "H", "High"),
condition(x == "L", "Low"),
condition(TRUE, "NA")),
date = "%d%b%Y")
# Apply formatting list to vector
fapply(v3, lst)
## Example 6: Formatting List - Column Type ##
# Set up data
v5 <- c(Sys.Date(), Sys.Date() + 30, Sys.Date() + 60)
v5
# Create formatting list
lst <- flist("%B", "This month is: %s", type = "column")
# Apply formatting list to vector
fapply(v5, lst)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.