|
|
|
@@ -205,6 +205,14 @@ parse_speakerliste <- function(speakerliste_xml) { |
|
|
|
rolle_lang = d["rolle_lang",]) |
|
|
|
} |
|
|
|
|
|
|
|
#' Write to CSV-Document |
|
|
|
#' |
|
|
|
#' Put all tables from the entered list in separate CSV documents. |
|
|
|
#' |
|
|
|
#' @param tables The List of Tables you want to convert into a CSV-Document. |
|
|
|
#' @param path The path where to put the CSV-Document. |
|
|
|
#' @param create Set TRUE if the path does not exist yet and you want to create it. |
|
|
|
#' |
|
|
|
#' @export |
|
|
|
write_to_csv <- function(tables, path="csv/", create=F) { |
|
|
|
check_directory(path, create) |
|
|
|
|