We cannot assume https on all possible mediawiki instances

Oliver Keyes · Oliver Keyes · commit 2d1e9040e46b · 2017-02-04T21:59:33.000-08:00
diff --git a/R/query.R b/R/query.R
@@ -55,7 +55,7 @@ url_gen <- function(language, project, domain = NULL, ...){
       url <- sprintf("https://%s.%s.org/w/api.php", language, project)
     }
   } else {
-    url <- sprintf("https://%s/w/api.php", domain)
+    url <- sprintf("http://%s/w/api.php", domain)
   }
   
   #Return

Original file line number	Diff line number	Diff line change
`@@ -55,7 +55,7 @@ url_gen <- function(language, project, domain = NULL, ...){`
`55`	`55`	`url <- sprintf("https://%s.%s.org/w/api.php", language, project)`
`56`	`56`	`}`
`57`	`57`	`} else {`
`58`		`- url <- sprintf("https://%s/w/api.php", domain)`
	`58`	`+ url <- sprintf("http://%s/w/api.php", domain)`
`59`	`59`	`}`
`60`	`60`
`61`	`61`	`#Return`