create genderequality, add documentation read_from_csv

R/analyze.R

@@ -12,6 +12,8 @@ join_speaker <- function(tb, res, fraction_only = F) {
     else joined
 }
 
+#'Assignment of the official colors to the parties
+#'
 #' @export
 party_colors <- c(
   AfD="#1A9FDD",

R/parse.R

@@ -223,6 +223,10 @@ write_to_csv <- function(tables, path="csv/", create=F) {
     write.table(tables$applause, str_c(path, "applause.csv"))
 }
 
+#'Create a Tibble out of the CSV-Document
+#'
+#'@param path The path that shows which Documents you want to use.
+#'
 #' @export
 read_from_csv <- function(path="csv/") {
     list(speaker = read.table(str_c(path, "speaker.csv")) %>%