如何解决如何在 r 块选项中使用 if else 语句将丢失的图像替换为默认图像
title: File Reading
output: html_document
params:
user1: "C:/Users/myDir/Desktop/apples.jpeg"
user2: "C:/Users/myDir/Desktop/oranges.jpeg"
假设我在 Rmardown 文件的 params 中设置了以下文件路径。现在我为每个文件设置了一个单独的块,如下所示:
```{r}
image_read(params$user1)
```
```{r}
image_read(params$user2)
```
现在假设我想编织文档,但我为 user2 指定的路径不可用。所以我更新了我的块并添加了以下内容,因此如果路径不可用或不正确,则不会评估块。
```{r,eval = file.exists(params$user2)}
image_read(params$user2)
我想要做的是以某种方式指定文件是否不存在,然后从我在文件顶部的单独块中指定的默认路径上传另一个图像
```{r}
default_image <- "C:/Users/myDir/Desktop/default.jpeg"
```
所以基本上只要文件路径丢失,我就想用这个默认图像替换它。任何帮助将不胜感激
解决方法
在这种情况下,一个简单的 if-else
语句就可以解决它。如果您要多次运行它,可能值得将其打包成一个函数。
---
title: "test conditional chunks"
output: html_document
params:
user1: "C:/Users/blah/Desktop/Discrete-event-simulation-concepts.png"
user2: "C:/Users/blah/Desktop/Discrete-event-simulation-concepts5.png"
default: "path_to_default"
---
```{r setup,include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r}
library(magick)
```
```{r}
# basic example
if (file.exists(params$user1)) {
image_read(params$user1)
} else {
image_read(params$default)
}
```
```{r}
# packing into a function
image_read_with_default <- function(path,...) {
if (file.exists(params$user1)) {
img <- magick::image_read(params$user1,...)
} else {
img <- magick::image_read(params$default,...)
}
return(img)
}
```
```{r}
image_read_with_default(params$user1)
```
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。