From a882450a0530682d584b717d71a10ae6277ae47a Mon Sep 17 00:00:00 2001
From: Kirill Voronin <yoursdearboy@gmail.com>
Date: Wed, 26 Aug 2026 15:01:57 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9F=D0=B5=D1=80=D0=B5=D0=BD=D1=91=D1=81=20?=
 =?UTF-8?q?=D0=BF=D1=80=D0=B0=D0=BA=D1=82=D0=B8=D0=BA=D1=83=20=D0=BD=D0=B0?=
 =?UTF-8?q?=20Quarto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 practice/06u2.patch                           |  6 +--
 practice/06u3.patch                           |  6 +--
 practice/06u4.patch                           |  6 +--
 practice/07u2.patch                           |  8 ++--
 practice/07u3.patch                           | 10 ++---
 practice/07u4.patch                           | 10 ++---
 practice/08u1.patch                           | 14 +++----
 practice/09u1-01.patch                        | 12 +++---
 practice/09u1-02.patch                        | 12 +++---
 practice/09u2.patch                           | 12 +++---
 practice/09u3.patch                           | 12 +++---
 practice/09u4.patch                           | 12 +++---
 practice/{Makefile.md => Makefile.qmd}        | 38 +++++++++----------
 ...hop_notebook.Rmd => workshop_notebook.qmd} |  8 ++--
 ...ork_notebook.Rmd => homework_notebook.qmd} | 13 +++----
 ...hop_notebook.Rmd => workshop_notebook.qmd} | 38 +++++++++----------
 16 files changed, 108 insertions(+), 109 deletions(-)
 rename practice/{Makefile.md => Makefile.qmd} (93%)
 rename practice/assets/{workshop_notebook.Rmd => workshop_notebook.qmd} (94%)
 rename practice/assets2/{homework_notebook.Rmd => homework_notebook.qmd} (97%)
 rename practice/{workshop_notebook.Rmd => workshop_notebook.qmd} (90%)

diff --git a/practice/06u2.patch b/practice/06u2.patch
index d65407b..0d7a7f6 100644
--- a/practice/06u2.patch
+++ b/practice/06u2.patch
@@ -1,7 +1,7 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index 7490a42..f395c41 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
 @@ -28,6 +28,7 @@ library(tidyverse)
  
  ```{r}
diff --git a/practice/06u3.patch b/practice/06u3.patch
index 2c7e160..5c24b91 100644
--- a/practice/06u3.patch
+++ b/practice/06u3.patch
@@ -1,7 +1,7 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index 7490a42..b052158 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
 @@ -42,6 +42,7 @@ library(tidyverse)
  
  ```{r}
diff --git a/practice/06u4.patch b/practice/06u4.patch
index 1e3257b..f916d69 100644
--- a/practice/06u4.patch
+++ b/practice/06u4.patch
@@ -1,7 +1,7 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index 7490a42..c9107f3 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
 @@ -58,6 +58,7 @@ library(tidyverse)
  
  ```{r}
diff --git a/practice/07u2.patch b/practice/07u2.patch
index 6b26a27..6dbcab1 100644
--- a/practice/07u2.patch
+++ b/practice/07u2.patch
@@ -1,7 +1,7 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index f26d85b..e09f293 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
 @@ -27,10 +27,11 @@ library(tidyverse)
  Это датасет в широком формате: на каждого субъекта (`USUBJID`) должна приходиться только одна строка.
  
@@ -10,7 +10,7 @@ index f26d85b..e09f293 100644
  
 -# выполняет user2
 -# ветка dm
-+dm <- dm %>%
++dm <- dm |>
 +  select(USUBJID, SEX, ACTARM)
  
  ```
diff --git a/practice/07u3.patch b/practice/07u3.patch
index 0af19fc..b1e659b 100644
--- a/practice/07u3.patch
+++ b/practice/07u3.patch
@@ -1,7 +1,7 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index f26d85b..754131c 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
 @@ -37,10 +37,13 @@ library(tidyverse)
  Выберите столбец `USUBJID` и столбец `VSORRES` под именем `TEMP`.
  
