Disabled collect metadata log file

This is to address issue #56 .

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: vosonSML
-Version: 0.34.2
+Version: 0.34.3
 Title: Collecting Social Media Data and Generating Networks for Analysis
 Description: A suite of easy to use functions for collecting social media
     data and generating networks for analysis. Supports Mastodon, YouTube,

NEWS.md

@@ -1,3 +1,9 @@
+# vosonSML 0.34.3
+
+## Bug Fixes
+- Disabled metadata logging that occurs when the `writeToFile` parameter of `Collect` is used. This is due to a new
+  package issue with R version 4.4.
+
 # vosonSML 0.34.2
 
 ## Bug Fixes

R/Collect.R

@@ -17,13 +17,13 @@
 Collect <- function(credential, ...) {
   msg <- f_verbose(check_dots("verbose", ...))
 
-  ts_ <- Sys.time()
-  collect_log <- c(
-    paste0("collect.", credential$socialmedia),
-    paste0(format(ts_, "%a %b %d %X %Y")),
-    paste0(format(ts_, tz = "UTC", usetz = TRUE)), "",
-    paste0(names(list(...)), " = ", as.character(list(...)), collapse = "\n")
-  )
+  # ts_ <- Sys.time()
+  # collect_log <- c(
+  #   paste0("collect.", credential$socialmedia),
+  #   paste0(format(ts_, "%a %b %d %X %Y")),
+  #   paste0(format(ts_, tz = "UTC", usetz = TRUE)), "",
+  #   paste0(names(list(...)), " = ", as.character(list(...)), collapse = "\n")
+  # )
 
   # set the environment encoding to UTF-8 for data collection
   saved_enc <- getOption("encoding")

R/Collect.listing.reddit.R

@@ -121,7 +121,8 @@ Collect.listing.reddit <-
 
     class(listing_df) <- append(c("listing", "reddit"), class(listing_df))
 
-    meta_log <- c(collect_log, paste0(format(Sys.time(), "%a %b %d %X %Y")))
+    # meta_log <- c(collect_log, paste0(format(Sys.time(), "%a %b %d %X %Y")))
+    meta_log <- NULL
 
     if (writeToFile) write_output_file(listing_df, "rds", "RedditListing", verbose = verbose, log = meta_log)
 

R/Collect.search.mastodon.R

@@ -94,11 +94,12 @@ Collect.search.mastodon <-
     }
     msg(paste0("Collected ", n_posts, " posts.\n"))
 
-    meta_log <- c(
-      collect_log, "",
-      ifelse(n_posts > 0, print_summary(df_summary), ""),
-      "", paste0(format(Sys.time(), "%a %b %d %X %Y"))
-    )
+    # meta_log <- c(
+    #   collect_log, "",
+    #   ifelse(n_posts > 0, print_summary(df_summary), ""),
+    #   "", paste0(format(Sys.time(), "%a %b %d %X %Y"))
+    # )
+    meta_log <- NULL
 
     if (writeToFile) write_output_file(df_posts, "rds", "MastodonData", verbose = verbose, log = meta_log)
 

R/Collect.search.twitter.R

@@ -155,11 +155,12 @@ Collect.search.twitter <-
     }
     msg(paste0("Collected ", n_tweets, " tweets.\n"))
 
-    meta_log <- c(
-      collect_log, "",
-      ifelse(n_tweets > 0, print_summary(df_summary), ""),
-      "", paste0(format(Sys.time(), "%a %b %d %X %Y"))
-    )
+    # meta_log <- c(
+    #   collect_log, "",
+    #   ifelse(n_tweets > 0, print_summary(df_summary), ""),
+    #   "", paste0(format(Sys.time(), "%a %b %d %X %Y"))
+    # )
+    meta_log <- NULL
 
     if (writeToFile) write_output_file(df_tweets, "rds", "TwitterData", verbose = verbose, log = meta_log)
 

R/Collect.thread.mastodon.R

@@ -60,11 +60,12 @@ Collect.thread.mastodon <-
     }
     msg(paste0("Collected ", n_posts, " posts.\n"))
 
