knitr::opts_chunk$set(echo = TRUE)
library(sobekio)
library(kableExtra)
options(knitr.kable.NA = '')
tble
case.name
sobek.project
str_dat_tbl <- sobekio:::.get_all_struct(case.name, sobek.project,
                                         html = TRUE, tble = tble)
str_dat_tbl %>%
  kable(escape = FALSE,
        caption = paste('Case:', case.name, '<br>', 'Project: ',
                        sobek.project),
        ) %>%
  kable_styling(bootstrap_options = c('striped', 'hover'),
                fixed_thead = TRUE)


dquang/sobekio documentation built on July 9, 2020, 10:15 p.m.