Initial commit

Author: mcgregorian1

.Rbuildignore

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

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

.gitignore

@@ -0,0 +1 @@
+.Rproj.user

DESCRIPTION

@@ -0,0 +1,14 @@
+Package: sealR
+Title: What the Package Does (One Line, Title Case)
+Version: 0.0.0.9000
+Authors@R: 
+    person(given = "First",
+           family = "Last",
+           role = c("aut", "cre"),
+           email = "[email protected]",
+           comment = c(ORCID = "YOUR-ORCID-ID"))
+Description: What the package does (one paragraph).
+License: What license it uses
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 6.1.99.9001

NAMESPACE

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

R/url_shp_to_spdf.R

@@ -0,0 +1,28 @@
+#' Mass download .shp files from URL
+#'
+#' The function allows you to download shapefile zip files into a temporary folder and directory, which are then unzipped and ready to use in R. Temp folders are automatically unlinked (deleted) and the working directory is set back to original within every iteration of the function. This means no shapefiles are stored to the drive.
+#'
+#' Source of function: Kay Cichini (https://www.r-bloggers.com/batch-downloading-zipped-shapefiles-with-r/)
+
+#' @param URL URL containing download links of different .shp files
+#' @keywords shapefile
+#' @export
+#' @examples
+#' url_shp_to_spdf()
+
+url_shp_to_spdf <- function(URL) {
+  require(rgdal)
+  wd <- getwd()
+  td <- tempdir()
+  setwd(td)
+  temp <- tempfile(fileext = ".zip")
+  download.file(URL, temp)
+  unzip(temp)
+  shp <- dir(tempdir(), "*.shp$")
+  lyr <- sub(".shp$", "", shp)
+  y <- lapply(X = lyr, FUN = function(x) readOGR(dsn=shp, layer=lyr))
+  names(y) <- lyr
+  unlink(dir(td))
+  setwd(wd)
+  return(y)
+}

README.md

@@ -0,0 +1,2 @@
+# sealR
+ Repo for common functions from SEAL lab at NCSU

man/url_shp_to_spdf.Rd

@@ -0,0 +1,21 @@
+Version: 1.0
+
+RestoreWorkspace: No
+SaveWorkspace: No
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace