From ff39b5d674794ad927ea898632780856a4c06987 Mon Sep 17 00:00:00 2001
From: Pablo Gomez Barreiro <pablogomezbr@hotmail.es>
Date: Sat, 17 Aug 2024 15:28:02 +0100
Subject: [PATCH] 0.0.1.4 initial

---
 DESCRIPTION            |  2 +-
 R/special_issue_find.R | 23 +++++++++++++++++++++--
 2 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 839c307..3b4c9e9 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -9,7 +9,7 @@ VignetteBuilder: knitr
 License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 LazyData: true
 Imports: 
     dplyr,
diff --git a/R/special_issue_find.R b/R/special_issue_find.R
index c3c6315..2db7e5f 100644
--- a/R/special_issue_find.R
+++ b/R/special_issue_find.R
@@ -1,6 +1,7 @@
 #' Returns a vector of URLs with special issues from target journal
 #' @param journal MDPI journal code
 #' @param type "closed", "open" or "all" special issues. "closed" by default.
+#' @param years A vector containing special issues closure dates to limit the search to certain years
 #' @import magrittr rvest dplyr 
 #' @export special_issue_find
 #' @return A vector.
@@ -10,7 +11,7 @@
 #' }
 
 
-special_issue_find <- function(journal,type="closed") {
+special_issue_find <- function(journal,type="closed",years=NULL) {
   
   si_url<-data.frame()
   
@@ -30,6 +31,15 @@ special_issue_find <- function(journal,type="closed") {
       mutate(full_url=paste0("https://www.mdpi.com",.))%>%
       distinct()
     
+    year<-data%>%
+      html_nodes("strong:nth-child(3)")%>%
+      html_text2()%>%
+      gsub(".* ","",.)%>%
+      as.data.frame()%>%
+      rename(year=1)
+    
+    links<-cbind(links,year)
+    
     si_url<-bind_rows(si_url,links)
     
     if (nrow(si_url)!=nrow(distinct(si_url))){
@@ -40,7 +50,16 @@ special_issue_find <- function(journal,type="closed") {
     
   }
   
-  special_issues<-si_url$full_url
+  if (is.null(years)) {
+    
+    special_issues<-si_url$full_url
+    
+  }else{
+    special_issues<-si_url%>%
+      filter(year %in% years)
+    
+    special_issues<-special_issues$full_url
+  }
   
   special_issues