Update User Level Calculation

Change user level calculation to only include unique accounts.
kurtawirth · Nov 6, 2018 · a12c180 · a12c180
1 parent 9560af0
commit a12c180
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: botscan
 Type: Package
 Title: Scans Twitter Conversations For Bots
-Version: 1.0.7
+Version: 2.0.0
 Author: Kurt Wirth and Ryan T. Moore
 Maintainer: Kurt Wirth <KurtAWirth@gmail.com>
 Description: This package accepts any Twitter search query as an input and

diff --git a/R/botscan.R b/R/botscan.R
@@ -100,10 +100,6 @@ botscan <- function(x, timeout = 30, n_tweets = 1000, retweets = FALSE, threshol
 
   assign("df", df_userbots, envir=globalenv())
 
-  # Check scores against given threshold
-
-  nbots <- sum(df_userbots$cap.universal > threshold)
-
   # Filter out accounts that fall below the given threshold
 
   bots <- dplyr::filter(df_userbots, (df_userbots$cap.universal > threshold))
@@ -113,6 +109,13 @@ botscan <- function(x, timeout = 30, n_tweets = 1000, retweets = FALSE, threshol
 
   if(user_level) {
 
+    # Check scores against given threshold
+
+    nbots <- sum(
+      (tweets$screen_name %in% bots$user.screen_name) &
+        (df_userbots$cap.universal > threshold)
+    )
+
     n <- length(unique(tweets$screen_name))
 
     return(nbots / n)