Convert Datenrahmen Spalte verketteten Zeichenfolge ohne Anführungszeichen

Question

ich data.frame wie dieses:

df = data.frame(str_col = c("when xyz = 'some_string' then 'this_string'", 
          "when xyz = 'some_string2' then 'this_string'")) 

Ich möchte die str_col zu einem Komma getrennt Vektor ohne doppelte Anführungszeichen wie konvertieren:

c(when xyz = 'some_string' then 'this_string', when xyz = 'some_string2' then 'this_string')

ich dies versuchte: str_vec <- paste(shQuote(df$str_col), collapse=",")

Aber ich bekomme diese:

[1] "\"when xyz = 'some_string' then 'this_string'\",\"when xyz = 'some_string2' then 'this_string'\"" 

Ich möchte nicht den umgekehrten Schrägstrich oder doppelte Anführungszeichen. Ich versuche eine SQL-Abfrage zu erstellen.

Answer 1

ich glaube, Sie noquote statt shQuote verwenden sollten:

str_vec <- paste(noquote(df$str_col), collapse=",") 

die gibt:

> str_vec 
[1] "when xyz = 'some_string' then 'this_string',when xyz = 'some_string2' then 'this_string'" 

---

Wenn Sie die doppelten Anführungszeichen als auch um das obige Ergebnis wollen elimenate, Sie Wickeln Sie es wieder in noquote:

str_vec <- noquote(paste(noquote(df$str_col), collapse=",")) 

die gibt:

> str_vec 
[1] when xyz = 'some_string' then 'this_string',when xyz = 'some_string2' then 'this_string'