bump to 0.1.1 deal with Error in if, the condition has length > 1 on …

…r_version detection

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: beaware
 Title: R Session Tracking Tool For RSworkbench
-Version: 0.1.0
+Version: 0.1.1
 Authors@R: c(
     person("Cervan", "Girard", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-4816-4624")),
@@ -43,4 +43,4 @@ VignetteBuilder:
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.2
+RoxygenNote: 7.3.2

R/get_r_version.R

@@ -24,7 +24,10 @@ get_r_version <- function(pids){
     cmd <- paste0("cat /proc/",x,"/environ")
     r_version <- attempt(system(cmd, intern = TRUE), msg = "Cannot run cat of /proc/pid, please check your rights", silent = TRUE) %>%
       str_extract(".+/R/(.+\\d.\\d.\\d|\\d.\\d.\\d)") %>%
-      str_extract("\\d.\\d.\\d")
-    data.frame("pid" = x, r_version = if(is.na(r_version)){"Not found"}else{r_version})
+      str_extract("\\d.\\d.\\d") %>%
+      unique() %>%
+      sort() %>%
+      .[1]
+    data.frame("pid" = x, r_version = if(isTRUE(is.na(r_version))){"Not found"}else{r_version})
   })
 }

vignettes/how-to.Rmd

@@ -10,6 +10,7 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
   collapse = TRUE,
+  eval = FALSE,
   comment = "#>"
 )
 ```

vignettes/memory.Rmd

@@ -10,6 +10,7 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
   collapse = TRUE,
+  eval = FALSE,
   comment = "#>"
 )
 ```