Hello world!

.Rbuildignore

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

DESCRIPTION

@@ -0,0 +1,11 @@
+Package: minidplyr
+Title: What the Package Does (One Line, Title Case)
+Version: 0.0.0.9000
+Authors@R: 
+    person("Damsbo", "Andreas Gammelgaard", , "andreas@gdamsbo.dk", role = c("aut", "cre"),
+           comment = c(ORCID = "0000-0002-7559-1154"))
+Description: What the package does (one paragraph).
+License: GPL-3
+Encoding: UTF-8
+Roxygen: list(markdown = TRUE)
+RoxygenNote: 7.2.1

NAMESPACE

@@ -0,0 +1,3 @@
+# Generated by roxygen2: do not edit by hand
+
+export(select2)

R/minidplyr-package.R

@@ -0,0 +1,6 @@
+#' @keywords internal
+"_PACKAGE"
+
+## usethis namespace: start
+## usethis namespace: end
+NULL

R/slctr.R

@@ -0,0 +1,15 @@
+#' Simple select function using subset()
+#'
+#' Simple parallel select function
+#'
+#' @param ds Data frame
+#' @param vars Variables to be subset, quoted or numbered
+#'
+#' @return Data frame with the specified subset
+#' @export
+#'
+#' @examples
+#' select2(iris,"Petal.Width")
+select2 <- function(ds, vars) {
+  subset(ds,select=vars)
+}

README.md

@@ -1,2 +1,3 @@
 # minidplyr
 
+As part of the Advanced R course, we are doing this basic code-along package.

man/minidplyr-package.Rd

@@ -0,0 +1,15 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/minidplyr-package.R
+\docType{package}
+\name{minidplyr-package}
+\alias{minidplyr}
+\alias{minidplyr-package}
+\title{minidplyr: What the Package Does (One Line, Title Case)}
+\description{
+What the package does (one paragraph).
+}
+\author{
+\strong{Maintainer}: Damsbo Andreas Gammelgaard \email{andreas@gdamsbo.dk} (\href{https://orcid.org/0000-0002-7559-1154}{ORCID})
+
+}
+\keyword{internal}

man/select2.Rd

@@ -0,0 +1,22 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/slctr.R
+\name{select2}
+\alias{select2}
+\title{Simple select function using subset()}
+\usage{
+select2(ds, vars)
+}
+\arguments{
+\item{ds}{Data frame}
+
+\item{vars}{Variables to be subset, quoted or numbered}
+}
+\value{
+Data frame with the specified subset
+}
+\description{
+Simple parallel select function
+}
+\examples{
+select2(iris,"Petal.Width")
+}

minidplyr.Rproj

@@ -11,3 +11,8 @@ Encoding: UTF-8
 
 RnwWeave: Sweave
 LaTeX: pdfLaTeX
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace

setup.R

@@ -0,0 +1,6 @@
+usethis::use_description(list(License = "GPL-3"))
+usethis::use_namespace()
+dir.create("R")
+usethis::use_package_doc()
+usethis::use_roxygen_md()
+