@@ -10,10 +10,10 @@ index f26d85b..754131c 100644
  
 -# выполняет user3
 -# ветка vs
-+vs <- vs %>%
++vs <- vs |>
 +  filter(VSTESTCD == "TEMP", VISITNUM == 1)
  
-+vs <- vs %>%
++vs <- vs |>
 +  select(USUBJID, TEMP = VSORRES)
  ```
  
diff --git a/practice/07u4.patch b/practice/07u4.patch
index 81c972e..ff8aeaa 100644
--- a/practice/07u4.patch
+++ b/practice/07u4.patch
@@ -1,7 +1,7 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index f26d85b..64015ab 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
 @@ -53,10 +53,13 @@ library(tidyverse)
  Выберите столбец `USUBJID` и столбец `LBORRES` под именем `WBC`.
  
@@ -10,10 +10,10 @@ index f26d85b..64015ab 100644
  
 -# выполняет user4
 -# ветка lb
-+lb <- lb %>%
++lb <- lb |>
 +  filter(LBTESTCD == "WBC", VISITNUM == 1)
  
-+lb <- lb %>%
++lb <- lb |>
 +  select(USUBJID, WBC = LBORRES)
  ```
  
diff --git a/practice/08u1.patch b/practice/08u1.patch
index 43a09ff..18255f9 100644
--- a/practice/08u1.patch
+++ b/practice/08u1.patch
@@ -1,19 +1,19 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index b529b70..1f790ec 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
-@@ -77,10 +77,12 @@ lb <- lb %>%
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
+@@ -77,10 +77,12 @@ lb <- lb |>
  Уберите строки с пропущенными данными в столбцах `TEMP` и `WBC`.
  
  ```{r}
-+data <- dm %>%
-+  left_join(vs, join_by(USUBJID)) %>%
++data <- dm |>
++  left_join(vs, join_by(USUBJID)) |>
 +  left_join(lb, join_by(USUBJID))
  
 -# выполняет ведущий
 -# ветка join
 -
-+data <- data %>%
++data <- data |>
 +  filter(!is.na(TEMP) & !is.na(WBC))
  ```
  
diff --git a/practice/09u1-01.patch b/practice/09u1-01.patch
index 97d4ac9..20ceb2b 100644
--- a/practice/09u1-01.patch
+++ b/practice/09u1-01.patch
@@ -1,11 +1,11 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index 42ecc70..2379de4 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
-@@ -91,11 +91,7 @@ data <- data %>%
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
+@@ -91,11 +91,7 @@ data <- data |>
  # перекодирование данных здесь
  
- data <- data %>%
+ data <- data |>
 -<<<<<<< HEAD
    mutate(TEMP = as.numeric(str_replace(TEMP, ",", ".")))
 -=======
@@ -14,7 +14,7 @@ index 42ecc70..2379de4 100644
  ```
  
  # 4. Визуализация
-@@ -109,11 +105,10 @@ data <- data %>%
+@@ -109,11 +105,10 @@ data <- data |>
  ‼️ Перекодирование данных выполните в общем чанке в главе 3 выше.
  
  ```{r}
diff --git a/practice/09u1-02.patch b/practice/09u1-02.patch
index 1939b45..4bad5e5 100644
--- a/practice/09u1-02.patch
+++ b/practice/09u1-02.patch
@@ -1,11 +1,11 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index 3201a45..50233c8 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
-@@ -91,11 +91,8 @@ data <- data %>%
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
+@@ -91,11 +91,8 @@ data <- data |>
  # перекодирование данных здесь
  
- data <- data %>%
+ data <- data |>
 -<<<<<<< HEAD
 -  mutate(WBC = as.numeric(str_replace(WBC, ",", ".")))
 -=======
@@ -16,7 +16,7 @@ index 3201a45..50233c8 100644
  ```
  
  # 4. Визуализация
-@@ -109,14 +106,13 @@ data <- data %>%
+@@ -109,14 +106,13 @@ data <- data |>
  ‼️ Перекодирование данных выполните в общем чанке в главе 3 выше.
  
  ```{r}
