Nothing
existingOrganisms <- function(path, .type) {
.files <- list.files(path)
.files <- .files[!stringr::str_detect(.files, "doc_")]
.files <- .files[!stringr::str_detect(.files, "md5cheksum")]
.files <- .files[!stringr::str_detect(.files, "documentation")]
.orgs <- unlist(purrr::map(.files, function(x, type = .type) {
.data <- unlist(stringr::str_split(x, "_"))
if (length(.data) > 0) {
which_found <- which(.data == type)
if (length(which_found) > 0) {
.data <- .data[-c(which_found:length(.data))]
return(paste0(.data, collapse = " "))
} else {
warning("It seems like there are some files in download folder that are neither pre-downloaded species files nor doc_, documentation, or md5checksum files.", call. = FALSE)
}
}
}))
return(.orgs)
}
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.