Fix content bug (bigger release coming soon)

Oliver Keyes · Oliver Keyes · commit b425eeff4885 · 2017-11-08T22:12:23.000-08:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: WikipediR
 Type: Package
 Title: A MediaWiki API Wrapper
-Version: 1.5.0
-Date: 2017-02-04
+Version: 1.6.0
+Date: 2017-11-06
 Author: Oliver Keyes [aut, cre], Brock Tilbert [ctb], Clemens Schmid [aut]
 Maintainer: Oliver Keyes <ironholds@gmail.com>
 Description: A wrapper for the MediaWiki API, aimed particularly at the
diff --git a/R/content.R b/R/content.R
@@ -134,7 +134,7 @@ page_content <- function(language = NULL, project = NULL, domain = NULL,
     prop   = properties
   )
   if(!is.null(page_id)){
-    query_param$page_id <- handle_limits(page_id, 1)
+    query_param$pageid <- handle_limits(page_id, 1)
   } else {
     query_param$page <- handle_limits(page_name, 1)
   }
diff --git a/R/parse.R b/R/parse.R
@@ -6,12 +6,18 @@ parse_response.rchanges <- function(x){
   x <- x$query$recentchanges
   return(x)
 }
+
 parse_response.rcontent <- function(x){
   x <- x$query$pages
   names(x) <- NULL
   return(x)
 }
 
+parse_response.pcontent <- function(x){
+  x <- x$parse
+  return(x)
+}
+
 parse_response.rdiff <- function(x){
   x <- x$query$pages
   names(x) <- NULL

Original file line number	Diff line number	Diff line change
`@@ -134,7 +134,7 @@ page_content <- function(language = NULL, project = NULL, domain = NULL,`
`134`	`134`	`prop = properties`
`135`	`135`	`)`
`136`	`136`	`if(!is.null(page_id)){`
`137`		`- query_param$page_id <- handle_limits(page_id, 1)`
	`137`	`+ query_param$pageid <- handle_limits(page_id, 1)`
`138`	`138`	`} else {`
`139`	`139`	`query_param$page <- handle_limits(page_name, 1)`
`140`	`140`	`}`