library(magrittr)
library(tibble)
library(stringr)
library(dplyr)
#library(readr)
dir <- normalizePath(tempdir(),winslash = "/")
#tasks_running <- system("tasklist", intern = TRUE)
#writeLines(tasks_running, con = file.path(dir,'tasks_running.txt'))
#t_running <- readLines(con = file.path(dir,'tasks_running.txt'))
tasks_list = system.file("extdata", "tasks_running.txt",
package = "lazytrade")
t_running <- readLines(con = tasks_list)
#generate task kill command for this application
util_find_pid(tasks_running = t_running,
pid_pattern = 'terminal.exe')
util_find_pid(tasks_running = t_running,
pid_pattern = 'chrome.exe')
Run the code above in your browser using DataLab