Piping Unix-Befehle

Question

Dies ist ein Follow-up zu this Frage. Ich habe this Datei fester Breite, wo die Spaltenbreiten sind 34 2 3 2 2 1 2 2 1 1 2 2 1 2 2 2 und 65. Ich möchte dies in R nach dem Löschen der ersten und letzten Spalten lesen, wo die Die zweite Spalte hat den Wert "07". Dank Matte, wenn ich die TXT-Datei zu csv nur konvertieren will, ich es mit diesem Code tun.

awk -v FIELDWIDTHS='34 2 3 2 2 1 2 2 1 1 2 2 1 2 2 2 65' -v OFS=',' '($2=='07'){ $1=$1 ''; print }' </filepath/pipe.txt | cut --delimiter=',' --fields=2- > /filepath/parsed.csv 

Natürlich kann ich dann lesen Sie die parsed.csv Datei in, aber ich versuche, es zu tun ein Schuss mit pipe(). wenn ich Rohr dieses in R versuchen, es hängt:

a = read.csv(pipe("awk -v FIELDWIDTHS='34 2 3 2 2 1 2 2 1 1 2 2 1 2 2 2 65' -v OFS=',' '($2=='07'){ $1=$1 ''; print }' 
        </filepath/pipe.txt 
        | cut --delimiter=',' --fields=2-") 
      , header=F, colClasses="character") 

Answer 1

Ich bin nicht sicher pipe() aber ich würde es mit system() tun.

library(stringr) 
txt <- system("awk -v FIELDWIDTHS='34 2 3 2 2 1 2 2 1 1 2 2 1 2 2 2 65' -v OFS=',' '($2=='07'){ $1=$1 ''; print }' < pipe.txt | cut --delimiter=',' --fields=2-", intern=T) 
do.call(rbind, str_split(txt, ",")) 

Answer 2

jigr (und andere Leser) - Ich fand die seltsamste Eigenart in R/RStudio. Der Code in meiner Frage perfekt funktioniert, vorausgesetzt, es gibt keinen Zeilenumbruch:

a = read.csv(pipe("awk -v FIELDWIDTHS='34 2 3 2 2 1 2 2 1 1 2 2 1 2 2 2 65' -v OFS=',''($2=='07'){ $1=$1 ''; print }' </filepath/pipe.txt | cut --delimiter=',' --fields=2-"), header=F, colClasses="character") 

Ich habe nicht die geringste Ahnung, warum dies geschieht.