Nothing
#' Internal function
#'
#' Internal debug function to compare the actually created
#' lines to expected lines using any diff tool
#' @param lines the created lines
#' @param expected the expected/goal/target lines
#' @param section the XML section. Leave at NA to compare all lines
#' @param created_lines_filename name of the file where the (section of
#' the) created lines are stored
#' @param expected_lines_filename name of the file where the (section of
#' the) expected lines are stored
#' @return nothing. Instead, two files are created, with the
#' names \code{created_lines_filename}
#' and \code{expected_lines_filename} that contain the
#' section under investigation, so that a diff tool
#' can compare these
#' @examples
#' check_empty_beautier_folder()
#'
#' # Creates temporary files in beautier folder
#' compare_lines(
#' lines = readLines(get_beautier_path("bd_2_4.xml")),
#' expected = readLines(get_beautier_path("bd_2_4.xml"))
#' )
#'
#' remove_beautier_folder()
#' check_empty_beautier_folder()
#' @author Richèl J.C. Bilderbeek
#' @export
compare_lines <- function(
lines,
expected,
section = NA,
created_lines_filename = get_beautier_tempfilename(
pattern = "created", fileext = ".xml"
),
expected_lines_filename = get_beautier_tempfilename(
pattern = "expected", fileext = ".xml"
)
) {
if (!is_one_na(section)) {
lines <- extract_xml_section_from_lines(
lines = lines,
section = section
)
expected <- extract_xml_section_from_lines(
lines = expected,
section = section
)
}
dir.create(
dirname(created_lines_filename),
showWarnings = FALSE,
recursive = TRUE
)
dir.create(
dirname(expected_lines_filename),
showWarnings = FALSE,
recursive = TRUE
)
writeLines(text = lines, created_lines_filename)
writeLines(text = expected, expected_lines_filename)
}
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.