R粘贴字符串折叠 - 如何用引号保留字符串？

Question

我在将两个字符串粘贴在一起时遇到引号问题。

我想要这样的输出:query="sql query","port"

我试过了:

      query<-c("sql query","port")
      paste(queryString,collapse=",")

给出:“sql 查询，端口”

也试过这个:

        query<-c("sql query")
        query<-paste(query,"port",sep=",")

其中还给出:“sql 查询，端口”

如果在正确的位置没有引号，查询将无法运行。我怎样才能保留它们？

Answer 1

试试这个:

queryq <- toString(shQuote(query))

给出:

cat(queryq, "\n")
## "sql query", "port"