re-submit

Author: JohnMount

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: rqdatatable
 Type: Package
 Title: 'rquery' for 'data.table'
-Version: 1.1.0
+Version: 1.1.1
 Date: 2018-09-20
 Authors@R: c(
     person("John", "Mount", email = "jmount@win-vector.com", role = c("aut", "cre")),

NEWS.md

@@ -1,5 +1,5 @@
 
-# rqdatatable 1.1.0 2018/09/20
+# rqdatatable 1.1.1 2018/09/20
 
   * alternate data.table implementation path.
   * force parent.frame.

R/make_dt_lookup_by_column.R

@@ -10,22 +10,20 @@
 #'
 #' @examples
 #'
-#' library("rqdatatable")
-#'
 #' df = data.frame(x = c(1, 2, 3, 4),
 #'                 y = c(5, 6, 7, 8),
 #'                 choice = c("x", "y", "x", "z"),
 #'                 stringsAsFactors = FALSE)
+#' make_dt_lookup_by_column("choice", "derived")(df)
 #'
-#' # base-R implementation
-#' df %.>% lookup_by_column(., "choice", "derived")
-#' # # data.table implementation (requies rquery 1.1.0, or newer)
-#' # df %.>% lookup_by_column(., "choice", "derived",
-#' #                          f_dt_factory = rqdatatable::make_dt_lookup_by_column)
+#' # # base-R implementation
+#' # df %.>% lookup_by_column(., "choice", "derived")
+#' # # # data.table implementation (requies rquery 1.1.0, or newer)
+#' # # df %.>% lookup_by_column(., "choice", "derived",
+#' # #                          f_dt_factory = rqdatatable::make_dt_lookup_by_column)
 #'
 #' @export
 #'
-#' @seealso \code{\link[rquery]{lookup_by_column}}
 #'
 make_dt_lookup_by_column <- function(pick, result) {
   force(pick)