R equivalent

olgatsiouri1996 · Nov 3, 2020 · 2dc5c7f · 2dc5c7f
1 parent dc28f6d
commit 2dc5c7f
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/text_manipulation/print_or_remove_lines_by_pattern.R b/text_manipulation/print_or_remove_lines_by_pattern.R
@@ -0,0 +1,9 @@
+#!/usr/bin/env Rscript
+library(glue)
+library(stringr)
+args = commandArgs(trailingOnly=TRUE)
+glue("usage: print_or_remove_lines_by_pattern.R input_txt column_name pattern boolean_print_or_remove output_txt")
+# main
+input_txt <- read.delim(args[1], header= as.logical(args[2]))
+filtered_txt <- input_txt[str_detect(input_txt[ ,as.numeric(args[3])], args[4], negate = as.logical(args[5])), ] 
+write.table(filtered_txt, file = args[6],quote = FALSE,row.names = FALSE,sep = "\t",eol = "\n")