some error in sample_locally about live HOT 2 CLOSED

nie jestem w stanie odtworzyc bledu
moje sessionInfo

R version 3.4.2 (2017-09-28)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 17.10

Matrix products: default
BLAS: /usr/lib/x86_64-linux-gnu/blas/libblas.so.3.7.1
LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.7.1

locale:
[1] LC_CTYPE=pl_PL.UTF-8 LC_NUMERIC=C LC_TIME=pl_PL.UTF-8
[4] LC_COLLATE=pl_PL.UTF-8 LC_MONETARY=pl_PL.UTF-8 LC_MESSAGES=pl_PL.UTF-8
[7] LC_PAPER=pl_PL.UTF-8 LC_NAME=C LC_ADDRESS=C
[10] LC_TELEPHONE=C LC_MEASUREMENT=pl_PL.UTF-8 LC_IDENTIFICATION=C

attached base packages:
[1] stats graphics grDevices utils datasets methods base

other attached packages:
[1] bindrcpp_0.2 bigstep_0.7.4 forcats_0.2.0.9000 stringr_1.2.0 purrr_0.2.4
[6] readr_1.1.1 tidyr_0.7.2 tibble_1.3.4 ggplot2_2.2.1 tidyverse_1.2.1
[11] live_0.2.0 dplyr_0.7.4 mlr_2.11 ParamHelpers_1.10

loaded via a namespace (and not attached):
[1] RcppEigen_0.3.3.3.1 reshape2_1.4.2 splines_3.4.2 haven_1.1.0 lattice_0.20-35
[6] colorspace_1.3-2 survival_2.41-3 rlang_0.1.4 e1071_1.6-8 R.oo_1.21.0
[11] foreign_0.8-69 glue_1.2.0 R.utils_2.6.0 speedglm_0.3-2 modelr_0.1.1
[16] readxl_1.0.0 matrixStats_0.52.2 bindr_0.1 plyr_1.8.4 munsell_0.4.3
[21] gtable_0.2.0 cellranger_1.1.0 R.methodsS3_1.7.1 rvest_0.3.2 psych_1.7.8
[26] knitr_1.17 parallelMap_1.3 class_7.3-14 parallel_3.4.2 broom_0.4.3
[31] Rcpp_0.12.13 scales_0.5.0 backports_1.1.1 checkmate_1.8.5 jsonlite_1.5
[36] mnormt_1.5-5 hms_0.3 stringi_1.1.6 BBmisc_1.11 forestplot_1.7.2
[41] grid_3.4.2 cli_1.0.0 tools_3.4.2 magrittr_1.5 lazyeval_0.2.1
[46] randomForest_4.6-12 bigmemory.sri_0.1.3 bigmemory_4.5.31 crayon_1.3.4 pkgconfig_2.0.1
[51] MASS_7.3-47 Matrix_1.2-11 data.table_1.10.4-3 xml2_1.1.1 lubridate_1.7.1
[56] assertthat_0.2.0 httr_1.3.1 rstudioapi_0.7 R6_2.2.2 nlme_3.1-131
[61] compiler_3.4.2

from live.

Najważniejsze pakiety mamy w tych samym wersjach.
W pakietach lepiej nie używać %>%
w analizach jest swietny ale w pakietach bardzo bardzo utrudnia debugowanie

stacktrace:

Enter a frame number, or 0 to exit   
 1: sample_locally(data = winequality_red, explained_instance = winequality_red[5, ], 
 2: similar %>% dplyr::mutate_if(is.numeric, function(x) as.vector(scale(x)))
 3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
 4: eval(quote(`_fseq`(`_lhs`)), env, env)
 5: eval(quote(`_fseq`(`_lhs`)), env, env)
 6: `_fseq`(`_lhs`)
 7: freduce(value, `_function_list`)
 8: withVisible(function_list[[k]](value))
 9: function_list[[k]](value)
10: dplyr::mutate_if(., is.numeric, function(x) as.vector(scale(x)))
11: mutate(.tbl, !(!(!funs)))
12: mutate.data.frame(.tbl, !(!(!funs)))
13: as.data.frame(mutate(tbl_df(.data), ...))
14: mutate(tbl_df(.data), ...)
15: mutate.tbl_df(tbl_df(.data), ...)
16: mutate_impl(.data, dots)

from live.