From bba67dd1ec203de709ad0dc59e728424ff3b5e15 Mon Sep 17 00:00:00 2001 From: ThoDuyNguyen Date: Wed, 26 Apr 2017 23:48:14 +0700 Subject: [PATCH] Fix harcode --- R/sq_insert.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/sq_insert.R b/R/sq_insert.R index 205adaa..4d5c96d 100644 --- a/R/sq_insert.R +++ b/R/sq_insert.R @@ -30,8 +30,8 @@ sq_insert <- function(.into, ..., .data = parent.frame(), .split = 75, .quote = names[names == ""] <- lapply(symbols[names == ""], as.character) INTO <- sq_set(sq_text("INSERT INTO @Into @Columns"), - Into = sq_value(.into, "["), - Columns = sq_value(as.list(names), "[")) + Into = sq_value(.into, .quote), + Columns = sq_value(as.list(names), .quote)) enclos <- calling_env()