added importFrom directives - again...

sjewo · Oct 6, 2015 · 49572ac · 49572ac
1 parent ceca4bd
commit 49572ac
Show file tree

Hide file tree

Showing 5 changed files with 12 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -13,4 +13,10 @@ export(set.lang)
 export(stata_pre13_save)
 export(stbcal)
 import(Rcpp)
+importFrom(stats,complete.cases)
+importFrom(stats,na.omit)
+importFrom(utils,download.file)
+importFrom(utils,localeToCharset)
+importFrom(utils,setTxtProgressBar)
+importFrom(utils,txtProgressBar)
 useDynLib(readstata13)
diff --git a/R/dbcal.R b/R/dbcal.R
@@ -43,6 +43,7 @@
 #' @author Sebastian Jeworutzki \email{sebastian.jeworutzki@@ruhr-uni-bochum.de}
 #' @examples
 #' sp500 <- stbcal(system.file("extdata/sp500.stbcal", package="readstata13"))
+#' @importFrom stats complete.cases
 #' @export
 stbcal <- function(stbcalfile) {
 

diff --git a/R/read.R b/R/read.R
@@ -105,6 +105,8 @@
 #' @author Jan Marvin Garbuszus \email{jan.garbuszus@@ruhr-uni-bochum.de}
 #' @author Sebastian Jeworutzki \email{sebastian.jeworutzki@@ruhr-uni-bochum.de}
 #' @useDynLib readstata13
+#' @importFrom utils download.file 
+#' @importFrom stats na.omit 
 #' @export
 read.dta13 <- function(file, convert.factors = TRUE, generate.factors=FALSE,
                        encoding = NULL, fromEncoding=NULL,

diff --git a/R/save.R b/R/save.R
@@ -61,6 +61,7 @@
 #' @author Jan Marvin Garbuszus \email{jan.garbuszus@@ruhr-uni-bochum.de}
 #' @author Sebastian Jeworutzki \email{sebastian.jeworutzki@@ruhr-uni-bochum.de}
 #' @useDynLib readstata13
+#' @importFrom utils localeToCharset
 #' @export
 save.dta13 <- function(data, file, data.label=NULL, time.stamp=TRUE,
                        convert.factors=FALSE, convert.dates=TRUE, tz="GMT",

diff --git a/R/tools.R b/R/tools.R
@@ -258,6 +258,8 @@ get.varlabel <- function(dat, var.name=NULL, lang=NA) {
 #' get.varlabel(datDE)
 #' @author Jan Marvin Garbuszus \email{jan.garbuszus@@ruhr-uni-bochum.de}
 #' @author Sebastian Jeworutzki \email{sebastian.jeworutzki@@ruhr-uni-bochum.de}
+#' @importFrom stats na.omit
+#' @importFrom utils txtProgressBar setTxtProgressBar
 #' @export
 set.lang <- function(dat, lang=NA, generate.factors=FALSE) {
   if (is.na(lang) | lang == get.lang(dat, F)$default) {