From 1447c8f460e10d474349dfa01866d42168c83146 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Mon, 24 Nov 2014 16:22:45 -0600
Subject: [PATCH] Adding make.names to column names.
---
R/importRDB1.r | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/R/importRDB1.r b/R/importRDB1.r
index ce262722..3aac7428 100644
--- a/R/importRDB1.r
+++ b/R/importRDB1.r
@@ -23,7 +23,7 @@
#' endDate <- "2012-10-01"
#' offering <- "00003"
#' property <- "00060"
-#' \dontrun{
+#'
#' obs_url <- constructNWISURL(siteNumber,property,
#' startDate,endDate,"dv",format="tsv")
#' data <- importRDB1(obs_url)
@@ -47,7 +47,7 @@
#' fileName <- "RDB1Example.txt"
#' fullPath <- file.path(filePath, fileName)
#' importUserRDB <- importRDB1(fullPath)
-#' }
+#'
importRDB1 <- function(obs_url, asDateTime=FALSE, qw=FALSE, convertType = TRUE, tz=""){
if(tz != ""){
@@ -223,6 +223,8 @@ importRDB1 <- function(obs_url, asDateTime=FALSE, qw=FALSE, convertType = TRUE,
row.names(data) <- NULL
}
+ names(data) <- make.names(names(data))
+
comment(data) <- hdr
attr(data, "url") <- obs_url
attr(data, "queryTime") <- Sys.time()
--
GitLab