From 3184d080eee898f7dfcf3ee27865632c19bc8c7c Mon Sep 17 00:00:00 2001
From: langbart <lorenzo.longobardi@gmail.com>
Date: Thu, 7 Dec 2023 17:14:28 +0100
Subject: [PATCH] drop redundant code

---
 R/validate-surveys.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/validate-surveys.R b/R/validate-surveys.R
index a8f7472..9644c98 100644
--- a/R/validate-surveys.R
+++ b/R/validate-surveys.R
@@ -77,7 +77,7 @@ validate_wcs_surveys <- function(log_threshold = logger::DEBUG) {
     dplyr::left_join(trips_info, validated_groups, by = "submission_id")
 
   validated_filename <-
-    paste(pars$surveys$wcs_surveys$validated_surveys$file_prefix, sep = "_") %>%
+    pars$surveys$wcs_surveys$validated_surveys$file_prefix %>%
     add_version(extension = "rds")
 
   readr::write_rds(