cleaned up NAMESPACE and close #35

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: mdsr
 Title: Complement to 'Modern Data Science with R'
-Version: 0.1.6.9000
-Date: 2018-06-13
+Version: 0.1.6.9002
+Date: 2019-06-01
 Authors@R: c(
     person("Ben", "Baumer", email = "ben.baumer@gmail.com",
       role = c("aut", "cre")),
@@ -36,5 +36,6 @@ Suggests:
     sp,
     testthat
 RoxygenNote: 6.1.1
+Encoding: UTF-8
 URL: http://github.com/beanumber/mdsr
 BugReports: https://github.com/beanumber/mdsr/issues

NAMESPACE

@@ -8,23 +8,5 @@ export(mysql_scidb)
 export(src_scidb)
 export(theme_mdsr)
 import(babynames)
-importFrom(DBI,dbConnect)
-importFrom(RMySQL,MySQL)
-importFrom(dbplyr,src_dbi)
-importFrom(downloader,download)
-importFrom(dplyr,"%>%")
-importFrom(dplyr,bind_rows)
-importFrom(dplyr,inner_join)
-importFrom(dplyr,mutate_)
-importFrom(dplyr,rename_)
-importFrom(dplyr,select_)
-importFrom(fs,fs_path)
+import(dplyr)
 importFrom(ggplot2,"%+replace%")
-importFrom(ggplot2,element_line)
-importFrom(ggplot2,element_rect)
-importFrom(ggplot2,element_text)
-importFrom(ggplot2,rel)
-importFrom(ggplot2,theme)
-importFrom(ggplot2,theme_grey)
-importFrom(mosaic,theme_map)
-importFrom(stats,approx)

NEWS.md

@@ -1,3 +1,7 @@
+mdsr 0.1.7
+
+* added Connections pane interface to DB Server [#35](https://github.com/beanumber/mdsr/issues/35)
+
 mdsr 0.1.6
 
 * improved documentation [#18](https://github.com/beanumber/mdsr/issues/18)

R/BabynameDist.R

@@ -1,7 +1,6 @@
 #' Wrangle babynames data
-#' @importFrom dplyr mutate_ select_ bind_rows rename_ inner_join %>%
+#' @import dplyr
 #' @import babynames
-#' @importFrom stats approx
 #' @export
 #' @return a \code{\link[dplyr]{tbl_df}} similar to \code{\link[babynames]{babynames}}
 #' with a column for the estimated number of people alive in 2014.

R/NCI60.R

@@ -1,7 +1,4 @@
-
 #' Load the NCI60 data from GitHub
-#' 
-#' @importFrom downloader download
 #' @export
 #' @examples 
 #' 
@@ -13,8 +10,10 @@ etl_NCI60 <- function() {
   NCI60 <- data.frame()
   dir <- tempdir()
   lcl <- file.path(dir, "NCI60.rda")
-  downloader::download("https://github.com/beanumber/mdsr/blob/master/data-raw/NCI60.rda?raw=true", 
-                destfile = lcl)
+  downloader::download(
+    "https://github.com/beanumber/mdsr/blob/master/data-raw/NCI60.rda?raw=true", 
+    destfile = lcl
+  )
   load(lcl)
   return(dplyr::as.tbl(NCI60))
 }

R/Rnw2Rmd.R

@@ -2,7 +2,6 @@ globalVariables(c("."))
 
 #' Convert Rnw to Rmd
 #' @inheritParams fs::file_move
-#' @importFrom fs fs_path
 #' @export
 
 # inspiration

R/scidb.R

@@ -1,18 +1,11 @@
 #' src_scidb
 #' @description Connect to the scidb server at Smith College.
-#' 
 #' @param dbname the name of the database to which you want to connect
 #' @param ... arguments passed to \code{\link[dplyr]{src_mysql}} or \code{\link[DBI]{dbConnect}}
-#' 
 #' @details This is a public, read-only account. Any abuse will be considered a 
 #' hostile act. 
-#' 
 #' @return For \code{\link{src_scidb}}, a \code{\link[dplyr]{src_dbi}} object
-#' 
 #' @seealso \code{\link[dbplyr]{src_dbi}}
-#' 
-#' @importFrom dbplyr src_dbi
-#' @importFrom RMySQL MySQL
 #' @export
 #' 
 #' @examples 
@@ -26,15 +19,10 @@ src_scidb <- function(dbname, ...) {
 
 #' @rdname src_scidb
 #' @export
-#'  
-#' @importFrom DBI dbConnect
-#' @importFrom RMySQL MySQL
-#' 
 #' @return For \code{\link{dbConnect_scidb}}, a \code{\link[DBI]{DBIConnection-class}} object
 #' 
 #' @seealso \code{\link[DBI]{DBIConnection-class}}
 #' @examples 
-#' 
 #' dbAir <- dbConnect_scidb("airlines")
 #' dbAir
 
@@ -49,7 +37,6 @@ dbConnect_scidb <- function(dbname, ...) {
 #' 
 #' @return For \code{\link{mysql_scidb}}, a character vector of length 1 to be used
 #' as an \code{engine.ops} argument, or on the command line. 
-#' 
 #' @seealso \code{\link[knitr]{opts_chunk}}
 #' @examples 
 #' 

R/themes.R

@@ -3,8 +3,7 @@
 #' @description Graphical themes used in MDSR book
 #' 
 #' @inheritParams ggplot2::theme_grey
-#' @importFrom ggplot2 theme theme_grey element_text element_line element_rect rel %+replace%
-#' @importFrom mosaic theme_map
+#' @importFrom ggplot2 %+replace%
 #' @export
 #' @examples 
 #' 

inst/rstudio/connections.dcf

@@ -0,0 +1 @@
+Name: MDSR_MySQL_Server

inst/rstudio/connections/MDSR_MySQL_Server.R

@@ -0,0 +1 @@
+db <- mdsr::src_scidb(${0:Schema="airlines"})