version 0.1.0

DESCRIPTION

@@ -0,0 +1,23 @@
+Package: ZooID
+Type: Package
+Title: Load, Segment and Classify Zooplankton Images
+Version: 0.1.0
+Authors@R: c(
+  person("Arick", "Grootveld", email = "arick.grootveld@gmail.com", role = c("cre","aut")),
+  person("Eva", "Kozak", email = "eva.kozak@academics.udg.mx", role = "aut")
+  )
+Maintainer: Arick Grootveld <arick.grootveld@gmail.com>
+Description: This tool provides functions to load, segment and classify zooplankton images. 
+  The image processing algorithms and the machine learning classifiers in this package are (will be, since these have not been added yet) direct ports of 
+  an early 'python' implementation that can be found at <https://github.com/arickGrootveld/ZooID>. The model weights and datasets (also not added yet) 
+  that are a part of this package can also be found at Arick Grootveld, Eva R. Kozak, Carmen Franco-Gordo (2023) <doi:10.5281/zenodo.7979996>. 
+Language: en-US
+License: GPL (>= 3)
+Encoding: UTF-8
+RoxygenNote: 7.2.3
+NeedsCompilation: no
+Packaged: 2023-07-04 01:21:21 UTC; agrootveld
+Author: Arick Grootveld [cre, aut],
+  Eva Kozak [aut]
+Repository: CRAN
+Date/Publication: 2023-07-05 17:33:06 UTC

MD5

@@ -0,0 +1,5 @@
+dec0af9ffdce852778819c1a68368f2a *DESCRIPTION
+8b54e5a89fbda3af5e077053d40bec76 *NAMESPACE
+1decb10dce28a2ed73789e9d05b89a6a *NEWS.md
+43d3caf760f26b8ccf8aeeac2523df47 *R/load_image.R
+a9985fd5f56bd7353e58f7f2f312ed23 *man/load_image.Rd

NAMESPACE

@@ -0,0 +1 @@
+exportPattern("^[[:alpha:]]+")

NEWS.md

@@ -0,0 +1,3 @@
+# ZooID 0.1.0
+
+* Initial CRAN submission.

R/load_image.R

@@ -0,0 +1,16 @@
+#' @title load_image
+#'
+#' @description Loads a Zooplankton image, so that they can be segmented and then classified
+#' @param filePath A string that contains the path to a .jpg, .jpeg, .png, or .tiff image to be loaded
+#' @return image An image (in greyscale) that corresponds to the filepath specified
+#' @examples
+#' filepath <- 'Users/$(whoami)/Images/ZooplanktonImages/ostracod1.png'
+#' ostracod1Image <- load_image(filepath)
+#' @export
+#' @importFrom opencv "%>"
+
+load_image <- function(filePath) {
+
+  testStr = "This is just a template string till I add the actual functionality in here"
+  return(testStr)
+}