#' DATA is FORMAT
#'
#' @description Evaluates if a passed data.frame has a specified format
#'
#' @param data a data.frame that will be compared to a data.frame with the specified format as specified by the COBIApp
#'
#' @param format The specified format to which data will be compared
#'
#' @return message an error message displayed if the data is not consistent with format
#'
#' @export
#'
#' @author VillaseƱor-Derbez, J.C. <juancarlos.villader@gmail.com>
#'
DATAisFORMAT <- function (data, format){
message=c("Formato correcto")
if (format == "A"){
if (!length(data)==33){
message <- c("El archivo cargado NO coincide con el formato especificado. Verifique que el tipo de base y el separador sean los correctos.")
}
} else if (format == "B"){
if(!length(data) == 28 | !any(data$Abundancia > 1)){
message <- c("El archivo cargado NO coincide con el formato especificado. Verifique que el tipo de base y el separador sean los correctos.")
}
} else if (format == "C") {
if (!length(data) == 28 | any(data$Abundancia > 1)){
message <- c("El archivo cargado NO coincide con el formato especificado. Verifique que el tipo de base y el separador sean los correctos.")
}
}
return(message)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.