Displaying 2 results from an estimated 2 matches for "df_rev".
Did you mean:
_rev
2015 Oct 09
3
reverse object creation
...s that create the commands for creating
objects (vectors, data frames) based on the objects themselves - i.e. to
reverse-engineer them.
Here are my suggestions:
c_rev <- function(x) cat(paste0('c("', gsub(', ', '", "', toString(x)),
'")\n'))
df_rev <- function(x) {
X <- apply(x, 1,
function(x) {
paste0('c(',
paste0(shQuote(x), collapse = ", "),
')'
)
}
)
command &...
2015 Oct 09
0
reverse object creation
...", "WAGE",
> "OTXS", "D29 nom", "D39 nom", "CFCC", "NOPS", "HRNS", "HRSE")), .Names =
> c("sheet",
> "var"), row.names = c(NA, -19L), class = "data.frame")
> >
>
> df_rev returns
>
> rbind.data.frame(c("output cup", "PROD"),
> c("output coppy", "PKPY"),
> c("gross value added cup", "VALU"),
> c("gross value added coppy", "VKPY"),
> c("GFCF cup", "GFCF&quo...