# Generate a template and populate it (randomwly for this example)
cras_table <- template_create(authors = c("Josep Maria", "Jane Doe"))
cras_table[,2:ncol(cras_table)] <- sample(0:1, (ncol(cras_table)-1)*2,
replace = TRUE)
# Create a temporary file just for this example
file <- tempfile()
# Write to the file
cras_write(cras_table, file, markdown = TRUE)
# Check the content of the file
readLines(file)
Run the code above in your browser using DataLab