{"id":7432,"date":"2015-01-05T14:48:30","date_gmt":"2015-01-05T13:48:30","guid":{"rendered":"http:\/\/www.wjst.de\/blog\/?p=7432"},"modified":"2024-09-19T17:25:21","modified_gmt":"2024-09-19T15:25:21","slug":"rstudio-knitr-rmarkdown2-and-bash","status":"publish","type":"post","link":"https:\/\/www.wjst.de\/blog\/sciencesurf\/2015\/01\/rstudio-knitr-rmarkdown2-and-bash\/","title":{"rendered":"Rstudio, knitr (Rmarkdown2) and bash"},"content":{"rendered":"

I couldn’t find any example online how to revise my R code getting the exif data from pictures<\/p>\n

\r\nfn <- c("\/usr\/local\/bin\/exiftool \/Users\/wjst\/Desktop\/white.tif")\r\ninfo <- system(fn,inter=TRUE,wait=TRUE)\r\n<\/pre>\n
when moving now to knitr. So here is what worked for me as a replacement including the parsing
\nof exiftool output.<\/p>\n
\r\n```{r, engine='bash', echo=FALSE}\r\n\/usr\/local\/bin\/exiftool \/Users\/wjst\/Desktop\/white.tif >\/Users\/wjst\/Desktop\/white.txt\r\n```\r\n```{r Exif, echo=FALSE}\r\nfn <- '\/Users\/wjst\/Desktop\/white.txt'\r\ninfo <- paste(readLines(fn))\r\ninfo <- strsplit(info,"[:]{1}[ ]{1}")\r\ninfo <- matrix(data=unlist(info), ncol = 2, byrow = TRUE)\r\ninfo <- gsub("(^[[:space:]]+|[[:space:]]+$)", "", info)\r\n```\r\n*Exif*\r\n`r kable(info)`\r\n<\/pre>\n\n
 <\/p>\n
\n  CC-BY-NC Science Surf , accessed 12.04.2026<\/span>\n <\/div>","protected":false},"excerpt":{"rendered":"
I couldn’t find any example online how to revise my R code getting the exif data from pictures fn <- c("\/usr\/local\/bin\/exiftool \/Users\/wjst\/Desktop\/white.tif") info <- system(fn,inter=TRUE,wait=TRUE) when moving now to knitr. So here is what worked for me as a replacement including the parsing of exiftool output. “`{r, engine='bash', echo=FALSE} \/usr\/local\/bin\/exiftool \/Users\/wjst\/Desktop\/white.tif >\/Users\/wjst\/Desktop\/white.txt “` “`{r Exif, … Continue reading Rstudio, knitr (Rmarkdown2) and bash<\/span> →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[9],"tags":[2893,2929,2930,2931,2610],"class_list":["post-7432","post","type-post","status-publish","format-standard","hentry","category-computer-software","tag-r","tag-exif","tag-knitr","tag-rmarkdown","tag-system"],"_links":{"self":[{"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/posts\/7432","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/comments?post=7432"}],"version-history":[{"count":3,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/posts\/7432\/revisions"}],"predecessor-version":[{"id":24057,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/posts\/7432\/revisions\/24057"}],"wp:attachment":[{"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/media?parent=7432"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/categories?post=7432"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/tags?post=7432"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}