Navbar items

Branch contains setter and getter methods for the following navigation items:

• source_code (add remove button to show RMD code or as hyperlink)
• social_links (links to social media)
• method add_to_navbar: adding custom link to the navigation bar.

PROBLEM: The method add_to_navbar is not finished, because the creation of the following YAML structure required by flexdashboard is missing (probably not possible with the package ymlthis) (https://rmarkdown.rstudio.com/flexdashboard/using.html#navigation_bar)

---
title: "Navigation Bar"
output: 
  flexdashboard::flex_dashboard:
    navbar:
      - { title: "About", href: "https://example.com/about", align: left }
---

R/AllGenerics.R

@@ -54,10 +54,13 @@ setGeneric("social_links", function(dashboard) standardGeneric("social_links"))
 setGeneric("social_links<-", function(dashboard, value) standardGeneric("social_links<-"))
 
 #' @export
-setGeneric("source_code", function(dashboard) standardGeneric("source_code"))
+setGeneric("embed_source<-", function(dashboard, value) standardGeneric("embed_source<-"))
 
 #' @export
-setGeneric("source_code<-", function(dashboard, value) standardGeneric("source_code<-"))
+setGeneric("source", function(dashboard) standardGeneric("source"))
 
 #' @export
-setGeneric("add_to_navbar", function(dashboard, ...) standardGeneric("add_to_navbar"))
+setGeneric("source<-", function(dashboard, value) standardGeneric("source<-"))
\ No newline at end of file
+
+#' @export
+setGeneric("add_link", function(dashboard, ...) standardGeneric("add_link"))
\ No newline at end of file