fix #37 and version bump

wikipathways · Sep 1, 2024 · 7e7f654 · 7e7f654
1 parent cf26532
commit 7e7f654
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: rWikiPathways
 Type: Package
 Title: rWikiPathways - R client library for the WikiPathways API
-Version: 1.25.0
-Date: 2023-10-24
+Version: 1.25.1
+Date: 2024-09-01
 Authors@R: c(person("Egon", "Willighagen", role = c("aut","cre"),
                      email = "[email protected]",
                      comment = c(ORCID = "0000-0001-7542-0286")),

diff --git a/NEWS b/NEWS
@@ -1,3 +1,5 @@
+Changes in version 1.25.1
++ bug fix: downloadPathwayArchive scrapes "File Name" column
 Changes in version 1.22.0
 + Reimplementation of every function, replacing web service with static JSON
 + getRecentChanges now returns data.frame of pathways per last-edit date 

diff --git a/R/downloadPathwayArchive.R b/R/downloadPathwayArchive.R
@@ -44,7 +44,7 @@ downloadPathwayArchive <- function(date='current',organism=NULL, format=c('gpml'
         if (date == 'current'){ #determine filename
             data.url <- getURL(paste0('https://data.wikipathways.org/current/',format), 
                                followlocation=TRUE, .opts=list(useragent="Mozila 5.0"))
-            curr.files <- readHTMLTable(data.url)[[1]]$Filename
+            curr.files <- readHTMLTable(data.url)[[1]]$`File Name`
             filename <- grep(sub("\\s","_",organism), curr.files, value=TRUE)
             if (length(filename) == 0)
                 stop ('Could not find a file matching your specifications. Try browsing https://data.wikipathways.org.')