Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
echo = FALSE,
comment = "#>"
)
options(rmarkdown.html_vignette.check_title = FALSE)
library(APCalign)
library(readr)
library(dplyr)
library(here)
#' Format table with kable and default styling for html
#'
#' @param ... arguments passed to `kableExtra::kable()`
#' @importFrom rlang .data
#' @export
util_kable_styling_html <- function(...) {
txt <-
kableExtra::kable(...) %>%
kableExtra::kable_styling(...,
bootstrap_options = c("striped", "hover", "condensed", "responsive"),
full_width = FALSE,
position = "left"
)
# hack to add margin to plot
gsub('style="width: auto ', 'style="margin-left:30px; width: auto ', txt)
}
my_kable_styling <- util_kable_styling_html
match_taxa_documentation <-
readr::read_csv(
system.file(
file.path("extdata", "match_taxa_documentation.csv"),
package = "APCalign"),
show_col_types = FALSE
)
update_taxonomy_documentation <-
readr::read_csv(
system.file(
file.path("extdata", "update_taxonomy_documentation.csv"),
package = "APCalign"),
show_col_types = FALSE, skip = 1
)
APCalign_outputs_documentation <-
readr::read_csv(
system.file(
file.path("extdata", "APCalign_outputs_documentation.csv"),
package = "APCalign"),
show_col_types = FALSE
)
## ----results='show'-----------------------------------------------------------
match_taxa_documentation %>%
my_kable_styling()
## ----results='show'-----------------------------------------------------------
update_taxonomy_documentation %>%
my_kable_styling() %>%
kableExtra::add_header_above(c(" " = 1, "categories of aligned names processed" = 4, "columns filled in" = 3))
## ----results='show'-----------------------------------------------------------
APCalign_outputs_documentation %>%
my_kable_styling()
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.