#' A letter counting function
#'
#' This function counts letters
#' @param which string would you like to count the letters of
#' @keywords string count
#' @export
#' @examples
#' reTable()
# saves the data frame in a fake file then re-reads it to guess column types
reTable <- function (df_in){
zz <- textConnection("foo","w")
write.csv(df_in, zz, row.names = F)
a = paste(textConnectionValue(zz), collapse = " \n")
close(zz)
df_out = read.csv(textConnection(a), stringsAsFactors = F)
return(df_out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.