Downweighted 'fucking' and added 'fuckin' close #20

        ## this was done b/c f bomb is more of a valence shifter usually....but
        ## can be a negator.  By making it a small negator it will still pull a
        ## sentence down but if it is paired with 'awesome' the awesome will
        ## outweigh it and the polarity direction will be maintained.  The -in
        ## version is almost always negative (we're more confident)
        ## see: #20

NEWS

@@ -55,6 +55,12 @@ MINOR FEATURES
 
 IMPROVEMENTS
 
+* `hash_sentiment_jockers_rinker` now contains the word 'fuckin'.  Additionally,
+  the word 'fucking' has a milder negative value because this word, though often 
+  used as a negator, is also used as a amplifier.  By reducing it's weight it 
+  allows more positive words to have more pull but if no polarized words exist 
+  'fucking' will still keep the typical negative direction of the clause.
+
 CHANGES
 
 

NEWS.md

@@ -55,5 +55,11 @@ lexicon 1.0.1 -
 
 **IMPROVEMENTS**
 
+* `hash_sentiment_jockers_rinker` now contains the word 'fuckin'.  Additionally,
+  the word 'fucking' has a milder negative value because this word, though often 
+  used as a negator, is also used as a amplifier.  By reducing it's weight it 
+  allows more positive words to have more pull but if no polarized words exist 
+  'fucking' will still keep the typical negative direction of the clause.
+
 **CHANGES**
 

R/hash_sentiment_jockers_rinker.R

@@ -14,7 +14,7 @@
 #' @keywords datasets
 #' @name hash_sentiment_jockers_rinker
 #' @usage data(hash_sentiment_jockers_rinker)
-#' @format A data frame with 11,709 rows and 2 variables
+#' @format A data frame with 11,710 rows and 2 variables
 #' @references Jockers, M. L. (2017). Syuzhet: Extract sentiment and plot arcs
 #' from Text. Retrieved from https://github.com/mjockers/syuzhet \cr \cr
 #'

R/lexicon-package.R

@@ -7,3 +7,4 @@
 NULL
 
 
+

inst/scraping_scripts/sentiment Lexicon Scripts/jockers_rinker.R

@@ -5,12 +5,31 @@ hash_sentiment_jockers_rinker <- dplyr::bind_rows(
     hash_sentiment_jockers,
     dplyr::data_frame(
         x = c("the shit", "the bomb", "bad ass", "yeah right",
-              "cut the mustard", "kiss of death"),
-        y = c(1, 1, 1, -1, 1, -1)
+              "cut the mustard", "kiss of death", "back handed", "blow smoke", 
+            "blowing smoke", "break a leg", "effing", "in the black", 
+            "in the red", "under the weather"),
+        y = c(1, 1, 1, -1, 1, -1, -0.5, -0.5, -0.5, 0.5, -0.1, 0.5, -0.5, -0.5)
     )
 ) %>%
-sentimentr::as_key()
+    sentimentr::as_key() %>%
+    sentimentr::update_key(drop = 'fucking') %>%
+    sentimentr::update_key(x = dplyr::data_frame(
+        ## this was done b/c f bomb is more of a valence shifter usually....but 
+        ## can be a negator.  By making it a small negator it will still pull a 
+        ## sentence down but if it is paired with 'awesome' the awesome will 
+        ## outweigh it and the polarity direction will be maintained.  The -in 
+        ## version is almost always negative (we're more confident) 
+        ## see: https://github.com/trinker/lexicon/issues/20
+
+        x = c('fucking', 'fuckin'), 
+        y = c(-.15, -.5)
+    ))
 
 pax::new_data(hash_sentiment_jockers_rinker)
 
 
+# anti_join(
+#     lexicon::hash_sentiment_jockers_rinker,
+#     hash_sentiment_jockers_rinker, by = 'x'
+# ) %>%
+#     dput()