Nothing
#' Open contents in a new tempfile or file
#'
#'
#' @name output_to_file
#'
#' @usage output_to_file(content, file_path)
#'
#' @param content Some (text) content to go into the new file
#' @param file_path Specifies a file path and file name.
#'
#'
#' @import dplyr
#'
#' @export
#'
#' @examples
#'
#' \dontrun{
#' code_sample <- "#Sample code\nx <- 6\n2 * 2"
#' output_to_file(code_sample)
#'}
#'
#'
#'
#'
output_to_file <- function(content, file_path) {
# if(missing(file_path)) {file_path = tempfile() }
writeLines(content, con=file_path)
file.edit(file_path)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.