Nothing
## ----print-filter, eval=FALSE-------------------------------------------------
# # color filter
# cat(" Feather color: ")
# if (length(x$filters$color) == 0) {
# cat("all")
# } else {
# cat(paste(x$filters$color, collapse = ", "))
# }
# cat("\n")
## ----awk-code, eval=FALSE-----------------------------------------------------
# # color filter
# if (length(filters$color) == 0) {
# filter_strings$color <- ""
# } else {
# idx <- col_idx$index[col_idx$id == "color"]
# condition <- paste0("$", idx, " == \"", filters$color, "\"",
# collapse = " || ")
# filter_strings$color <- str_interp(awk_if, list(condition = condition))
# }
## ----species-specific, eval=FALSE---------------------------------------------
# s_filters <- x$filters
# s_filters$species <- character()
# ## ADD THIS LINE
# s_filters$color <- character()
# ##
# awk_script_sampling <- awk_translate(filters = s_filters,
# col_idx = x$col_idx_sampling,
# sep = sep,
# select = select_cols)
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.