{"Package":"pixels","Type":"Package","Title":"Tools for Working with Image Pixels","Version":"0.1.1","Authors@R":"c(\nperson(\"Daniel\", \"Falbel\", email = \"daniel@rstudio.com\", role = c(\"aut\", \"cre\")),\nperson(\"Javier\", \"Luraschi\", email = \"javier@rstudio.com\", role = c(\"aut\")),\nperson(family = \"RStudio\", role = c(\"cph\"))\n)","Description":"Provides tools to show and draw image pixels using 'HTML' widgets\nand 'Shiny' applications. It can be used to visualize the 'MNIST' dataset\nfor handwritten digit recognition or to create new image recognition datasets.","License":"MIT + file LICENSE","URL":"https://github.com/javierluraschi/pixels","BugReports":"https://github.com/javierluraschi/pixels/issues","Encoding":"UTF-8","LazyData":"true","Depends":"R (>= 3.1.2)","Imports":"htmlwidgets, shiny, miniUI","Suggests":"testthat","RoxygenNote":"6.0.1","NeedsCompilation":"no","Packaged":"2020-12-03 21:56:21 UTC; javierluraschi","Author":"Daniel Falbel [aut, cre],\nJavier Luraschi [aut],\nRStudio [cph]","Maintainer":"Daniel Falbel ","Repository":"CRAN","Date/Publication":"2020-12-04 13:50:06 UTC","repoType":"cran","tarballUrl":"ftp://cran.r-project.org/pub/R/src/contrib/pixels_0.1.1.tar.gz","jsonAuthors":[{"name":"Daniel Falbel","email":"daniel@rstudio.com","maintainer":true},{"name":"Javier Luraschi","email":"javier@rstudio.com","maintainer":false},{"name":" RStudio","email":null,"maintainer":false}],"readme":"Tools for Working with Pixels in R\n================\n\n[![CRAN\\_Status\\_Badge](https://www.r-pkg.org/badges/version/pixels)](https://cran.r-project.org/package=pixels)\n\nThis package provides an [htmlwidget](http://www.htmlwidgets.org/) and [Shiny Gadget](https://shiny.rstudio.com/articles/gadgets.html) to render and draw pixels with ease.\n\nTo draw pixels run `get_pixels()` which will start the gadget to retrieve an array of numeric values representing each pixel in the image:\n\n``` r\nlibrary(pixels)\nget_pixels()\n```\n\n

\n\nTo display pixels, use `show_pixels()` with a row-first vector as follows:\n\n``` r\nshow_pixels(\n round(runif(400, 0, 1)),\n grid = c(40, 10),\n size = c(800, 200),\n params = list(fill = list(color = \"#FF3388\"))\n)\n```\n\n

\n\nFinally, one can use 'shiny\\_render\\_pixels()' with a 'Shiny' application to help collect image datasets. For instance, to collect images similar to the MNIST dataset as follows:\n\n``` r\nlibrary(shiny)\n\nui <- fluidPage(\n tags$head(\n tags$style(HTML(\"\n #pixels {\n height: 270px !important;\n margin-top: 10px;\n }\n \"))\n ),\n titlePanel(\"Digit Capture Application\"),\n textOutput(\"prompt\"),\n shiny_pixels_output(\"pixels\"),\n actionButton(\"captureDigit\", \"Capture\")\n)\n\nserver <- function(input, output) {\n output$pixels <- shiny_render_pixels(\n show_pixels()\n )\n \n digit <- reactiveVal(floor(runif(1, 1, 10)))\n output$prompt <- renderText(paste0(\"Please draw number \", digit(), \":\"))\n \n observeEvent(input$captureDigit, {\n digit_path <- file.path(\"digits\", digit())\n if (!dir.exists(digit_path)) dir.create(digit_path, recursive = TRUE)\n saveRDS(input$pixels, paste0(digit_path, \"/\", as.numeric(Sys.time()), \".rds\"))\n \n digit(floor(runif(1, 1, 10)))\n output$pixels <- shiny_render_pixels(\n show_pixels()\n )\n })\n}\n\nshinyApp(ui = ui, server = server)\n```\n\n

","jobInfo":{"package":"pixels","version":"0.1.1","parsingStatus":"success","parserVersion":1,"parsedAt":"2020-12-04T15:30:49+0000"}}

Description

Arguments

Details

See Also