R/fct_design_table_as_gt.R

In SoerenGreule/probatdesigner: An Amazing Shiny App

design_table_as_gt <- function(survey_design){
  require(gt)
  survey_design %>% 
  gt::gt() %>% 
  gt::tab_header(title = "vorgeschlagenes optimiertes Beprobungsdesign") %>% 
  gt::tab_spanner(
    label = "Beprobungsjahr",
    columns = dplyr::matches("\\d")
  ) %>% 
  gt::cols_label(
    turbines = "WEA"
  ) %>% 
  gt::cols_align(
    align = "center",
    columns = dplyr::matches("\\d")
  ) %>% 
  gt::cols_align(
    align = "left",
    columns = c(turbines)
  ) %>% 
  gt::tab_source_note(
    source_note = gt::md(
      "Beprobungsdesign erstellt basierend auf: Behr, O., K. Hochradel, J. Mages, A. Naucke, M. Nagy, R. Simon, N. Weber und F. Korner-Nievergelt (2018). Zeitliche und räumliche Variabilität der akustischen Fledermausaktivität an Windenergieanlagen. <ins>Bestimmung des Kollisionsrisikos von Fledermäusen an Onshore-Windenergieanlagen in der Planungspraxis - Endbericht des Forschungsvorhabens gefördert durch das Bundesministerium für Wirtschaft und Energie (Förderkennzeichen 0327638E).</ins> O. Behr, R. Brinkmann, K. Hochradel et al. Erlangen."
    )) %>% 
  gt::tab_style(
    style = 
      gt::cell_borders(
        sides = c("right"),
        color = "#D3D3D3",
        weight = px(2))
    ,
    locations = cells_body(
      columns = c(turbines))) %>% 
  gt::cols_width(
    c(turbines) ~ "10%"
  )
}