Nothing
#' Evaluate if the content of an XML file
#' corresponds to a STICS file
#'
#' @param xml_path An xml file path
#' @param file_type The type of the xml file
#'
#' @return A logical value giving if input xml file is a STICS one
#' (TRUE), or not (FALSE)
#'
#'
#' @examples
#' \dontrun{
#' xml_path <- file.path(get_examples_path(file_type = "xml"), "sols.xml")
#' is_stics_xml(xml_path)
#' }
#'
#' @keywords internal
#'
#' @noRd
#'
is_stics_xml <- function(xml_path, file_type = NULL) {
if (dir.exists(xml_path) || !file.exists(xml_path)) {
return(FALSE)
}
xml_doc <- xmldocument(xml_path)
status <- is_stics_doc(xml_doc, doc_type = file_type)
delete(xml_doc)
return(status)
}
# @rdname is_stics_xml
is_ini_xml <- function(xml_path) {
return(is_stics_xml(xml_path, "initialisations"))
}
# @rdname is_stics_xml
is_usms_xml <- function(xml_path) {
return(is_stics_xml(xml_path, "usms"))
}
# @rdname is_stics_xml
is_sols_xml <- function(xml_path) {
return(is_stics_xml(xml_path, "sols"))
}
# @rdname is_stics_xml
is_tec_xml <- function(xml_path) {
return(is_stics_xml(xml_path, "fichiertec"))
}
# @rdname is_stics_xml
is_sta_xml <- function(xml_path) {
return(is_stics_xml(xml_path, "fichiersta"))
}
# @rdname is_stics_xml
is_plt_xml <- function(xml_path) {
return(is_stics_xml(xml_path, "fichierplt"))
}
# @rdname is_stics_xml
is_par_xml <- function(xml_path) {
return(is_stics_xml(xml_path, "fichierpar"))
}
# @rdname is_stics_xml
is_newpar_xml <- function(xml_path) {
return(is_stics_xml(xml_path, "fichierparamgen"))
}
get_xml_type <- function(xml_path) {
is_xml <- is_stics_xml(xml_path)
if (!is_xml) {
return(NULL)
}
return(attr(is_xml, "type"))
}
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.