Question

我有這樣一個data.frame：

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

我想將str_col以逗號分隔的矢量轉換不喜歡雙引號：

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

我是想這樣的： str_vec <- paste(shQuote(df$str_col), collapse=",")

但我得到這個：

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

我不想反斜槓或雙引號。我正在嘗試構造一個SQL查詢。

Answer 1

我認爲你應該使用noquote，而不是shQuote：

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

這給：

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

---

如果你想elimenate圍繞上述結果的雙引號，以及，你再次包裹在noquote：

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

這給：

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