add option to read query directly

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: read.sql
 Title: Reads .SQL Files And Execute Them
-Version: 0.3.0
+Version: 0.3.1
 Authors@R: 
     person(
       given = "Vikram",

R/read_sql.R

@@ -4,26 +4,30 @@
 #' @description This function creates an object of type sql_query by reading the sql file.
 #'
 #' @param filepath path to an SQL file which has a query
+#' @param sql_query_str a proper sql statement string if you don't want to read from a file
 #' @param method Only 2 methods are allowed get and post short for getQuery and sendstatement
-#'
 #' @return character string
 #'
 #' @export
-
 rs_read_query <- function(
     filepath,
+    sql_query_str = "",
     method = "get") {
   method <- tolower(method)
 
   if (!tolower(method) %in% c("get", "post")) {
     stop("method can only be get or post")
   }
 
-  sql_query <- readChar(
-    con = filepath,
-    nchars = file.info(filepath)$size,
-    useBytes = TRUE
-  )
+  if (nchar(sql_query_str) > 1) {
+    sql_query <- sql_query_str
+  } else {
+    sql_query <- readChar(
+      con = filepath,
+      nchars = file.info(filepath)$size,
+      useBytes = TRUE
+    )
+  }
 
   sql_query <- structure(
     .Data = list(