Fix data duplicates in label-df

sueddeutsche · Sep 20, 2017 · 6814415 · 6814415
1 parent 16bb5d2
commit 6814415
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tasks/chart-longterm-polls.R b/tasks/chart-longterm-polls.R
@@ -10,8 +10,9 @@ df_rolling_average_and_error_party <- unique(df_rolling_average_and_error$partei
 
 latest_values <- arrange(df_rolling_average_and_error, desc(datum)) %>% filter(datum == datum[1])
 hidden_chars <- c("\U200C","\u200D","\u200E","\u200F","\U200C","\u200D")
-latest_values <- arrange(latest_values, desc(rolling_average))
+latest_values <- unique(arrange(latest_values, desc(rolling_average)))
 latest_values <- cbind(latest_values, hidden_chars)
+# print(latest_values)
 startDatum <- "2015-06-01"
 df_rolling_average_and_error <- filter(df_rolling_average_and_error, datum > startDatum)