cran submission 0.3.0

easystats · Mar 1, 2022 · f8fa4ea · f8fa4ea
1 parent 9a24180
commit f8fa4ea
Show file tree

Hide file tree

Showing 6 changed files with 17 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: datawizard
 Title: Easy Data Wrangling
-Version: 0.2.3.9005
+Version: 0.3.0
 Authors@R: c(
     person("Dominique", "Makowski", , "dom.makowski@gmail.com", role = "aut",
            comment = c(ORCID = "0000-0001-5375-9967", Twitter = "@Dom_Makowski")),

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# datawizard 0.2.3.9005
+# datawizard 0.3.0
 
 - New functions:
 
@@ -10,6 +10,8 @@
 
   * To rotate data frames: `data_rotate()`.
 
+  * To reverse score variables: `data_reverse()`.
+
   * To merge/join multiple data frames: `data_merge()` (or its alias
     `data_join()`).
 

diff --git a/cran-comments.md b/cran-comments.md
@@ -13,5 +13,5 @@
 
 We checked 11 reverse dependencies, comparing R CMD check results across CRAN and dev versions of this package.
 
- * We saw 1 new problem: *modelbased* package is already broken on CRAN and its breakage isn't related to the current update.
+ * We saw 0 new problems.
  * We failed to check 0 packages.
diff --git a/inst/WORDLIST b/inst/WORDLIST
@@ -21,6 +21,9 @@ Mundlak
 PHQ
 PSU
 REWB
+Ranktransform
+Recode
+Recoding
 Rescale
 Rescaling
 Routledge
@@ -43,6 +46,8 @@ geoms
 github
 https
 io
+labelled
+labelling
 leptokurtic
 lme
 meaned
@@ -55,6 +60,10 @@ pockety
 proprties
 pth
 quartiles
+recode
+recoded
+recodes
+recoding
 reproducibility
 rescale
 rescaled

diff --git a/vignettes/demean.Rmd b/vignettes/demean.Rmd
@@ -165,7 +165,7 @@ model_parameters(fe_model2)[2:3, ]
 library(lfe)
 fe_model3 <- felm(
   QoL ~ time + phq4 | ID,
-   data = qol_cancer
+  data = qol_cancer
 )
 model_parameters(fe_model3)
 ```

diff --git a/vignettes/standardize_data.Rmd b/vignettes/standardize_data.Rmd
@@ -198,7 +198,7 @@ emotion <- emotion %>% filter(Emotion_Condition == "Negative")
 
 # Summary
 emotion %>%
-  subset(!(is.na(Subjective_Valence) | is.na(Autobiographical_Link))) %>% 
+  subset(!(is.na(Subjective_Valence) | is.na(Autobiographical_Link))) %>%
   group_by(Participant_ID) %>%
   summarise(
     n_Trials = n(),
@@ -340,7 +340,7 @@ print_participants <- function(data) {
       Mean = mean(Subjective_Valence),
       SD = sd(Subjective_Valence)
     ) %>%
-    cbind(DF = df_name, .) %>% 
+    cbind(DF = df_name, .) %>%
     head(5) %>%
     select(DF, everything())
 }