diff --git a/practice/09u2.patch b/practice/09u2.patch
index cc2ae14..a63856d 100644
--- a/practice/09u2.patch
+++ b/practice/09u2.patch
@@ -1,17 +1,17 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index 1f790ec..2909b6b 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
-@@ -91,7 +91,7 @@ data <- data %>%
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
+@@ -91,7 +91,7 @@ data <- data |>
  # перекодирование данных здесь
  
- data <- data %>%
+ data <- data |>
 -  mutate()
 +  mutate(TEMP = parse_number(str_replace(TEMP, ",", ".")))
  ```
  
  # 4. Визуализация
-@@ -105,9 +105,8 @@ data <- data %>%
+@@ -105,9 +105,8 @@ data <- data |>
  ‼️ Перекодирование данных выполните в общем чанке в главе 3 выше.
  
  ```{r}
diff --git a/practice/09u3.patch b/practice/09u3.patch
index 19d9f81..22f4698 100644
--- a/practice/09u3.patch
+++ b/practice/09u3.patch
@@ -1,17 +1,17 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index 1f790ec..aa3b322 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
-@@ -91,7 +91,7 @@ data <- data %>%
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
+@@ -91,7 +91,7 @@ data <- data |>
  # перекодирование данных здесь
  
- data <- data %>%
+ data <- data |>
 -  mutate()
 +  mutate(TEMP = as.numeric(str_replace(TEMP, ",", ".")))
  ```
  
  # 4. Визуализация
-@@ -105,9 +105,8 @@ data <- data %>%
+@@ -105,9 +105,8 @@ data <- data |>
  ‼️ Перекодирование данных выполните в общем чанке в главе 3 выше.
  
  ```{r}
diff --git a/practice/09u4.patch b/practice/09u4.patch
index 3592e7a..059e622 100644
--- a/practice/09u4.patch
+++ b/practice/09u4.patch
@@ -1,17 +1,17 @@
-diff --git a/homework_notebook.Rmd b/homework_notebook.Rmd
+diff --git a/homework_notebook.qmd b/homework_notebook.qmd
 index 1f790ec..aa3b322 100644
---- a/homework_notebook.Rmd
-+++ b/homework_notebook.Rmd
-@@ -91,7 +91,7 @@ data <- data %>%
+--- a/homework_notebook.qmd
++++ b/homework_notebook.qmd
+@@ -91,7 +91,7 @@ data <- data |>
  # перекодирование данных здесь
  
- data <- data %>%
+ data <- data |>
 -  mutate()
 +  mutate(WBC = as.numeric(str_replace(WBC, ",", ".")))
  ```
  
  # 4. Визуализация
-@@ -105,9 +105,8 @@ data <- data %>%
+@@ -105,9 +105,8 @@ data <- data |>
  ‼️ Перекодирование данных выполните в общем чанке в главе 3 выше.
  
  ```{r}
diff --git a/practice/Makefile.md b/practice/Makefile.qmd
similarity index 93%
rename from practice/Makefile.md
rename to practice/Makefile.qmd
index e6aece5..082b49d 100644
--- a/practice/Makefile.md
+++ b/practice/Makefile.qmd
@@ -1,6 +1,6 @@
 ---
 title: "Makefile"
-output: html_document
+format: html
 ---
 
 <style>
@@ -52,8 +52,8 @@ everybody_pull() {
     cd $USER4 && git checkout main && git pull
 }
 
