fixed typo in the filter

fun.R

@@ -82,7 +82,7 @@ add_science_filter <- function(data){
     }
 
 add_nature_filter <- function(data){
-    data$filter <- as.numeric(grepl("/s", data$url))
+    data$filter <- as.numeric(!grepl("/s", data$url))
     return(data)
     }