:ȸ;TܴX% )C05 Q9?+f#3M
OޭL`LC,#qJ~SU2qR&meMc:mkh%UmMmU0Rr+,bb9
ILzW_j =o,<`ѓ
IdT",l湭cDP\IZC9PTU=Kf;UfCG@;NbH6t4N샒HG`Vc#fKRGD*29"vMi "OqHmj4D!926%{TfbwOMtSPEW#v TvsFoCRZ:μZ;~kr\4ɮ sUХF۞>#}4Af#rl J j\Ukd T+W7&3Yr:UlsNPqQ.xzKbupwdum
J# i1֓
(`*\iI #* qJ>chj11ǑEEyXU$KCGRJYJu$ |Zaf' `M8 WD`e)N dUr֔͑Tb\1*
45LC1N
!8Nۚ%"y!STԪsHP
Dni怴}kmIfs4Se+O;C1SpNFL4;1ZDf*kAVsXsM-隦Fjf'Hp0kA#h J@3hFv楂Oҩ y9+7c5:wc ;!6tvW>E 4# }E~5ԓ^~u x¸Uoʿfg}I.rۃ-i heg@_{^h@RM;cޗY"~ ݼ2+N*}(.T>>-%լb"7HU| 砪LHW [s t9+ 7~ź9)FzM ɪE u4S+ZfKW$buX5; ꢾyO-XІsUoiQ%£t`IZN-20+[%ڣ\k q+q乒.:L3ܾ-Òָ5̕^[ar?r㹷Wު` yHSry[c=hx
n =Rycq ~. z⧔0pZ_'~JAУp S0LZ,l*:֪2kQ8&cqQ 8e*8nSTf^]>V9Rt78?xS${wkQ::u >'69L<-n-bsR'
d" sQ&%`dNHn,z? jA Iݫ64Ж!ZI C=9O~ѩfj,ir+0I3KXsJc *gr^Ɵ={|Wl6եH7 *G!xj($gzӾС{!Xy*IJbc;LR7# 8yg81DaZpP9msZ]8U'\H?j? zT/FǞą, J
ozSZ zTőIqӊm㡙no*'*:UdX$nLԶT3R i <яJcZv*N_0J֟#-Es4Ȩ⭤;$Ǘ\Ғ%P?QZQt1ӱ2HѸhOWVK {Tw20 Vsm#;nXEfLWc'NcX#Ƽ8Le89 UQ%QF<;bcZf6E%\ʻnڲ_clC*. .kdsص<Ѣ39!& {VBFq O! }+;JoÕQv2X`Ipy[RXΒ9" 75^Hm=JV݊nOaFĦHCs q[~OJ̽_7NF!wl I=xg f%$;ӔS:hI rq ֲ!pjpkp=XgDTT5i+vOi+=ys@VEܝ#ڤL
Y *sJ
!ؾA1T*6ⵈS }i v& z4 P0sE۩jsFGZj=Vi#S܃ҡQA]hɡxZ UN"47\+Jsn)pEC֚3z'D@2
Kc SHǝRdKSAQ8Cb"ɵ Zi8R@@94pi8$5lkQ)9qYKSpzԋuVČRJ6F(j$*!'5_'<դp0;3H& \maV,գTtⰉ5+ W, xխD5[ҨqY-*@=j0J#bj {c| SHsV*mcxor;La8$W#\Z}ԣ1"n_ThBSk 3YPY4hs}+bI/"rss+g iN t=y⦰#I1y\ z _ .Ktr uFisz hoZ] 9ߖirc
,3,{$Ձ M)LnDsҥ:S2X⒑ cR*
jFմ3DM+_F (6R
Mʹitd㨦G^M9!\ R` Eni(E z80kH|C.EтU,P-Ode1 ~i%i7usrZM 1i:f}7{FޮBxF}xWpk' Ls.k98x~Rk.IQ߭t6P3bDar+X)Xָ2T)7
jNۇP(Qj[ eD?#vW-/,k Ry'J-Qxjn8< J &wpGXvf#RX x \KwܶJ\.q=sҺhéU 䎕oKI=n<ÔY73&s.;Ix!ڞXwUv2 ʏ!\ј3ıQ >ҵpⰥUm8ـ95Idrkd9UCfUܲa* +sv*(_'8;Dž#+.+H{eHb&(Ijxu=wɦsǎ~VYRJɑJ 4 rGzUw fW<ŷϔaRXSZGJ/JH6_Sɦ5 n^˷N! y('lMԠePFATȔfT*@ҧ'ڢ вP g48I{'J(1HG^kq#6R ⥏jPm4yLاJ8RLMԻ0i`YB
VP4wrkE39;MQ 嬉8 xNe=TB
&lgN 8x`HӼj2+3h~*OsUZS&emȪʒ^հ5emynJG5$Y]DֱJ0k&k本ZFK!g;쯜b:ԨOo.ӂknMsT9MƳ;[MB[y)[漪;QZ0\5RFst[Lm-gCq |Zӵ{6pOJh{:O(Q3u qZ6 =SF*LṛJiU!ON_ uXB*7 bR/`f'ӾX9NFHaI
*(cy#5*w|ƌ{?v$aTYx-SZ$˯##g]ڲ$TqI0\n*eLʸxei0HZypc>V' V]^GVOTfq)E]:as/\7}# ֕@*8[()#.P8P9+yU#!Nz֦( TXKF#~?5wU{a.P Q6uVw*v@cEOb V:8iYpo$s'
~R g;tӰh;>\_xT!|0yϭ=._ǽaa9ao-$S.
S;'SN%9 xQ)G}-V]ݪL^"Aڛ$fv;V edK/N#I%NVLw +\q!*Pٜjx yHazFbfxEE6d=
B"!Y6qiǒd"`c:
rǡS(V S
[[J2{㐯;HXiYB`lkÉnЮn[(rOz[ G͘74|ҘO?(`HHI9Sڛ5 p
&: yC,,;v0cisN+\hŧ,:
k< q]lqZR}'"t+kO7knA%Udg(Ozzbc%ӓȪW'@* jF(EɱLG֪Nc2!nep3an&mo%*|Q*G+;X`݉LQZugd'fۜIV֢hvl qҩdzQFITqY"r)"$e6&hbn 7jR8%.Yr85yqT?Ur2>ӚPwuεUWDsHL fό;ADz4k@B6(OyDL1 *.U(rj,orFCJ Wu#VAG(4L8sOW (8 )c݃2pX㠭R%MOڮ S9rW
S5` CNĞb1V8&BDZ
:TQ>c<9lR'^ZRe[wDiM BpxT̪$KMYr[08u@&2y51[v`[䚻s:Dea qR8qyf qֳr7$i Īh^@x5HJW5sI BMD zph:LcQd )';JPOިJJI^*WCMRM#qK 1*6y#E3925'<Ԙ3Kҙњ]TsO֔ T U&Zqҁ֞@LIv塩I
3QBl\ddJW9uUbԼ&yŤQ_J h7GQSȦI'9AH ZPiSA Ը&[ cHQGFr2YR
lXNZI#KLO&!k45YGk>FEqVq:,#gzը5.FN*a&x65V#CݪCuz3%
jp+ig97c5wgBLLEBpW8 do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
cvmat_rect <- function(ptr, x = 0L, y = 0L, width = 0L, height = 0L) {
.Call('_opencv_cvmat_rect', PACKAGE = 'opencv', ptr, x, y, width, height)
}
cvmat_bbox <- function(ptr) {
.Call('_opencv_cvmat_bbox', PACKAGE = 'opencv', ptr)
}
cvpoints_bbox <- function(ptr, pts) {
.Call('_opencv_cvpoints_bbox', PACKAGE = 'opencv', ptr, pts)
}
cvpoints_chull <- function(pts) {
.Call('_opencv_cvpoints_chull', PACKAGE = 'opencv', pts)
}
cvmat_polygon <- function(ptr, pts, convex = FALSE, crop = FALSE, color = 255L) {
.Call('_opencv_cvmat_polygon', PACKAGE = 'opencv', ptr, pts, convex, crop, color)
}
cvmat_destroy <- function(image) {
invisible(.Call('_opencv_cvmat_destroy', PACKAGE = 'opencv', image))
}
cvmat_dead <- function(image) {
.Call('_opencv_cvmat_dead', PACKAGE = 'opencv', image)
}
cvmat_size <- function(image) {
.Call('_opencv_cvmat_size', PACKAGE = 'opencv', image)
}
cvmat_new <- function() {
.Call('_opencv_cvmat_new', PACKAGE = 'opencv')
}
cvmat_dupe <- function(image) {
.Call('_opencv_cvmat_dupe', PACKAGE = 'opencv', image)
}
cvmat_read <- function(path) {
.Call('_opencv_cvmat_read', PACKAGE = 'opencv', path)
}
cvmat_camera <- function() {
.Call('_opencv_cvmat_camera', PACKAGE = 'opencv')
}
cvmat_write <- function(image, path) {
.Call('_opencv_cvmat_write', PACKAGE = 'opencv', image, path)
}
cvmat_resize <- function(ptr, width = 0L, height = 0L) {
.Call('_opencv_cvmat_resize', PACKAGE = 'opencv', ptr, width, height)
}
cvmat_raw_bgr <- function(image, width = 0L, height = 0L) {
.Call('_opencv_cvmat_raw_bgr', PACKAGE = 'opencv', image, width, height)
}
cvmat_raw_bw <- function(image, width = 0L, height = 0L) {
.Call('_opencv_cvmat_raw_bw', PACKAGE = 'opencv', image, width, height)
}
cvmat_bitmap <- function(ptr) {
.Call('_opencv_cvmat_bitmap', PACKAGE = 'opencv', ptr)
}
cvmat_copyto <- function(from, to, mask) {
.Call('_opencv_cvmat_copyto', PACKAGE = 'opencv', from, to, mask)
}
cvmat_info <- function(image) {
.Call('_opencv_cvmat_info', PACKAGE = 'opencv', image)
}
cvmat_display <- function(ptr) {
invisible(.Call('_opencv_cvmat_display', PACKAGE = 'opencv', ptr))
}
livestream <- function(filter, stop_on_result = FALSE) {
.Call('_opencv_livestream', PACKAGE = 'opencv', filter, stop_on_result)
}
data_prefix <- function() {
.Call('_opencv_data_prefix', PACKAGE = 'opencv')
}
set_num_threads <- function(n = 0L) {
.Call('_opencv_set_num_threads', PACKAGE = 'opencv', n)
}
cvmat_grayscale <- function(src) {
.Call('_opencv_cvmat_grayscale', PACKAGE = 'opencv', src)
}
cvmat_blur <- function(ptr, ksize) {
.Call('_opencv_cvmat_blur', PACKAGE = 'opencv', ptr, ksize)
}
cvmat_sketch <- function(ptr, color) {
.Call('_opencv_cvmat_sketch', PACKAGE = 'opencv', ptr, color)
}
cvmat_stylize <- function(ptr) {
.Call('_opencv_cvmat_stylize', PACKAGE = 'opencv', ptr)
}
enums_types <- function(maximum = 4L) {
.Call('_opencv_enums_types', PACKAGE = 'opencv', maximum)
}
enums_depth <- function() {
.Call('_opencv_enums_depth', PACKAGE = 'opencv')
}
cvmat_face <- function(ptr, facedata, eyedata) {
.Call('_opencv_cvmat_face', PACKAGE = 'opencv', ptr, facedata, eyedata)
}
cvmat_facemask <- function(ptr, facedata) {
.Call('_opencv_cvmat_facemask', PACKAGE = 'opencv', ptr, facedata)
}
cvmat_mog2 <- function(ptr) {
.Call('_opencv_cvmat_mog2', PACKAGE = 'opencv', ptr)
}
cvmat_knn <- function(ptr) {
.Call('_opencv_cvmat_knn', PACKAGE = 'opencv', ptr)
}
cvmat_edges <- function(ptr) {
.Call('_opencv_cvmat_edges', PACKAGE = 'opencv', ptr)
}
cvkeypoints_fast <- function(ptr, threshold = 0L, nonmaxSuppression = TRUE, type = 2L) {
.Call('_opencv_cvkeypoints_fast', PACKAGE = 'opencv', ptr, threshold, nonmaxSuppression, type)
}
cvkeypoints_harris <- function(ptr, numOctaves = 6L, corn_thresh = 0.01, DOG_thresh = 0.01, maxCorners = 5000L, num_layers = 4L) {
.Call('_opencv_cvkeypoints_harris', PACKAGE = 'opencv', ptr, numOctaves, corn_thresh, DOG_thresh, maxCorners, num_layers)
}
cvmat_hog <- function(ptr) {
.Call('_opencv_cvmat_hog', PACKAGE = 'opencv', ptr)
}
cvmat_markers <- function(ptr) {
.Call('_opencv_cvmat_markers', PACKAGE = 'opencv', ptr)
}
cvmat_qr_detect <- function(ptr, return_image = FALSE, use_wechat = TRUE) {
.Call('_opencv_cvmat_qr_detect', PACKAGE = 'opencv', ptr, return_image, use_wechat)
}
cvversion <- function() {
.Call('_opencv_cvversion', PACKAGE = 'opencv')
}
opencv/R/keypoints.R 0000644 0001762 0000144 00000005004 14435124332 014115 0 ustar ligges users #' OpenCV keypoints
#'
#' Find key points in images
#' @param image an ocv grayscale image object
#' @param method the type of keypoint detection algorithm
#' @param control a list of arguments passed on to the algorithm
#' @param ... further arguments passed on to ocv_keypoints_options
#' @section FAST algorithm arguments:
#' \itemize{
#' \item threshold threshold on difference between intensity of the central pixel and pixels of a circle around this pixel.
#' \item nonmaxSuppression if true, non-maximum suppression is applied to detected corners (keypoints).
#' \item type one of the three neighborhoods as defined in the paper: TYPE_9_16, TYPE_7_12, TYPE_5_8
#' }
#' @section Harris algorithm arguments:
#' \itemize{
#' \item numOctaves the number of octaves in the scale-space pyramid
#' \item corn_thresh the threshold for the Harris cornerness measure
#' \item DOG_thresh the threshold for the Difference-of-Gaussians scale selection
#' \item maxCorners the maximum number of corners to consider
#' \item num_layers the number of intermediate scales per octave
#' }
#' @export
#' @examples
#' mona <- ocv_read('https://jeroen.github.io/images/monalisa.jpg')
#' mona <- ocv_resize(mona, width = 320, height = 477)
#'
#' # FAST-9
#' pts <- ocv_keypoints(mona, method = "FAST", type = "TYPE_9_16", threshold = 40)
#' # Harris
#' pts <- ocv_keypoints(mona, method = "Harris", maxCorners = 50)
#'
#' # Convex Hull of points
#' pts <- ocv_chull(pts)
#'
#' \dontshow{
#' ocv_destroy(mona)
#' }
ocv_keypoints <- function(image, method = c("FAST", "Harris"), control = ocv_keypoints_options(method, ...), ...){
method <- match.arg(method)
params <- control
if(method == "FAST"){
cvkeypoints_fast(image, params$threshold, params$nonmaxSuppression, params$type)
}else if(method == "Harris"){
cvkeypoints_harris(image, params$numOctaves, params$corn_thresh, params$DOG_thresh, params$maxCorners, params$num_layers)
}
}
ocv_keypoints_options <- function(method = c("FAST", "Harris"), ...){
method <- match.arg(method)
ldots <- list(...)
if(method == "FAST"){
params <- list(threshold = 0, nonmaxSuppression = TRUE, type = c("TYPE_9_16", "TYPE_7_12", "TYPE_5_8"))
}else if(method == "Harris"){
params <- list(numOctaves = 6, corn_thresh = 0.01, DOG_thresh = 0.01, maxCorners = 5000, num_layers = 4)
}
for(i in intersect(names(params), names(ldots))){
params[[i]] <- ldots[[i]]
}
if(is.character(params$type)){
params$type <- switch(params$type, "TYPE_5_8" = 0L, "TYPE_7_12" = 1L, "TYPE_9_16" = 2L)
}
params
}
opencv/R/xmldata.R 0000644 0001762 0000144 00000000734 14576572451 013546 0 ustar ligges users find_data_dir <- function(){
datapath <- c("/share/opencv", "/share/opencv4", "/share/OpenCV")
paths <- c(
system.file('share/opencv4', package = 'opencv'),
system.file('share', package = 'opencv'),
paste0(data_prefix(), datapath)
)
for(x in paths){
if(file.exists(x))
return(x)
}
stop("Failed to find opencv 'share' directory")
}
find_data_xml <- function(filename){
normalizePath(file.path(find_data_dir(), filename), mustWork = TRUE)
}
opencv/R/face.R 0000644 0001762 0000144 00000000656 14435124332 012776 0 ustar ligges users #' @export
#' @rdname opencv
ocv_face <- function(image){
facedata <- find_data_xml('haarcascades/haarcascade_frontalface_alt.xml')
eyedata <- find_data_xml('haarcascades/haarcascade_eye_tree_eyeglasses.xml')
cvmat_face(image, facedata, eyedata)
}
#' @export
#' @rdname opencv
ocv_facemask <- function(image){
facedata <- find_data_xml('haarcascades/haarcascade_frontalface_alt.xml')
cvmat_facemask(image, facedata)
}
opencv/R/qr.R 0000644 0001762 0000144 00000003663 14576572451 012542 0 ustar ligges users #' Detect and Decode a QR code
#'
#' Detect and decode a QR code from an image or camera. By default it returns
#' the text value from the QR code if detected, or NULL if no QR was found. If
#' `draw = TRUE` then it returns an annotated image with the position and
#' value of the QR drawn into the image, and qr text value as an attribute.
#' The `qr_scanner` function opens the camera device (if available on your
#' computer) and repeats [ocv_qr_detect] until it a QR is detected.
#'
#' OpenCV has two separate QR decoders. The 'wechat' decoder was added in
#' libopencv 4.5.2 and generally has better performance and fault-tolerance.
#' The old 'quirc' decoder is available on some older versions of libopencv as
#' a plug-in, but many Linux distros did not include it. If you get an error
#' *Library QUIRC is not linked. No decoding is performed.* this sadly means
#' your Linux distribution is too old and does not support QR decoding.
#'
#' @export
#' @rdname qrcode
#' @inheritParams ocv_write
#' @param draw if TRUE, the function returns an annotated image showing
#' the position and value of the QR code.
#' @param decoder which decoder implementation to use, see details.
#' @returns if a QR code is detected, this returns either the text value of the QR,
#' or if `draw` it returns the annotated image, with the value as an attribute.
#' Returns NULL if no QR was found in the image.
#' @examples
#' png("test.png")
#' plot(qrcode::qr_code("This is a test"))
#' dev.off()
#' ocv_qr_detect(ocv_read('test.png'))
#' unlink("test.png")
ocv_qr_detect <- function(image, draw = FALSE, decoder = c("wechat", "quirc")){
draw <- as.logical(draw)
use_wechat <- match.arg(decoder) == 'wechat'
cvmat_qr_detect(image, draw, use_wechat)
}
#' @export
#' @rdname qrcode
qr_scanner <- function(draw = FALSE, decoder = c("wechat", "quirc")){
ocv_video(function(image) {
ocv_qr_detect(image = image, draw = draw, decoder = decoder)
}, stop_on_result = TRUE)
}
opencv/R/init.R 0000644 0001762 0000144 00000001512 14435124332 013033 0 ustar ligges users enums <- new.env()
.onAttach <- function(libname, pkgname){
enums$type <- enums_types()
enums$depth <- enums_depth()
}
enum_label <- function(type, id){
kv <- enums[[type]]
recoder(id, from = kv$key, to = kv$value)
}
enum_id <- function(type, label){
kv <- enums[[type]]
recoder(label, from = kv$value, to = kv$key)
}
.onLoad <- function(libname, pkgname){
if(is_check()){
set_num_threads(2)
}
}
is_macos <- function(){
grepl("darwin", R.Version()$platform)
}
is_iterm2 <- function(){
identical(Sys.getenv('TERM_PROGRAM'), 'iTerm.app')
}
is_check <- function(){
grepl('opencv.Rcheck', getwd(), fixed = TRUE)
}
is_mojave <- function(){
ver <- utils::tail(strsplit(utils::sessionInfo()$running, ' ')[[1]], 1)
as.numeric_version(ver) >= "10.14"
}
is_rstudio <- function(){
Sys.getenv('RSTUDIO') == "1"
}
opencv/R/utils.R 0000644 0001762 0000144 00000000540 14435124332 013230 0 ustar ligges users recoder <- function(x, from = c(), to = c()){
if(length(x) == 0){
return(x)
}
stopifnot(length(from) == length(to))
nongiven <- unique(x[!is.na(x)])
nongiven <- setdiff(nongiven, from)
if(length(nongiven) > 0) {
from <- append(x = from, values = nongiven)
to <- append(x = to, values = nongiven)
}
to[match(x, from)]
}
opencv/R/areas.R 0000644 0001762 0000144 00000004406 14435124332 013170 0 ustar ligges users #' OpenCV area manipulation
#'
#' Manipulate image regions
#' @name opencv-area
#' @rdname opencv-area
#' @param image an ocv image object
#' @param x horizontal location
#' @param y vertical location
#' @param width width of the area
#' @param height height of the area
#' @export
#' @examples
#' mona <- ocv_read('https://jeroen.github.io/images/monalisa.jpg')
#'
#' # Rectangular area
#' ocv_rectangle(mona, x = 400, y = 300, height = 300, width = 350)
#' ocv_rectangle(mona, x = 0, y = 100, height = 200)
#' ocv_rectangle(mona, x = 500, y = 0, width = 75)
#'
#' # Polygon area
#' img <- ocv_resize(mona, width = 320, height = 477)
#' pts <- list(x = c(184, 172, 146, 114, 90, 76, 92, 163, 258),
#' y = c(72, 68, 70, 90, 110, 398, 412, 385, 210))
#' ocv_polygon(img, pts)
#' ocv_polygon(img, pts, crop = TRUE)
#' ocv_polygon(img, pts, convex = TRUE, crop = TRUE)
#'
#' # Bounding box based on points
#' ocv_bbox(img, pts)
#'
#' # Bounding box of non-zero pixel area
#' area <- ocv_polygon(img, pts, color = 0, crop = FALSE)
#' area
#' area <- ocv_bbox(area)
#' area
#'
#' \dontshow{
#' ocv_destroy(mona)
#' ocv_destroy(img)
#' ocv_destroy(area)
#' }
ocv_rectangle <- function(image, x = 0L, y = 0L, width, height){
size <- ocv_info(image)
if(missing(width)){
width <- size$width
}
if(missing(height)){
height <- size$height
}
cvmat_rect(image, x, y, width, height)
}
#' @export
#' @rdname opencv-area
#' @param pts a list of points with elements x and y
#' @param convex are the points convex
#' @param crop crop the resulting area to its bounding box
#' @param color color for the non-polygon area
ocv_polygon <- function(image, pts, convex = FALSE, crop = FALSE, color = 255){
stopifnot(is.list(pts) && all(c("x", "y") %in% names(pts)))
cvmat_polygon(image, pts, convex, crop, color)
}
#' @export
#' @rdname opencv-area
#' @param pts a list of points with elements x and y
ocv_bbox <- function(image, pts){
if(missing(pts)){
cvmat_bbox(image)
}else{
stopifnot(is.list(pts) && all(c("x", "y") %in% names(pts)))
cvpoints_bbox(image, pts)
}
}
#' @export
#' @rdname opencv-area
#' @param pts a list of points with elements x and y
ocv_chull <- function(pts){
stopifnot(is.list(pts) && all(c("x", "y") %in% names(pts)))
cvpoints_chull(pts)
}
opencv/R/opencv.R 0000644 0001762 0000144 00000007533 14576572451 013412 0 ustar ligges users #' OpenCV Computer Vision
#'
#' Tools to experiment with computer vision algorithms. Use [ocv_read] and
#' [ocv_write] to load/save images on disk, or use [ocv_picture] / [ocv_video]
#' to use your webcam. In RSudio IDE the image objects will automatically be
#' displayed in the viewer pane.
#'
#' @export
#' @rdname opencv
#' @importFrom Rcpp sourceCpp
#' @useDynLib opencv
#' @param path image file such as png or jpeg
#' @examples # Silly example
#' mona <- ocv_read('https://jeroen.github.io/images/monalisa.jpg')
#'
#' # Edge detection
#' ocv_edges(mona)
#' ocv_markers(mona)
#'
#' # Find face
#' faces <- ocv_face(mona)
#'
#' # To show locations of faces
#' facemask <- ocv_facemask(mona)
#' attr(facemask, 'faces')
#'
#' # This is not strictly needed
#' ocv_destroy(mona)
ocv_read <- function(path){
if(grepl("https?://", path)){
base <- basename(path)
tmp <- file.path(tempdir(), base)
utils::download.file(path, tmp, mode = 'wb')
path <- tmp
}
path <- normalizePath(path, mustWork = TRUE)
cvmat_read(path)
}
#' @export
#' @rdname opencv
#' @param image an ocv image object created from e.g. [ocv_read()]
ocv_write <- function(image, path){
path <- normalizePath(path, mustWork = FALSE)
cvmat_write(image, path)
}
#' @export
#' @rdname opencv
ocv_destroy <- function(image){
cvmat_destroy(image)
}
#' @export
#' @rdname opencv
ocv_bitmap <- function(image){
cvmat_bitmap(image)
}
#' @export
#' @rdname opencv
ocv_edges <- function(image){
cvmat_edges(image)
}
#' @export
#' @rdname opencv
ocv_picture <- function(){
cvmat_camera()
}
#' @export
`print.opencv-image` <- function(x, ...){
viewer <- getOption("viewer")
is_knit_image <- isTRUE(getOption('knitr.in.progress'))
if(!is_knit_image && is.function(viewer) && !cvmat_dead(x)){
tmp <- file.path(tempdir(), paste0("preview.png"))
ocv_write(x, path = tmp)
viewer(tmp)
}
base::print.default(x)
#TODO: copy from magick
}
#' @export
#' @rdname opencv
#' @param width output width in pixels
#' @param height output height in pixels
ocv_resize <- function(image, width = 0, height = 0){
cvmat_resize(image, as.integer(width), as.integer(height))
}
#' @export
#' @rdname opencv
ocv_mog2 <- function(image){
cvmat_mog2(image)
}
#' @export
#' @rdname opencv
ocv_knn <- function(image){
cvmat_knn(image)
}
#' @export
#' @rdname opencv
ocv_hog <- function(image){
cvmat_hog(image)
}
#' @export
#' @rdname opencv
#' @param ksize size of blurring matrix
ocv_blur <- function(image, ksize = 5){
cvmat_blur(image, ksize)
}
#' @export
#' @rdname opencv
#' @param color true or false
ocv_sketch <- function(image, color = TRUE){
cvmat_sketch(image, color)
}
#' @export
#' @rdname opencv
ocv_stylize <- function(image){
cvmat_stylize(image)
}
#' @export
#' @rdname opencv
ocv_markers <- function(image){
cvmat_markers(image)
}
#' @export
#' @rdname opencv
ocv_info <- function(image){
info <- cvmat_info(image)
info$type <- enum_label("type", info$type)
info$depth <- enum_label("depth", info$depth)
info
}
#' @export
#' @rdname opencv
#' @param target the output image
#' @param mask only copy pixels from the mask
ocv_copyto <- function(image, target, mask){
cvmat_copyto(image, target, mask)
}
#' @export
#' @rdname opencv
ocv_display <- function(image){
cvmat_display(image)
}
#' @export
#' @rdname opencv
#' @param filter an R function that takes and returns an opecv image
#' @param stop_on_result stop if an object is detected
ocv_video <- function(filter, stop_on_result = FALSE){
if(!is.function(filter))
stop("Filter must be a function")
message("Starting video window (could be behind this window)")
livestream(filter, stop_on_result)
}
#' @export
#' @rdname opencv
ocv_grayscale <- function(image){
cvmat_grayscale(image)
}
#' @export
#' @rdname opencv
ocv_version <- function(){
cvversion()
}
#' @importFrom magrittr %>%
#' @export
magrittr::`%>%`
opencv/cleanup 0000755 0001762 0000144 00000000064 14772474025 013135 0 ustar ligges users #!/bin/sh
rm -f src/Makevars configure.log autobrew
opencv/NEWS 0000644 0001762 0000144 00000001110 14766132417 012247 0 ustar ligges users 0.5.0
- Windows: use opencv from Rtools when available (R >= 4.5)
0.4.0
- Add QR code detector
- Windows: update to libopencv 4.8.1
0.3.0
- Windows: update to libopencv 4.8.0
0.2.3
- Compile with CXX17 when available to fix compiler warnings
0.2.2
- MacOS: update binaries to opencv 4.5.5
0.2
- Windows / MacOS: upgrade binary packages to OpenCV 4.4.0
- Add ocv_rectangle
- Add ocv_polygon
- Add ocv_bbox
- Add ocv_chull
- Add ocv_keypoints for keypoint detection using FAST, Harris
- Add ocv_grayscale
- Add ocv_version
0.1
- Initial CRAN release
opencv/src/ 0000755 0001762 0000144 00000000000 14772462135 012346 5 ustar ligges users opencv/src/RcppExports.cpp 0000644 0001762 0000144 00000047570 14576572451 015365 0 ustar ligges users // Generated by using Rcpp::compileAttributes() -> do not edit by hand
// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#include "opencv_types.h"
#include
using namespace Rcpp;
#ifdef RCPP_USE_GLOBAL_ROSTREAM
Rcpp::Rostream& Rcpp::Rcout = Rcpp::Rcpp_cout_get();
Rcpp::Rostream& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
#endif
// cvmat_rect
XPtrMat cvmat_rect(XPtrMat ptr, int x, int y, int width, int height);
RcppExport SEXP _opencv_cvmat_rect(SEXP ptrSEXP, SEXP xSEXP, SEXP ySEXP, SEXP widthSEXP, SEXP heightSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< int >::type x(xSEXP);
Rcpp::traits::input_parameter< int >::type y(ySEXP);
Rcpp::traits::input_parameter< int >::type width(widthSEXP);
Rcpp::traits::input_parameter< int >::type height(heightSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_rect(ptr, x, y, width, height));
return rcpp_result_gen;
END_RCPP
}
// cvmat_bbox
XPtrMat cvmat_bbox(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_bbox(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_bbox(ptr));
return rcpp_result_gen;
END_RCPP
}
// cvpoints_bbox
XPtrMat cvpoints_bbox(XPtrMat ptr, Rcpp::List pts);
RcppExport SEXP _opencv_cvpoints_bbox(SEXP ptrSEXP, SEXP ptsSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type pts(ptsSEXP);
rcpp_result_gen = Rcpp::wrap(cvpoints_bbox(ptr, pts));
return rcpp_result_gen;
END_RCPP
}
// cvpoints_chull
Rcpp::List cvpoints_chull(Rcpp::List pts);
RcppExport SEXP _opencv_cvpoints_chull(SEXP ptsSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< Rcpp::List >::type pts(ptsSEXP);
rcpp_result_gen = Rcpp::wrap(cvpoints_chull(pts));
return rcpp_result_gen;
END_RCPP
}
// cvmat_polygon
XPtrMat cvmat_polygon(XPtrMat ptr, Rcpp::List pts, bool convex, bool crop, int color);
RcppExport SEXP _opencv_cvmat_polygon(SEXP ptrSEXP, SEXP ptsSEXP, SEXP convexSEXP, SEXP cropSEXP, SEXP colorSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type pts(ptsSEXP);
Rcpp::traits::input_parameter< bool >::type convex(convexSEXP);
Rcpp::traits::input_parameter< bool >::type crop(cropSEXP);
Rcpp::traits::input_parameter< int >::type color(colorSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_polygon(ptr, pts, convex, crop, color));
return rcpp_result_gen;
END_RCPP
}
// cvmat_destroy
void cvmat_destroy(XPtrMat image);
RcppExport SEXP _opencv_cvmat_destroy(SEXP imageSEXP) {
BEGIN_RCPP
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type image(imageSEXP);
cvmat_destroy(image);
return R_NilValue;
END_RCPP
}
// cvmat_dead
bool cvmat_dead(XPtrMat image);
RcppExport SEXP _opencv_cvmat_dead(SEXP imageSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type image(imageSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_dead(image));
return rcpp_result_gen;
END_RCPP
}
// cvmat_size
int cvmat_size(XPtrMat image);
RcppExport SEXP _opencv_cvmat_size(SEXP imageSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type image(imageSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_size(image));
return rcpp_result_gen;
END_RCPP
}
// cvmat_new
XPtrMat cvmat_new();
RcppExport SEXP _opencv_cvmat_new() {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = Rcpp::wrap(cvmat_new());
return rcpp_result_gen;
END_RCPP
}
// cvmat_dupe
XPtrMat cvmat_dupe(XPtrMat image);
RcppExport SEXP _opencv_cvmat_dupe(SEXP imageSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type image(imageSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_dupe(image));
return rcpp_result_gen;
END_RCPP
}
// cvmat_read
XPtrMat cvmat_read(Rcpp::String path);
RcppExport SEXP _opencv_cvmat_read(SEXP pathSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< Rcpp::String >::type path(pathSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_read(path));
return rcpp_result_gen;
END_RCPP
}
// cvmat_camera
XPtrMat cvmat_camera();
RcppExport SEXP _opencv_cvmat_camera() {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = Rcpp::wrap(cvmat_camera());
return rcpp_result_gen;
END_RCPP
}
// cvmat_write
std::string cvmat_write(XPtrMat image, std::string path);
RcppExport SEXP _opencv_cvmat_write(SEXP imageSEXP, SEXP pathSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type image(imageSEXP);
Rcpp::traits::input_parameter< std::string >::type path(pathSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_write(image, path));
return rcpp_result_gen;
END_RCPP
}
// cvmat_resize
XPtrMat cvmat_resize(XPtrMat ptr, int width, int height);
RcppExport SEXP _opencv_cvmat_resize(SEXP ptrSEXP, SEXP widthSEXP, SEXP heightSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< int >::type width(widthSEXP);
Rcpp::traits::input_parameter< int >::type height(heightSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_resize(ptr, width, height));
return rcpp_result_gen;
END_RCPP
}
// cvmat_raw_bgr
XPtrMat cvmat_raw_bgr(Rcpp::RawVector image, int width, int height);
RcppExport SEXP _opencv_cvmat_raw_bgr(SEXP imageSEXP, SEXP widthSEXP, SEXP heightSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< Rcpp::RawVector >::type image(imageSEXP);
Rcpp::traits::input_parameter< int >::type width(widthSEXP);
Rcpp::traits::input_parameter< int >::type height(heightSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_raw_bgr(image, width, height));
return rcpp_result_gen;
END_RCPP
}
// cvmat_raw_bw
XPtrMat cvmat_raw_bw(Rcpp::RawVector image, int width, int height);
RcppExport SEXP _opencv_cvmat_raw_bw(SEXP imageSEXP, SEXP widthSEXP, SEXP heightSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< Rcpp::RawVector >::type image(imageSEXP);
Rcpp::traits::input_parameter< int >::type width(widthSEXP);
Rcpp::traits::input_parameter< int >::type height(heightSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_raw_bw(image, width, height));
return rcpp_result_gen;
END_RCPP
}
// cvmat_bitmap
Rcpp::RawVector cvmat_bitmap(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_bitmap(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_bitmap(ptr));
return rcpp_result_gen;
END_RCPP
}
// cvmat_copyto
XPtrMat cvmat_copyto(XPtrMat from, XPtrMat to, XPtrMat mask);
RcppExport SEXP _opencv_cvmat_copyto(SEXP fromSEXP, SEXP toSEXP, SEXP maskSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type from(fromSEXP);
Rcpp::traits::input_parameter< XPtrMat >::type to(toSEXP);
Rcpp::traits::input_parameter< XPtrMat >::type mask(maskSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_copyto(from, to, mask));
return rcpp_result_gen;
END_RCPP
}
// cvmat_info
Rcpp::List cvmat_info(XPtrMat image);
RcppExport SEXP _opencv_cvmat_info(SEXP imageSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type image(imageSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_info(image));
return rcpp_result_gen;
END_RCPP
}
// cvmat_display
void cvmat_display(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_display(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
cvmat_display(ptr);
return R_NilValue;
END_RCPP
}
// livestream
Rcpp::RObject livestream(Rcpp::Function filter, bool stop_on_result);
RcppExport SEXP _opencv_livestream(SEXP filterSEXP, SEXP stop_on_resultSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< Rcpp::Function >::type filter(filterSEXP);
Rcpp::traits::input_parameter< bool >::type stop_on_result(stop_on_resultSEXP);
rcpp_result_gen = Rcpp::wrap(livestream(filter, stop_on_result));
return rcpp_result_gen;
END_RCPP
}
// data_prefix
Rcpp::String data_prefix();
RcppExport SEXP _opencv_data_prefix() {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = Rcpp::wrap(data_prefix());
return rcpp_result_gen;
END_RCPP
}
// set_num_threads
int set_num_threads(int n);
RcppExport SEXP _opencv_set_num_threads(SEXP nSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< int >::type n(nSEXP);
rcpp_result_gen = Rcpp::wrap(set_num_threads(n));
return rcpp_result_gen;
END_RCPP
}
// cvmat_grayscale
XPtrMat cvmat_grayscale(XPtrMat src);
RcppExport SEXP _opencv_cvmat_grayscale(SEXP srcSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type src(srcSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_grayscale(src));
return rcpp_result_gen;
END_RCPP
}
// cvmat_blur
XPtrMat cvmat_blur(XPtrMat ptr, size_t ksize);
RcppExport SEXP _opencv_cvmat_blur(SEXP ptrSEXP, SEXP ksizeSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< size_t >::type ksize(ksizeSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_blur(ptr, ksize));
return rcpp_result_gen;
END_RCPP
}
// cvmat_sketch
XPtrMat cvmat_sketch(XPtrMat ptr, bool color);
RcppExport SEXP _opencv_cvmat_sketch(SEXP ptrSEXP, SEXP colorSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< bool >::type color(colorSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_sketch(ptr, color));
return rcpp_result_gen;
END_RCPP
}
// cvmat_stylize
XPtrMat cvmat_stylize(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_stylize(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_stylize(ptr));
return rcpp_result_gen;
END_RCPP
}
// enums_types
Rcpp::List enums_types(int maximum);
RcppExport SEXP _opencv_enums_types(SEXP maximumSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< int >::type maximum(maximumSEXP);
rcpp_result_gen = Rcpp::wrap(enums_types(maximum));
return rcpp_result_gen;
END_RCPP
}
// enums_depth
Rcpp::List enums_depth();
RcppExport SEXP _opencv_enums_depth() {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = Rcpp::wrap(enums_depth());
return rcpp_result_gen;
END_RCPP
}
// cvmat_face
XPtrMat cvmat_face(XPtrMat ptr, const char * facedata, const char * eyedata);
RcppExport SEXP _opencv_cvmat_face(SEXP ptrSEXP, SEXP facedataSEXP, SEXP eyedataSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< const char * >::type facedata(facedataSEXP);
Rcpp::traits::input_parameter< const char * >::type eyedata(eyedataSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_face(ptr, facedata, eyedata));
return rcpp_result_gen;
END_RCPP
}
// cvmat_facemask
XPtrMat cvmat_facemask(XPtrMat ptr, const char * facedata);
RcppExport SEXP _opencv_cvmat_facemask(SEXP ptrSEXP, SEXP facedataSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< const char * >::type facedata(facedataSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_facemask(ptr, facedata));
return rcpp_result_gen;
END_RCPP
}
// cvmat_mog2
XPtrMat cvmat_mog2(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_mog2(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_mog2(ptr));
return rcpp_result_gen;
END_RCPP
}
// cvmat_knn
XPtrMat cvmat_knn(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_knn(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_knn(ptr));
return rcpp_result_gen;
END_RCPP
}
// cvmat_edges
XPtrMat cvmat_edges(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_edges(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_edges(ptr));
return rcpp_result_gen;
END_RCPP
}
// cvkeypoints_fast
Rcpp::List cvkeypoints_fast(XPtrMat ptr, int threshold, bool nonmaxSuppression, int type);
RcppExport SEXP _opencv_cvkeypoints_fast(SEXP ptrSEXP, SEXP thresholdSEXP, SEXP nonmaxSuppressionSEXP, SEXP typeSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< int >::type threshold(thresholdSEXP);
Rcpp::traits::input_parameter< bool >::type nonmaxSuppression(nonmaxSuppressionSEXP);
Rcpp::traits::input_parameter< int >::type type(typeSEXP);
rcpp_result_gen = Rcpp::wrap(cvkeypoints_fast(ptr, threshold, nonmaxSuppression, type));
return rcpp_result_gen;
END_RCPP
}
// cvkeypoints_harris
Rcpp::List cvkeypoints_harris(XPtrMat ptr, int numOctaves, float corn_thresh, float DOG_thresh, int maxCorners, int num_layers);
RcppExport SEXP _opencv_cvkeypoints_harris(SEXP ptrSEXP, SEXP numOctavesSEXP, SEXP corn_threshSEXP, SEXP DOG_threshSEXP, SEXP maxCornersSEXP, SEXP num_layersSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< int >::type numOctaves(numOctavesSEXP);
Rcpp::traits::input_parameter< float >::type corn_thresh(corn_threshSEXP);
Rcpp::traits::input_parameter< float >::type DOG_thresh(DOG_threshSEXP);
Rcpp::traits::input_parameter< int >::type maxCorners(maxCornersSEXP);
Rcpp::traits::input_parameter< int >::type num_layers(num_layersSEXP);
rcpp_result_gen = Rcpp::wrap(cvkeypoints_harris(ptr, numOctaves, corn_thresh, DOG_thresh, maxCorners, num_layers));
return rcpp_result_gen;
END_RCPP
}
// cvmat_hog
XPtrMat cvmat_hog(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_hog(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_hog(ptr));
return rcpp_result_gen;
END_RCPP
}
// cvmat_markers
XPtrMat cvmat_markers(XPtrMat ptr);
RcppExport SEXP _opencv_cvmat_markers(SEXP ptrSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_markers(ptr));
return rcpp_result_gen;
END_RCPP
}
// cvmat_qr_detect
SEXP cvmat_qr_detect(XPtrMat ptr, bool return_image, bool use_wechat);
RcppExport SEXP _opencv_cvmat_qr_detect(SEXP ptrSEXP, SEXP return_imageSEXP, SEXP use_wechatSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< XPtrMat >::type ptr(ptrSEXP);
Rcpp::traits::input_parameter< bool >::type return_image(return_imageSEXP);
Rcpp::traits::input_parameter< bool >::type use_wechat(use_wechatSEXP);
rcpp_result_gen = Rcpp::wrap(cvmat_qr_detect(ptr, return_image, use_wechat));
return rcpp_result_gen;
END_RCPP
}
// cvversion
std::string cvversion();
RcppExport SEXP _opencv_cvversion() {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = Rcpp::wrap(cvversion());
return rcpp_result_gen;
END_RCPP
}
static const R_CallMethodDef CallEntries[] = {
{"_opencv_cvmat_rect", (DL_FUNC) &_opencv_cvmat_rect, 5},
{"_opencv_cvmat_bbox", (DL_FUNC) &_opencv_cvmat_bbox, 1},
{"_opencv_cvpoints_bbox", (DL_FUNC) &_opencv_cvpoints_bbox, 2},
{"_opencv_cvpoints_chull", (DL_FUNC) &_opencv_cvpoints_chull, 1},
{"_opencv_cvmat_polygon", (DL_FUNC) &_opencv_cvmat_polygon, 5},
{"_opencv_cvmat_destroy", (DL_FUNC) &_opencv_cvmat_destroy, 1},
{"_opencv_cvmat_dead", (DL_FUNC) &_opencv_cvmat_dead, 1},
{"_opencv_cvmat_size", (DL_FUNC) &_opencv_cvmat_size, 1},
{"_opencv_cvmat_new", (DL_FUNC) &_opencv_cvmat_new, 0},
{"_opencv_cvmat_dupe", (DL_FUNC) &_opencv_cvmat_dupe, 1},
{"_opencv_cvmat_read", (DL_FUNC) &_opencv_cvmat_read, 1},
{"_opencv_cvmat_camera", (DL_FUNC) &_opencv_cvmat_camera, 0},
{"_opencv_cvmat_write", (DL_FUNC) &_opencv_cvmat_write, 2},
{"_opencv_cvmat_resize", (DL_FUNC) &_opencv_cvmat_resize, 3},
{"_opencv_cvmat_raw_bgr", (DL_FUNC) &_opencv_cvmat_raw_bgr, 3},
{"_opencv_cvmat_raw_bw", (DL_FUNC) &_opencv_cvmat_raw_bw, 3},
{"_opencv_cvmat_bitmap", (DL_FUNC) &_opencv_cvmat_bitmap, 1},
{"_opencv_cvmat_copyto", (DL_FUNC) &_opencv_cvmat_copyto, 3},
{"_opencv_cvmat_info", (DL_FUNC) &_opencv_cvmat_info, 1},
{"_opencv_cvmat_display", (DL_FUNC) &_opencv_cvmat_display, 1},
{"_opencv_livestream", (DL_FUNC) &_opencv_livestream, 2},
{"_opencv_data_prefix", (DL_FUNC) &_opencv_data_prefix, 0},
{"_opencv_set_num_threads", (DL_FUNC) &_opencv_set_num_threads, 1},
{"_opencv_cvmat_grayscale", (DL_FUNC) &_opencv_cvmat_grayscale, 1},
{"_opencv_cvmat_blur", (DL_FUNC) &_opencv_cvmat_blur, 2},
{"_opencv_cvmat_sketch", (DL_FUNC) &_opencv_cvmat_sketch, 2},
{"_opencv_cvmat_stylize", (DL_FUNC) &_opencv_cvmat_stylize, 1},
{"_opencv_enums_types", (DL_FUNC) &_opencv_enums_types, 1},
{"_opencv_enums_depth", (DL_FUNC) &_opencv_enums_depth, 0},
{"_opencv_cvmat_face", (DL_FUNC) &_opencv_cvmat_face, 3},
{"_opencv_cvmat_facemask", (DL_FUNC) &_opencv_cvmat_facemask, 2},
{"_opencv_cvmat_mog2", (DL_FUNC) &_opencv_cvmat_mog2, 1},
{"_opencv_cvmat_knn", (DL_FUNC) &_opencv_cvmat_knn, 1},
{"_opencv_cvmat_edges", (DL_FUNC) &_opencv_cvmat_edges, 1},
{"_opencv_cvkeypoints_fast", (DL_FUNC) &_opencv_cvkeypoints_fast, 4},
{"_opencv_cvkeypoints_harris", (DL_FUNC) &_opencv_cvkeypoints_harris, 6},
{"_opencv_cvmat_hog", (DL_FUNC) &_opencv_cvmat_hog, 1},
{"_opencv_cvmat_markers", (DL_FUNC) &_opencv_cvmat_markers, 1},
{"_opencv_cvmat_qr_detect", (DL_FUNC) &_opencv_cvmat_qr_detect, 3},
{"_opencv_cvversion", (DL_FUNC) &_opencv_cvversion, 0},
{NULL, NULL, 0}
};
RcppExport void R_init_opencv(DllInfo *dll) {
R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
R_useDynamicSymbols(dll, FALSE);
}
opencv/src/effects.cpp 0000644 0001762 0000144 00000001337 14435124332 014463 0 ustar ligges users #include "util.hpp"
using namespace cv;
// [[Rcpp::export]]
XPtrMat cvmat_blur(XPtrMat ptr, size_t ksize){
Mat out;
cv::blur(get_mat(ptr), out, Size(ksize, ksize));
return cvmat_xptr(out);
}
// [[Rcpp::export]]
XPtrMat cvmat_sketch(XPtrMat ptr, bool color){
Mat out1;
Mat out2;
#ifndef HAVE_OPENCV_3
throw std::runtime_error("pencilSketch requires OpenCV 3 or newer");
#else
pencilSketch(get_mat(ptr),out1, out2, 10 , 0.1f, 0.03f);
#endif
return cvmat_xptr(color ? out2 : out1);
}
// [[Rcpp::export]]
XPtrMat cvmat_stylize(XPtrMat ptr){
Mat out;
#ifndef HAVE_OPENCV_3
throw std::runtime_error("stylization requires OpenCV 3 or newer");
#else
stylization(get_mat(ptr), out);
#endif
return cvmat_xptr(out);
}
opencv/src/util.cpp 0000644 0001762 0000144 00000006315 14435124332 014022 0 ustar ligges users #include "util.hpp"
using namespace cv;
using namespace std;
void detectAndDraw( Mat img, CascadeClassifier& cascade,
CascadeClassifier& nestedCascade,
double scale, bool tryflip )
{
double t = 0;
std::vector faces, faces2;
const static Scalar colors[] =
{
Scalar(255,0,0),
Scalar(255,128,0),
Scalar(255,255,0),
Scalar(0,255,0),
Scalar(0,128,255),
Scalar(0,255,255),
Scalar(0,0,255),
Scalar(255,0,255)
};
Mat gray, smallImg;
cvtColor( img, gray, COLOR_BGR2GRAY );
double fx = 1 / scale;
resize( gray, smallImg, Size(), fx, fx);
equalizeHist( smallImg, smallImg );
t = (double)getTickCount();
cascade.detectMultiScale( smallImg, faces,
1.1, 2, 0
//|CASCADE_FIND_BIGGEST_OBJECT
//|CASCADE_DO_ROUGH_SEARCH
|CASCADE_SCALE_IMAGE,
Size(30, 30) );
if( tryflip )
{
flip(smallImg, smallImg, 1);
cascade.detectMultiScale( smallImg, faces2,
1.1, 2, 0
//|CASCADE_FIND_BIGGEST_OBJECT
//|CASCADE_DO_ROUGH_SEARCH
|CASCADE_SCALE_IMAGE,
Size(30, 30) );
for( std::vector::const_iterator r = faces2.begin(); r != faces2.end(); ++r )
{
faces.push_back(Rect(smallImg.cols - r->x - r->width, r->y, r->width, r->height));
}
}
t = (double)getTickCount() - t;
//printf( "detection time = %g ms\n", t*1000/getTickFrequency());
for ( size_t i = 0; i < faces.size(); i++ )
{
Rect r = faces[i];
Mat smallImgROI;
std::vector nestedObjects;
Point center;
Scalar color = colors[i%8];
int radius;
double aspect_ratio = (double)r.width/r.height;
if( 0.75 < aspect_ratio && aspect_ratio < 1.3 )
{
center.x = cvRound((r.x + r.width*0.5)*scale);
center.y = cvRound((r.y + r.height*0.5)*scale);
radius = cvRound((r.width + r.height)*0.25*scale);
circle( img, center, radius, color, 3, 8, 0 );
}
else
rectangle( img, cv::Point(cvRound(r.x*scale), cvRound(r.y*scale)),
cv::Point(cvRound((r.x + r.width-1)*scale), cvRound((r.y + r.height-1)*scale)),
color, 3, 8, 0);
if( nestedCascade.empty() )
continue;
smallImgROI = smallImg( r );
nestedCascade.detectMultiScale( smallImgROI, nestedObjects,
1.1, 2, 0
//|CASCADE_FIND_BIGGEST_OBJECT
//|CASCADE_DO_ROUGH_SEARCH
//|CASCADE_DO_CANNY_PRUNING
|CASCADE_SCALE_IMAGE,
Size(30, 30) );
for ( size_t j = 0; j < nestedObjects.size(); j++ )
{
Rect nr = nestedObjects[j];
center.x = cvRound((r.x + nr.x + nr.width*0.5)*scale);
center.y = cvRound((r.y + nr.y + nr.height*0.5)*scale);
radius = cvRound((nr.width + nr.height)*0.25*scale);
circle( img, center, radius, color, 3, 8, 0 );
}
}
//imshow( "result", img );
}
opencv/src/Makevars.win 0000644 0001762 0000144 00000002547 14772464233 014647 0 ustar ligges users PKG_CONFIG_NAME = opencv4
PKG_CONFIG ?= $(BINPREF)pkg-config
PKG_LIBS := $(shell $(PKG_CONFIG) --libs $(PKG_CONFIG_NAME))
STATIC_CFLAGS = -DHAVE_XFEATURES2D
ifneq ($(findstring xfeatures2d,$(PKG_LIBS)),)
$(info using $(PKG_CONFIG_NAME) from Rtools)
PKG_CPPFLAGS := $(shell $(PKG_CONFIG) --cflags $(PKG_CONFIG_NAME)) $(STATIC_CFLAGS)
OPENCVDATA := $(shell $(PKG_CONFIG) --variable=prefix $(PKG_CONFIG_NAME))/share/opencv4
else
RWINLIB = ../.deps/opencv
PKG_CPPFLAGS = -I$(RWINLIB)/include/opencv4 $(STATIC_CFLAGS)
OLDLIBDIR = lib${subst gcc,,${COMPILED_BY}}${R_ARCH}
PKG_LIBS = \
-L$(RWINLIB)/$(OLDLIBDIR) \
-L$(RWINLIB)/lib \
-lopencv_ml481 -lopencv_objdetect481 -lopencv_photo481 -lopencv_stitching481 -lopencv_wechat_qrcode481 -lopencv_dnn481 \
-lopencv_video481 -lopencv_calib3d481 -lopencv_xfeatures2d481 -lopencv_features2d481 -lopencv_highgui481 -lopencv_flann481 \
-lopencv_videoio481 -lopencv_imgcodecs481 -lopencv_imgproc481 -lopencv_core481 -llibopenjp2 -lquirc \
-ljpeg -lwebp -lsharpyuv -lpng -lz -ltiff -lpthread -lgdi32 -lole32 -lopengl32 -lcomdlg32 -lOleAut32 -luuid
OPENCVDATA = $(RWINLIB)/share
endif
all: copydata
$(OBJECTS): | $(RWINLIB)
$(RWINLIB):
"${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe" "../tools/winlibs.R"
copydata: | $(RWINLIB)
rm -Rf ../inst/share && mkdir -p ../inst
cp -Rf $(OPENCVDATA) ../inst/share
cleanup: $(SHLIB)
@rm -Rf $(RWINLIB)
opencv/src/hog.cpp 0000644 0001762 0000144 00000002761 14435124332 013623 0 ustar ligges users #include "util.hpp"
using namespace cv;
using namespace std;
// [[Rcpp::export]]
XPtrMat cvmat_hog(XPtrMat ptr){
HOGDescriptor hog;
hog.setSVMDetector(HOGDescriptor::getDefaultPeopleDetector());
vector found, found_filtered;
double t = (double) getTickCount();
// Run the detector with default parameters. to get a higher hit-rate
// (and more false alarms, respectively), decrease the hitThreshold and
// groupThreshold (set groupThreshold to 0 to turn off the grouping completely).
hog.detectMultiScale(get_mat(ptr), found, 0, Size(8,8), Size(32,32), 1.05, 2);
t = (double) getTickCount() - t;
//cout << "detection time = " << (t*1000./cv::getTickFrequency()) << " ms" << endl;
for(size_t i = 0; i < found.size(); i++ )
{
Rect r = found[i];
size_t j;
// Do not add small detections inside a bigger detection.
for ( j = 0; j < found.size(); j++ ){
if ( j != i && (r & found[j]) == r )
break;
if ( j == found.size() )
found_filtered.push_back(r);
}
}
for (size_t i = 0; i < found_filtered.size(); i++)
{
Rect r = found_filtered[i];
// The HOG detector returns slightly larger rectangles than the real objects,
// so we slightly shrink the rectangles to get a nicer output.
r.x += cvRound(r.width*0.1);
r.width = cvRound(r.width*0.8);
r.y += cvRound(r.height*0.07);
r.height = cvRound(r.height*0.8);
Mat img = get_mat(ptr);
rectangle(img, r.tl(), r.br(), cv::Scalar(0,255,0), 3);
}
return ptr;
}
opencv/src/features.cpp 0000644 0001762 0000144 00000004743 14435124332 014666 0 ustar ligges users #include
#include "util.hpp"
#include
#include
#ifdef HAVE_XFEATURES2D
#include
#endif
Rcpp::List keypoints_coords(const std::vector& pts){
std::vector x;
std::vector y;
for (size_t i = 0; i < pts.size(); ++i){
x.push_back(pts[i].pt.x);
y.push_back(pts[i].pt.y);
}
Rcpp::List out = Rcpp::List::create(Rcpp::Named("x") = x,
Rcpp::Named("y") = y);
return out;
}
// [[Rcpp::export]]
Rcpp::List cvkeypoints_fast(XPtrMat ptr, int threshold = 0, bool nonmaxSuppression = true, int type = 2){
cv::Mat img;
cv::cvtColor(get_mat(ptr), img, cv::COLOR_BGR2GRAY);
std::vector keypoints;
#ifndef HAVE_XFEATURES2D
Rcpp::Rcout << "Keypoint detection disabled as module xfeatures2d from opencv_contrib is not present." << std::endl;
return keypoints_coords(keypoints);
#else
// versions < 4 had CV_VERSION_EPOCH instead of CV_VERSION_MAJOR and cv::FastFeatureDetector::DetectorType did not exist (was just an integer)
#ifndef HAVE_OPENCV_4
int neighbourhood;
#else
cv::FastFeatureDetector::DetectorType neighbourhood;
#endif
switch(type){
case cv::FastFeatureDetector::TYPE_9_16:
neighbourhood = cv::FastFeatureDetector::TYPE_9_16;
break;
case cv::FastFeatureDetector::TYPE_7_12:
neighbourhood = cv::FastFeatureDetector::TYPE_7_12;
break;
case cv::FastFeatureDetector::TYPE_5_8:
neighbourhood = cv::FastFeatureDetector::TYPE_5_8;
break;
default:
neighbourhood = cv::FastFeatureDetector::TYPE_9_16;
break;
}
cv::xfeatures2d::FASTForPointSet(img, keypoints, threshold, nonmaxSuppression, neighbourhood);
return keypoints_coords(keypoints);
#endif
}
// [[Rcpp::export]]
Rcpp::List cvkeypoints_harris(XPtrMat ptr,
int numOctaves = 6, float corn_thresh = 0.01, float DOG_thresh = 0.01, int maxCorners = 5000, int num_layers = 4){
cv::Mat img;
cv::cvtColor(get_mat(ptr), img, cv::COLOR_BGR2GRAY);
std::vector keypoints;
#ifndef HAVE_XFEATURES2D
Rcpp::Rcout << "Keypoint detection disabled as module xfeatures2d from opencv_contrib is not present." << std::endl;
return keypoints_coords(keypoints);
#else
auto featureDetector = cv::xfeatures2d::HarrisLaplaceFeatureDetector::create(numOctaves, corn_thresh, DOG_thresh, maxCorners, num_layers);
featureDetector->detect(img, keypoints);
return keypoints_coords(keypoints);
#endif
}
opencv/src/util.hpp 0000644 0001762 0000144 00000000455 14435124332 014026 0 ustar ligges users #include "opencv_types.h"
void detectAndDraw( cv::Mat img, cv::CascadeClassifier& cascade,
cv::CascadeClassifier& nestedCascade,
double scale, bool tryflip );
cv::Mat get_mat(XPtrMat image);
XPtrMat cvmat_xptr(cv::Mat *frame);
XPtrMat cvmat_xptr(cv::Mat orig);
opencv/src/qrdetect.cpp 0000644 0001762 0000144 00000003666 14576574353 014710 0 ustar ligges users #include "util.hpp"
using namespace cv;
#ifdef HAVE_WECHATQR
#include
static std::string qr_scan_wechat(XPtrMat ptr, Mat &points){
static wechat_qrcode::WeChatQRCode qrDet = wechat_qrcode::WeChatQRCode();
std::vector pointsvec;
std::vector data = qrDet.detectAndDecode(get_mat(ptr), pointsvec);
if(data.size() > 0){
points = pointsvec.at(0);
return data.at(0);
}
return std::string();
}
#endif
static std::string qr_scan_opencv(XPtrMat ptr, Mat &points){
#ifdef HAVE_QUIRC
static QRCodeDetector qrDet = QRCodeDetector();
return qrDet.detectAndDecode(get_mat(ptr), points);
#else
throw std::runtime_error("QR scanner requires OpenCV 3.4.4 or newer");
#endif
}
// [[Rcpp::export]]
SEXP cvmat_qr_detect(XPtrMat ptr, bool return_image = false, bool use_wechat = true){
Mat points;
#ifdef HAVE_WECHATQR
std::string data = use_wechat ? qr_scan_wechat(ptr, points) : qr_scan_opencv(ptr, points);
#else
std::string data = qr_scan_opencv(ptr, points);
#endif
if(!data.length())
return R_NilValue;
if(!use_wechat)
points = points.reshape(1, 4);
int len = points.size().height;
Rcpp::IntegerMatrix corners(len, 2);
for (int i = 0; i < len; i++) {
Point pt = cv::Point(points.row(i));
corners[i] = pt.x;
corners[i+len] = pt.y;
}
if(!return_image){
Rcpp::CharacterVector out(data);
out.attr("points") = corners;
return out;
}
cv::Mat img = get_mat(ptr);
for (int i = 0; i < len; i++) {
Point pt1 = cv::Point(points.row(i));
Point pt2 = cv::Point(points.row((i + 1) % 4));
line(img, pt1, pt2, Scalar(255, 0, 0), 3);
}
cv::putText(img, data,
cv::Point(10, img.rows / 2), //left-middle position
cv::FONT_HERSHEY_DUPLEX,
1.0,
CV_RGB(118, 185, 0), //font color
2);
ptr.attr("value") = Rcpp::CharacterVector::create(data);
ptr.attr("points") = corners;
return ptr;
}
opencv/src/enums.cpp 0000644 0001762 0000144 00000005435 14435124332 014176 0 ustar ligges users #include
#include
// [[Rcpp::export]]
Rcpp::List enums_types(int maximum = 4){
std::vector key;
std::vector value;
#ifdef CV_8U
key.push_back(CV_8U);
value.push_back("CV_8U");
for(int i = 1; i <= maximum; i++){
key.push_back(CV_MAKETYPE(CV_8U, i));
value.push_back("CV_8U" + std::to_string(i));
}
#endif
#ifdef CV_8S
key.push_back(CV_8S);
value.push_back("CV_8S");
for(int i = 1; i <= maximum; i++){
key.push_back(CV_MAKETYPE(CV_8S, i));
value.push_back("CV_8S" + std::to_string(i));
}
#endif
#ifdef CV_16U
key.push_back(CV_16U);
value.push_back("CV_16U");
for(int i = 1; i <= maximum; i++){
key.push_back(CV_MAKETYPE(CV_16U, i));
value.push_back("CV_16U" + std::to_string(i));
}
#endif
#ifdef CV_16S
key.push_back(CV_16S);
value.push_back("CV_16S");
for(int i = 1; i <= maximum; i++){
key.push_back(CV_MAKETYPE(CV_16S, i));
value.push_back("CV_16S" + std::to_string(i));
}
#endif
#ifdef CV_16F
key.push_back(CV_16F);
value.push_back("CV_16F");
for(int i = 1; i <= maximum; i++){
key.push_back(CV_MAKETYPE(CV_16F, i));
value.push_back("CV_16F" + std::to_string(i));
}
#endif
#ifdef CV_32S
key.push_back(CV_32S);
value.push_back("CV_32S");
for(int i = 1; i <= maximum; i++){
key.push_back(CV_MAKETYPE(CV_32S, i));
value.push_back("CV_32S" + std::to_string(i));
}
#endif
#ifdef CV_32F
key.push_back(CV_32F);
value.push_back("CV_32F");
for(int i = 1; i <= maximum; i++){
key.push_back(CV_MAKETYPE(CV_32F, i));
value.push_back("CV_32F" + std::to_string(i));
}
#endif
#ifdef CV_64F
key.push_back(CV_64F);
value.push_back("CV_64F");
for(int i = 1; i <= maximum; i++){
key.push_back(CV_MAKETYPE(CV_64F, i));
value.push_back("CV_64F" + std::to_string(i));
}
#endif
Rcpp::List out = Rcpp::List::create(Rcpp::Named("key") = key,
Rcpp::Named("value") = value);
return out;
}
// [[Rcpp::export]]
Rcpp::List enums_depth(){
std::vector key;
std::vector value;
#ifdef CV_8U
key.push_back(CV_8U);
value.push_back("CV_8U");
#endif
#ifdef CV_8S
key.push_back(CV_8S);
value.push_back("CV_8S");
#endif
#ifdef CV_16U
key.push_back(CV_16U);
value.push_back("CV_16U");
#endif
#ifdef CV_16S
key.push_back(CV_16S);
value.push_back("CV_16S");
#endif
#ifdef CV_16F
key.push_back(CV_16F);
value.push_back("CV_16F");
#endif
#ifdef CV_32S
key.push_back(CV_32S);
value.push_back("CV_32S");
#endif
#ifdef CV_32F
key.push_back(CV_32F);
value.push_back("CV_32F");
#endif
#ifdef CV_64F
key.push_back(CV_64F);
value.push_back("CV_64F");
#endif
Rcpp::List out = Rcpp::List::create(Rcpp::Named("key") = key,
Rcpp::Named("value") = value);
return out;
}
opencv/src/version.cpp 0000644 0001762 0000144 00000000173 14435124332 014526 0 ustar ligges users #include
#include
// [[Rcpp::export]]
std::string cvversion(){
return CV_VERSION;
}
opencv/src/points.cpp 0000644 0001762 0000144 00000001040 14435124332 014347 0 ustar ligges users #include "util.hpp"
using namespace cv;
using namespace std;
// [[Rcpp::export]]
XPtrMat cvmat_markers(XPtrMat ptr){
Mat gray;
Mat image = get_mat(ptr);
cvtColor(image, gray, COLOR_BGR2GRAY);
vector points;
goodFeaturesToTrack(gray, points, 500, 0.01, 10);
TermCriteria termcrit(TermCriteria::COUNT|TermCriteria::EPS,20,0.03);
cornerSubPix(gray, points, Size(10,10), Size(-1,-1), termcrit);
for(size_t i = 0; i < points.size(); i++ ) {
circle( image, points[i], 3, Scalar(0,255,0), -1, 8);
}
return ptr;
}
opencv/src/Makevars.in 0000644 0001762 0000144 00000000131 14772462425 014444 0 ustar ligges users PKG_CPPFLAGS=@cflags@
PKG_LIBS=@libs@
all: cleanup
cleanup: $(SHLIB)
@rm -Rf ../.deps
opencv/src/areas.cpp 0000644 0001762 0000144 00000005377 14435124332 014147 0 ustar ligges users #include "util.hpp"
#include
#include
std::vector as_points(Rcpp::List pts){
std::vector points;
std::vector x = Rcpp::as>(pts["x"]);
std::vector y = Rcpp::as>(pts["y"]);
for (size_t i = 0; i < x.size(); ++i){
cv::Point2i pt(x[i], y[i]);
points.push_back(pt);
}
return points;
}
Rcpp::List points_coords(const std::vector& pts){
std::vector x;
std::vector y;
for (size_t i = 0; i < pts.size(); ++i){
x.push_back(pts[i].x);
y.push_back(pts[i].y);
}
Rcpp::List out = Rcpp::List::create(Rcpp::Named("x") = x,
Rcpp::Named("y") = y);
return out;
}
// [[Rcpp::export]]
XPtrMat cvmat_rect(XPtrMat ptr, int x = 0, int y = 0, int width = 0, int height = 0){
cv::Mat img = get_mat(ptr);
cv::Rect roi = cv::Rect(x, y, width, height);
cv::Mat output = img(roi);
return cvmat_xptr(output);
}
// [[Rcpp::export]]
XPtrMat cvmat_bbox(XPtrMat ptr){
#ifndef HAVE_OPENCV_3
Rcpp::Rcout << "ocv_bbox works only if you provide points in your version of opencv, returning original image" << std::endl;
return ptr;
#else
cv::Mat img = get_mat(ptr);
cv::Mat output;
cv::Rect roi;
if(img.channels() > 1){
cv::Mat img_gray;
cv::cvtColor(img, img_gray, cv::COLOR_BGR2GRAY);
roi = cv::boundingRect(img_gray);
}else{
roi = cv::boundingRect(img);
}
output = img(roi);
return cvmat_xptr(output);
#endif
}
// [[Rcpp::export]]
XPtrMat cvpoints_bbox(XPtrMat ptr, Rcpp::List pts){
cv::Mat img = get_mat(ptr);
auto points = as_points(pts);
cv::Rect roi = cv::boundingRect(points);
cv::Mat output = img(roi);
return cvmat_xptr(output);
}
// [[Rcpp::export]]
Rcpp::List cvpoints_chull(Rcpp::List pts){
std::vector points = as_points(pts);
if(points.size() == 0){
return points_coords(points);
}
std::vector points_chull;
cv::convexHull(points, points_chull);
return points_coords(points_chull);
}
// [[Rcpp::export]]
XPtrMat cvmat_polygon(XPtrMat ptr, Rcpp::List pts, bool convex = false, bool crop = false, int color = 255){
auto points = as_points(pts);
cv::Mat img = get_mat(ptr);
cv::Mat mask = cv::Mat::zeros(img.rows, img.cols, CV_8U);
if(convex){
cv::fillConvexPoly(mask, points, cv::Scalar(255, 255, 255));
}else{
std::vector> polygons;
polygons.push_back(points);
cv::fillPoly(mask, polygons, cv::Scalar(255, 255, 255));
}
cv::Mat area(img.rows, img.cols, img.type());
area.setTo(cv::Scalar(color, color, color));
img.copyTo(area, mask);
if(crop){
cv::Rect roi = cv::boundingRect(points);
return cvmat_xptr(area(roi));
}
return cvmat_xptr(area);
}
opencv/src/opencv_types.h 0000644 0001762 0000144 00000001166 14576574353 015251 0 ustar ligges users #define R_NO_REMAP
#define STRICT_R_HEADERS
#include
#include
#if CV_VERSION_EPOCH >= 3 || (!defined(CV_VERSION_EPOCH) && CV_VERSION_MAJOR >= 3)
#define HAVE_OPENCV_3
#endif
#if !defined(CV_VERSION_EPOCH) && CV_VERSION_MAJOR >= 4
#define HAVE_OPENCV_4
#endif
#if (CV_VERSION_MAJOR * 100 + CV_VERSION_MINOR * 10 + CV_VERSION_REVISION >= 452)
#define HAVE_WECHATQR
#endif
#if (CV_VERSION_MAJOR * 100 + CV_VERSION_MINOR * 10 + CV_VERSION_REVISION >= 344)
#define HAVE_QUIRC
#endif
void finalize_mat(cv::Mat * frame);
typedef Rcpp::XPtr