Nothing
#' @title Get a version/or the latest version string of available
#' STICS files templates in the package
#'
#' @param stics_version A version key of a STICS version (i.e. V9.1)
#' @param xml_doc an xml_document of a STICS xml file (Unused for the moment,
#' no version String included in xml files)
#'
#' @return a STICS version string
#'
#' @examples
#' \dontrun{
#' # View available STICS files version
#' get_xml_stics_version()
#'
#' # View the latest version
#' get_xml_stics_version("latest")
#'
#' # Checking if a version exists
#' get_xml_stics_version("V9.2")
#' }
#'
#' @keywords internal
#'
#' @noRd
#'
get_xml_stics_version <- function(stics_version = "latest", xml_doc = NULL) {
# TODO: A renommer pour clarifier version des fichiers
# a generer et non pas version du modele exe.
# il n'y aura plus de pb des que les fontions seront ventilees
# dans les depots SticsOnR et SticsRFiles sur Github
# for the moment the xml_doc does not contain the model version
# it matches with, only used to avoid checking the version
# this is a custom case, whatever its content ...
if (!base::is.null(xml_doc)) {
# to be fixed when the doc will contain the version
# return => "custom"
}
# Getting version from compat csv file
return(check_version_compat(stics_version = stics_version))
}
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.