From 0e6096ccc7ff476ab4d8d76fd472b8c017851377 Mon Sep 17 00:00:00 2001
From: Charlotte Soneson <charlottesoneson@gmail.com>
Date: Sun, 25 Feb 2024 13:32:20 +0100
Subject: [PATCH] Debugging

---
 joss-submission-analytics.Rmd | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/joss-submission-analytics.Rmd b/joss-submission-analytics.Rmd
index 2dd931ae..8eecddd4 100644
--- a/joss-submission-analytics.Rmd
+++ b/joss-submission-analytics.Rmd
@@ -357,6 +357,11 @@ df <- do.call(dplyr::bind_rows, lapply(software_urls[is_github], function(u) {
                 repo_pushed = as.Date(repo_pushed)) %>%
   dplyr::distinct() %>%
   dplyr::mutate(repo_info_obtained = lubridate::today())
+if (length(unique(df$repo_url)) != length(df$repo_url)) {
+  print(length(unique(df$repo_url)))
+  print(length(df$repo_url))
+  print(df$repo_url[duplicated(df$repo_url)])
+}
 stopifnot(length(unique(df$repo_url)) == length(df$repo_url))
 dim(df)