solve most of predefined challenges

2021-08-02 16:12:18 +02:00
parent d01cea9d52
commit 4fe45feec9
7 changed files with 138 additions and 24 deletions
@@ -47,8 +47,8 @@ repair_reden <- function(reden) {

 repair_talks <- function(talks) {
    if (nrow(talks) == 0) return(talks)
-    # TODO: fill with content
-    talks
+    # ignore all talks which have empty content
+    filter(talks, str_length(content) > 0)
 }

 # tries to find the correct redner id given a name
@@ -90,6 +90,7 @@ repair <- function(parse_output) {
         reden = repair_reden(parse_output$reden),
         talks = repair_talks(parse_output$talks),
         #comments = repair_comments(parse_output$comments)
-         comments = parse_output$comments
+         comments = parse_output$comments,
+         applause = parse_output$applause
         )
 }