R/sv_abi_rstudio.R

In rsimon64/FragmanUI: User Interface for Fragman

sv_abi_rstudio <- function(path) {
  # message("Escoreos are dispopnibles en la variable 'scores' e en 'scores_bin'.")
  # fp <- stringr::str_replace_all(path$path_results(), "\\\\", "/")
  # fc <- file.path(fp, "scores.csv")
  # fb <- file.path(fp, "scores_bin.csv")
  # fs <- file.path(fp, "samples_low_quality.csv")
  # rstudioapi::sendToConsole(paste0("scores <- read.csv('",fc,"')"), execute = TRUE)
  # rstudioapi::sendToConsole(paste0("samples_low_quality <- read.csv('",fs,"')"), execute = TRUE)
  # rstudioapi::sendToConsole(paste0("scores_bin <- read.csv('",fb,"')"), execute = TRUE)
  # rstudioapi::sendToConsole(paste0("folder <- '",
  #                                  stringr::str_replace_all(path$path(), "\\\\", "/"), "'"), execute = TRUE)
  #
  # msg <- paste("Resultados grabados en", fp)
  # message(msg)
}