R/convert_str_to_obj.R

In InsightRX/json2test: Run R package tests specified in JSON

#' Internal function used for testing
#'
#' @param x string
convert_str_to_obj <- function(x) {
  x <- stringr::str_replace(x, "Rscript api.R ", "")
  s <- stringr::str_split(x, " ")[[1]]
  s2 <- stringr::str_split(s, "=")
  obj <- list()
  for(i in seq(s2)) {
    obj[[s2[[i]][1]]] <- s2[[i]][2]
  }
  obj
}