-    meta_log <- c(
-      collect_log, "",
-      ifelse(n_posts > 0, print_summary(df_summary), ""),
-      "", paste0(format(Sys.time(), "%a %b %d %X %Y"))
-    )
+    # meta_log <- c(
+    #   collect_log, "",
+    #   ifelse(n_posts > 0, print_summary(df_summary), ""),
+    #   "", paste0(format(Sys.time(), "%a %b %d %X %Y"))
+    # )
+    meta_log <- NULL
 
     if (writeToFile) write_output_file(threads_df, "rds", "MastodonData", verbose = verbose, log = meta_log)
 

R/Collect.thread.reddit.R

@@ -102,7 +102,8 @@ Collect.thread.reddit <-
 
     class(threads_df) <- append(c("datasource", "reddit"), class(threads_df))
 
-    meta_log <- c(collect_log, paste0(format(Sys.time(), "%a %b %d %X %Y")))
+    # meta_log <- c(collect_log, paste0(format(Sys.time(), "%a %b %d %X %Y")))
+    meta_log <- NULL
 
     if (writeToFile) write_output_file(threads_df, "rds", "RedditData", verbose = verbose, log = meta_log)
 

R/Collect.timeline.twitter.R

@@ -160,11 +160,12 @@ Collect.timeline.twitter <-
     }
     msg(paste0("Collected ", n_tweets, " tweets.\n"))
 
-    meta_log <- c(
-      collect_log, "",
-      ifelse(n_tweets > 0, print_summary(df_summary), ""),
-      "", paste0(format(Sys.time(), "%a %b %d %X %Y"))
-    )
+    # meta_log <- c(
+    #   collect_log, "",
+    #   ifelse(n_tweets > 0, print_summary(df_summary), ""),
+    #   "", paste0(format(Sys.time(), "%a %b %d %X %Y"))
+    # )
+    meta_log <- NULL
 
     if (writeToFile) write_output_file(df_tweets, "rds", "TwitterData", verbose = verbose, log = meta_log)
 

R/Collect.web.R

@@ -67,7 +67,8 @@ Collect.web <-
 
     class(df_results) <- append(c("datasource", "web"), class(df_results))
 
-    meta_log <- c(collect_log, paste0(format(Sys.time(), "%a %b %d %X %Y")))
+    # meta_log <- c(collect_log, paste0(format(Sys.time(), "%a %b %d %X %Y")))
+    meta_log <- NULL
 
     if (writeToFile) write_output_file(df_results, "rds", "WebData", verbose = verbose, log = meta_log)
 

R/Collect.youtube.R

@@ -336,7 +336,8 @@ Collect.youtube <-
 
     class(dataCombined) <- append(c("datasource", "youtube"), class(dataCombined))
 
-    meta_log <- c(collect_log, paste0(format(Sys.time(), "%a %b %d %X %Y")))
+    # meta_log <- c(collect_log, paste0(format(Sys.time(), "%a %b %d %X %Y")))
+    meta_log <- NULL
 
     if (writeToFile) write_output_file(dataCombined, "rds", "YoutubeData", verbose = verbose, log = meta_log)
 

README.md

@@ -4,7 +4,7 @@
 [![CRAN_Monthly](https://cranlogs.r-pkg.org/badges/vosonSML)](https://CRAN.R-project.org/package=vosonSML)
 [![CRAN_Total](https://cranlogs.r-pkg.org/badges/grand-total/vosonSML)](https://CRAN.R-project.org/package=vosonSML)
 [![Github_Release](https://img.shields.io/github/release-pre/vosonlab/vosonSML.svg?logo=github)](https://github.com/vosonlab/vosonSML/releases)
-[![Github_Dev](https://img.shields.io/static/v1?label=dev&message=v0.34.1&logo=github)](https://github.com/vosonlab/vosonSML)
+[![Github_Dev](https://img.shields.io/static/v1?label=dev&message=v0.34.3&logo=github)](https://github.com/vosonlab/vosonSML)
 [![Last_Commit](https://img.shields.io/github/last-commit/vosonlab/vosonSML.svg?&logo=github)](https://github.com/vosonlab/vosonSML/commits/master)
 [![Build_Status](https://github.com/vosonlab/vosonSML/workflows/R-CMD-check/badge.svg)](https://github.com/vosonlab/vosonSML/actions)