r - Crash Boruta plot -


i tried run next code:

doc.plot <- addplot(doc = doc.plot,                     fun = function() plot(boruta.plot,las=2,                                           xlim = c(55,65)),                     vector.graphic = true) 

however, rstudio has fatal error. xlim = c(55,65) problem code, because without part plot function worked. reporters version 0.8.6. please fix bug.

# wrtie example reporters crush library(boruta) library(reporters)  # create example data fact <- as.factor(c(rep(x = rbinom(50,1,0.5),2))) <- rnorm(length(fact)) b <- rlnorm(length(fact)) c <- as.factor(rbinom(length(fact),size = 20,0.75)) example.data <- data.frame(fact,a,b,c) example.boruta <- boruta(fact~., example.data) plot(example.boruta, las =2)  sessioninfo() # r version 3.3.1 (2016-06-21) # platform: x86_64-w64-mingw32/x64 (64-bit) # running under: windows >= 8 x64 (build 9200) #  # locale: #   [1] lc_collate=russian_russia.1251  lc_ctype=russian_russia.1251    lc_monetary=russian_russia.1251 # [4] lc_numeric=c                    lc_time=russian_russia.1251     #  # attached base packages: #   [1] stats     graphics  grdevices utils     datasets  methods   base      #  # other attached packages: #   [1] reporters_0.8.6     reportersjars_0.0.2 boruta_5.0.0        ranger_0.5.0        #  # loaded via namespace (and not attached): #   [1] rcpp_0.12.6       png_0.1-7         digest_0.6.9      mime_0.5          r.methodss3_1.7.1 r6_2.1.2          # [7] xtable_1.8-2      gdtools_0.0.7     r.oo_1.20.0       r.utils_2.3.0     xml2_1.0.0        tools_3.3.1       # [13] shiny_0.13.2      httpuv_1.3.3      htmltools_0.3.5   rjava_0.9-8       rvg_0.1.0         knitr_1.13    # save use reporters doc <- null doc <- docx(title = 'crash boruta') doc <- addparagraph(doc, 'example') doc <- addplot(doc = doc,                fun = function()                  plot(example.boruta,                     las=2,                     xlim = c(4,6)),                vector.graphic = true) writedoc(doc = doc, 'example crash boruta.docx') # worked  doc <- null doc <- docx(title = 'crash boruta') doc <- addparagraph(doc, 'example') doc <- addplot(doc = doc,                fun = function()                  plot(example.boruta,                       las=2,                       xlim = c(3,6)),                vector.graphic = true)              ###             ###             ###           ##   ##         ##      ##       ##         ##       ## hanged##       ##  himself ##        ##       ##         ##     ##          ##   ##           #### 

Comments