Use get() instead of getS3method() for R < 3.3 (#205)

krlmlr · hadley · commit be93615ee4b2 · 2016-06-14T07:35:13.000-05:00
* use get() instead of getS3method() for R &lt; 3.3

* NEWS
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,8 @@
 # tidyr 0.5.0.9000
 
+* Restored compatibility with R < 3.3.0 by avoiding `getS3method(envir = )` (#205, @krlmlr).
+
+
 # tidyr 0.5.0
 
 ## New functions
diff --git a/R/spread.R b/R/spread.R
@@ -147,7 +147,8 @@ col_names <- function(x, sep = NULL) {
 }
 
 as_data_frame_matrix <- function(x) {
- utils::getS3method("as_data_frame", "matrix", envir = asNamespace("tibble"))(x)
+  # getS3method() only available in R >= 3.3
+  get("as_data_frame.matrix", asNamespace("tibble"), mode = "function")(x)
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -147,7 +147,8 @@ col_names <- function(x, sep = NULL) {`
`147`	`147`	`}`
`148`	`148`
`149`	`149`	`as_data_frame_matrix <- function(x) {`
`150`		`- utils::getS3method("as_data_frame", "matrix", envir = asNamespace("tibble"))(x)`
	`150`	`+ # getS3method() only available in R >= 3.3`
	`151`	`+ get("as_data_frame.matrix", asNamespace("tibble"), mode = "function")(x)`
`151`	`152`	`}`
`152`	`153`
`153`	`154`	`#' @export`