In NewGraphEnvironment/fish_passage_elk_2020_reporting: Does not matter.

Appendix - Phase 1 Fish Passage Assessment Data and Photos {-}

##moved to functions and tables files
# print_tab_summary_all <- function(tab_sum, comments, photos){
#   kable(tab_sum, booktabs = T) %>%
#     kableExtra::kable_styling(c("condensed"), full_width = T, font_size = 11) %>% 
#     kableExtra::add_footnote(label = paste0('Comments: ', comments[[1]]), notation = 'none') %>% #this grabs the comments out
#     kableExtra::add_footnote(label = paste0('Photos: ', photos[[1]], photos[[2]]), notation = 'none') %>%  
#     kableExtra::add_footnote(label = '<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>', escape = F, notation = 'none')
# }
#  
# tabs_phase1 <- mapply(print_tab_summary_all, tab_sum = tab_summary, comments = tab_summary_comments, photos = tab_photo_url)


##another potential solution here https://stackoverflow.com/questions/64000421/how-to-use-pagedown-and-kable-in-r-to-print-a-table-followed-by-a-page-break