-rmarkdown_render() {
-    R -e "rmarkdown::render('homework_notebook.Rmd')"
+quarto_render() {
+    quarto render homework_notebook.qmd
 }
 ```
 
@@ -155,7 +155,7 @@ git clone $REMOTE $USER4
 cd $USER1
 mkdir -p data/raw
 cp $ASSETS/data/raw/* data/raw/
-cp $ASSETS/homework_notebook.Rmd homework_notebook.Rmd
+cp $ASSETS/workshop_notebook.qmd homework_notebook.qmd
 git add .
 git commit -m "Загрузили данные и шаблон"
 git push
@@ -185,7 +185,7 @@ everybody_pull
 cd $USER2
 git checkout -b user2
 git apply $FILES/06u2.patch
-# rmarkdown_render не выйдет - хорошо
+# quarto_render не выйдет - хорошо
 git add .
 git commit -m "Подписал задания"
 git push -u --force origin user2
@@ -196,7 +196,7 @@ gh pr create --title "Подписал задания" --body ""
 cd $USER3
 git checkout -b user3
 git apply $FILES/06u3.patch
-# rmarkdown_render не выйдет - хорошо
+# quarto_render не выйдет - хорошо
 git add .
 git commit -m "Подписал задания"
 git push -u --force origin user3
@@ -207,7 +207,7 @@ gh pr create --title "Подписал задания" --body ""
 cd $USER4
 git checkout -b user4
 git apply $FILES/06u4.patch
-# rmarkdown_render не выйдет - хорошо
+# quarto_render не выйдет - хорошо
 git add .
 git commit -m "Подписал задания"
 git push -u --force origin user4
@@ -243,7 +243,7 @@ everybody_pull
 cd $USER2
 git checkout -b dm
 git apply $FILES/07u2.patch
-# rmarkdown_render не выйдет - хорошо
+# quarto_render не выйдет - хорошо
 git add .
 git commit -m "Импортировал демографические данные"
 git push -u --force origin dm
@@ -254,7 +254,7 @@ gh pr create --title "Импортировал демографические д
 cd $USER3
 git checkout -b vs
 git apply $FILES/07u3.patch
-# rmarkdown_render не выйдет - хорошо
+# quarto_render не выйдет - хорошо
 git add .
 git commit -m "Импортировал vs"
 git push -u --force origin vs
@@ -265,7 +265,7 @@ gh pr create --title "Импортировал vs" --body ""
 cd $USER4
 git checkout -b lb
 git apply $FILES/07u4.patch
-# rmarkdown_render не выйдет - хорошо
+# quarto_render не выйдет - хорошо
 git add .
 git commit -m "Импортировал лабораторные измерения lb"
 git push -u --force origin lb
@@ -294,7 +294,7 @@ everybody_pull
 cd $USER1
 git checkout -b join
 git apply $FILES/08u1.patch
-rmarkdown_render
+quarto_render
 git add .
 git commit -m "Объединил данные"
 git push -u --force origin join
@@ -310,7 +310,7 @@ everybody_pull
 
 # 6. Визуализация
 
-**👷‍♂️ УЧАСТНИКИ** делают свои задания в ветках и **‼️ нитят Rmd**.  
+**👷‍♂️ УЧАСТНИКИ** делают свои задания в ветках и **‼️ собирают qmd**.
 Сначала сливаю свой, потом Димы.
 
 **👮‍♂️ КООРДИНАТОР** их сливает, резолвя конфликты.
@@ -320,7 +320,7 @@ everybody_pull
 cd $USER2
 git checkout -b boxplot-temp-sex
 git apply $FILES/09u2.patch
-rmarkdown_render
+quarto_render
 git add .
 git commit -m "Построил боксплот температуры тела от пола"
 git push -u --force origin boxplot-temp-sex
@@ -331,7 +331,7 @@ gh pr create --title "Построил боксплот температуры 
 cd $USER3
 git checkout -b boxplot-temp-actarm
 git apply $FILES/09u3.patch
-rmarkdown_render
+quarto_render
 git add .
 git commit -m "Построил боксплот температуры тела от группы"
 git push -u --force origin boxplot-temp-actarm
@@ -343,14 +343,14 @@ cd $USER4
 git checkout -b boxplot-wbc-actarm
 git apply $FILES/09u4.patch
 git add .
-rmarkdown_render
+quarto_render
 git commit -m "Построил боксплот кол-ва лейкоцитов от группы"
 git push -u --force origin boxplot-wbc-actarm
 gh pr create --title "Построил боксплот кол-ва лейкоцитов от группы" --body ""
 ```
 
 Переключаемся на `main`.
-Делаем `pull` — RStudio сделает и `fetch`.
+Делаем `pull` — Positron сделает и `fetch`.
 Переключается на `branch-name`.
 Делаем в терминале `git merge main`.
 `commit`, `push`, мерджим PR.
@@ -364,7 +364,7 @@ git pull && git fetch
 git checkout boxplot-temp-actarm
 git merge main || true
 git apply $FILES/09u1-01.patch
-rmarkdown_render
+quarto_render
 git add .
 git commit -m "Разрешил конфликты"
 git push
@@ -375,7 +375,7 @@ git pull && git fetch
 git checkout boxplot-wbc-actarm
 git merge main || true
 git apply $FILES/09u1-02.patch
-rmarkdown_render
+quarto_render
 git add .
 git commit -m "Разрешил конфликты"
 git push
@@ -394,7 +394,7 @@ everybody_pull
 cd $USER1
 git checkout -b data
 cp $ASSETS2/data/raw/* data/raw/
-cp $ASSETS2/homework_notebook.Rmd homework_notebook.Rmd
+cp $ASSETS2/homework_notebook.qmd homework_notebook.qmd
 git add .
 git commit -m "Обновил файлы для домашнего задания"
 git push -u --force origin data
diff --git a/practice/assets/workshop_notebook.Rmd b/practice/assets/workshop_notebook.qmd
similarity index 94%
rename from practice/assets/workshop_notebook.Rmd
rename to practice/assets/workshop_notebook.qmd
index f266979..4dad364 100644
--- a/practice/assets/workshop_notebook.Rmd
+++ b/practice/assets/workshop_notebook.qmd
@@ -1,7 +1,7 @@
 ---
 title: "automatization_notebook"
-date: "`r Sys.Date()`"
-output: html_document
+date: today
+format: html
 ---
 
 ```{r setup, include=FALSE}
@@ -78,7 +78,7 @@ library(tidyverse)
 ```{r}
 # перекодирование данных здесь
 
-data <- data %>%
+data <- data |>
   mutate()
 ```
 
@@ -111,7 +111,7 @@ data <- data %>%
    Используйте функцию scale_y_log10().
    Подпишите ось Y, указав единицы измерения — 10^9/L.
 
-4) Добавьте себя в список авторов в шапке файла. См. документацию к Rmarkdown по ссылке https://bookdown.org/yihui/rmarkdown-cookbook/multiple-authors.html)
+4) Добавьте себя в список авторов в начале файла. Формат описан в [документации Quarto](https://quarto.org/docs/authoring/front-matter.html#authors-and-affiliations).
 
 # Домашнее задание
 
diff --git a/practice/assets2/homework_notebook.Rmd b/practice/assets2/homework_notebook.qmd
similarity index 97%
rename from practice/assets2/homework_notebook.Rmd
rename to practice/assets2/homework_notebook.qmd
index c150478..5174011 100644
--- a/practice/assets2/homework_notebook.Rmd
+++ b/practice/assets2/homework_notebook.qmd
@@ -1,10 +1,10 @@
 ---
 title: "automatization_notebook"
 author: "User Name"
-date: "`r Sys.Date()`"
-output:
-  html_document:
-    df_print: kable
+date: today
+format:
+  html:
+    df-print: kable
 ---
 <!-- укажите имя автора -->
 <!-- добавьте оглавление -->
@@ -244,8 +244,7 @@ https://ardata-fr.github.io/flextable-book/
 
 ```
 
-## 6.3. Управление Microsoft Word с помощью RMarkdown
+## 6.3. Управление Microsoft Word с помощью Quarto
 
-- Попробуйте в RMarkdown изменить для какой-либо страницы ориентацию (с портретной на альбомную).
+- Попробуйте в Quarto изменить для одной страницы ориентацию с портретной на альбомную.
 Создание статистических отчётов с output в Microsoft Word - большая и интересная тема. Рекомендуем погрузиться в неё по ссылке: https://ardata-fr.github.io/officeverse/officedown-for-word.html.
-
diff --git a/practice/workshop_notebook.Rmd b/practice/workshop_notebook.qmd
similarity index 90%
rename from practice/workshop_notebook.Rmd
rename to practice/workshop_notebook.qmd
index 944a512..68cddf6 100644
--- a/practice/workshop_notebook.Rmd
+++ b/practice/workshop_notebook.qmd
@@ -1,7 +1,7 @@
 ---
 title: "automatization_notebook"
-date: "`r Sys.Date()`"
-output: html_document
+date: today
+format: html
 ---
 
 ```{r setup, include=FALSE}
@@ -23,13 +23,13 @@ library(tidyverse)
 ```{r}
 dm <- read_csv2("data/raw/dm.csv")
 
-dm <- dm %>%
+dm <- dm |>
   select(USUBJID, SEX, ACTARM)
 ```
 
 ```{r, eval=FALSE}
-dm %>%
-  count(USUBJID) %>%
+dm |>
+  count(USUBJID) |>
   filter(n > 1)
 ```
 
@@ -45,18 +45,18 @@ dm %>%
 ```{r}
 vs <- read_csv("data/raw/vs.csv")
 
-vs <- vs %>%
+vs <- vs |>
   filter(VSTESTCD == "TEMP", VISITNUM == 1)
 
-vs <- vs %>%
+vs <- vs |>
   select(USUBJID, TEMP = VSORRES)
 ```
 
 Убедитесь, что в результате на каждого субъекта (`USUBJID`) приходится только одна строка.
 
 ```{r}
-vs %>%
-  count(USUBJID) %>%
+vs |>
+  count(USUBJID) |>
   filter(n > 1)
 ```
 
@@ -72,18 +72,18 @@ vs %>%
 ```{r}
 lb <- readxl::read_excel("data/raw/lb.xlsx")
 
-lb <- lb %>%
+lb <- lb |>
   filter(LBTESTCD == "WBC", VISITNUM == 1)
 
-lb <- lb %>%
+lb <- lb |>
   select(USUBJID, WBC = LBORRES)
 ```
 
 Убедитесь, что теперь на каждого субъекта (`USUBJID`) приходится только одна строка.
 
 ```{r}
-lb %>%
-  count(USUBJID) %>%
+lb |>
+  count(USUBJID) |>
   filter(n > 1)
 ```
 
@@ -94,11 +94,11 @@ lb %>%
 Уберите строки с пропущенными данными в столбцах `TEMP` и `WBC`.
 
 ```{r}
-data <- dm %>%
-  left_join(vs, join_by(USUBJID)) %>%
+data <- dm |>
+  left_join(vs, join_by(USUBJID)) |>
   left_join(lb, join_by(USUBJID))
 
-data <- data %>%
+data <- data |>
   filter(!is.na(TEMP) & !is.na(WBC))
 ```
 
@@ -107,10 +107,10 @@ data <- data %>%
 ```{r}
 # перекодирование данных здесь
 
-data <- data %>%
+data <- data |>
   mutate(SEX = recode(SEX, "M" = "Male", "F" = "Female"),
          TEMP = as.numeric(str_replace(TEMP, ",", ".")),
-         WBC = as.numeric(str_replace(WBC, ",", "."))) %>%
+         WBC = as.numeric(str_replace(WBC, ",", "."))) |>
   mutate(TEMP = (TEMP - 32) * 5 / 9)
 ```
 
@@ -155,7 +155,7 @@ ggplot(data, aes(SEX, fill = ACTARM)) +
    Используйте функцию scale_y_log10().
    Подпишите ось Y, указав единицы измерения — 10^9/L.
 
-4) Добавьте себя в список авторов в шапке файла. См. документацию к Rmarkdown по ссылке https://bookdown.org/yihui/rmarkdown-cookbook/multiple-authors.html)
+4) Добавьте себя в список авторов в начале файла. Формат описан в [документации Quarto](https://quarto.org/docs/authoring/front-matter.html#authors-and-affiliations).
 
 # Домашнее задание