resubmission to cran

.Rbuildignore

@@ -5,3 +5,5 @@
 ^\.travis\.yml$
 ^\.github$
 ^LICENSE\.md$
+^cran-comments\.md$
+^CRAN-RELEASE$

CRAN-RELEASE

@@ -0,0 +1,2 @@
+This package was submitted to CRAN on 2021-10-26.
+Once it is accepted, delete this file and tag the release (commit 24ea598).

DESCRIPTION

@@ -1,13 +1,13 @@
 Package: Twitmo
 Type: Package
 Title: Twitter Topic Modeling and Visualization for R
-Version: 0.1.0
+Version: 0.1.1
 Author: Andreas Buchmueller
 Maintainer: Andreas Buchmueller <a.buchmueller@stud.uni-goettingen.de>
 Description: Tailored for topic modeling with tweets and fit for visualization tasks in R. 
     Collect, pre-process and analyze the contents of tweets using 
     LDA and STM models. Comes with visualizing capabilities like tweet and hashtag maps 
-    and built-in support for LDAvis.
+    and built-in support for 'LDAvis'.
 License: MIT + file LICENSE
 URL: https://github.com/abuchmueller/Twitmo
 BugReports: https://github.com/abuchmueller/Twitmo/issues

R/parse_tweets.R

@@ -8,6 +8,7 @@
 #' @usage load_tweets(file_name)
 #' @param file_name Character string. Name of JSON file with data collected by
 #' \link[rtweet]{stream_tweets} or \code{get_tweets()}.
+#' @return A data frame of tweets data with additional meta data
 #'
 #' @seealso \link[rtweet]{parse_stream}, \link[jsonlite]{stream_in}, \link[rtweet]{tweets_with_users}
 #' @export

R/plots.R

@@ -34,6 +34,10 @@ plot_tweets <- function(data, region = ".", alpha = 0.01, ...) {
   # remove opacity if sample size is small
   if (nrow(data) < 100) alpha <- 1
 
+  # restore user options on exit
+  oldpar <- graphics::par(no.readonly = TRUE)
+  on.exit(graphics::par(oldpar))
+
   ## plot state boundaries
   graphics::par(mar = c(0, 0, 3, 0))
   maps::map("world", region,  ...)
@@ -64,7 +68,7 @@ plot_tweets <- function(data, region = ".", alpha = 0.01, ...) {
 #'
 #' # Plot tweets on mainland USA region
 #' plot_hashtag(mytweets,
-#'              region = region = "USA(?!:Alaska|:Hawaii)",
+#'              region = "USA(?!:Alaska|:Hawaii)",
 #'              hashtag = "breakfast",
 #'              ignore_case=TRUE,
 #'              alpha=1)
@@ -82,6 +86,10 @@ plot_hashtag <- function(data, region = ".", alpha = 0.01, hashtag = "", ignore_
   # remove opacity if sample size is small
   if (nrow(data[which(sapply(data$hashtags, FUN=function(X) hashtag %in% X)), ]) < 100) alpha <- 1
 
+  # restore user options on exit
+  oldpar <- graphics::par(no.readonly = TRUE)
+  on.exit(graphics::par(oldpar))
+
   ## plot state boundaries
   graphics::par(mar = c(0, 0, 3, 0))
   maps::map("world", region,  ...)

cran-comments.md

@@ -0,0 +1,14 @@
+## Resubmission
+This is a resubmission. In this version I have:
+
+* Written package names, software names and API names in single quotes in title and description.
+
+* Added missing \value to load_tweets.Rd describing the output.
+
+* Fixed unexecutable code in man/plot_hashtag.Rd.
+
+* Added on.exit() calls to `plot_hashtag` and `plot_tweets` functions in plots.R to ensure users options are not changed by function calls to those functions.
+
+## R CMD check results
+There were no ERRORs, WARNINGs or NOTEs.
+