Merge pull request #130 from Rapporteket/bugfix-sanitize-log

Bugfix sanitize log

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: rapbase
 Type: Package
 Title: Base Functions and Resources for Rapporteket
-Version: 1.23.0
+Version: 1.23.1
 Authors@R: c(
     person(given = "Are",
            family = "Edvardsen",
@@ -45,7 +45,7 @@ Imports:
     sship (>= 0.8.0),
     utils,
     yaml
-RoxygenNote: 7.1.2
+RoxygenNote: 7.2.1
 URL: https://github.com/Rapporteket/rapbase
 BugReports: https://github.com/Rapporteket/rapbase/issues
 Suggests:

NAMESPACE

@@ -67,6 +67,7 @@ export(repLogger)
 export(runAutoReport)
 export(runBulletin)
 export(runNoweb)
+export(sanitizeLog)
 export(saveStagingData)
 export(selectListPubkey)
 export(sendEmail)

NEWS.md

@@ -1,3 +1,7 @@
+# rapbase 1.23.1
+
+* Fixed Fixed bug in log sanitizer function ([#130](https://github.com/Rapporteket/rapbase/pull/130))
+
 # rapbase 1.23.0
 
 * Reduced number of imports by replacing local function with functions from [sship](https://github.com/Rapporteket/sship) ([#127](https://github.com/Rapporteket/rapbase/pull/127))

R/log.R

@@ -404,7 +404,7 @@ readLog <- function(type, name = "") {
 #' Sanitize log entries that have reached end of life
 #'
 #' @return NULL on success
-#' @keywords internal
+#' @export
 sanitizeLog <- function() {
   conf <- getConfig(fileName = "rapbaseConfig.yml")
 
@@ -431,7 +431,14 @@ sanitizeLog <- function() {
       if (backupOk) {
         lf <- lf %>%
           dplyr::filter(as.Date(.data$time) > eolDate)
-        write.table(lf, logFile[i], append = FALSE, col.names = TRUE, sep = ",")
+        write.table(
+          lf,
+          logFile[i],
+          append = FALSE,
+          sep = ",",
+          row.names = FALSE,
+          col.names = TRUE,
+          qmethod = "double")
       }
     }
   }

_pkgdown.yml

@@ -50,6 +50,7 @@ reference:
       Handle logging
     contents:
     - logger
+    - sanitizeLog
 
   - title: Automated reports
     desc: >