Это то, что я получаю из этого кода ниже.Кажется, это правильно рендеринг. Можете ли вы проверить это один раз?
---
title: "Hello, Tutorial!"
output: learnr::tutorial
runtime: shiny_prerendered
---
```{r}
library(rebmix)
library(learnr)
data("wine", package = "rebmix")
library(data.table)
wine <- as.data.table(wine)
str(wine)
```
### Exercise: Try for the wine Data
Subset rows where Cultivar value is 1, and then subset rows where Cultivar is 1
and Proline is greater than 1000. Then, subset the rows between 10 and 30.
```{r datatable, exercise=TRUE, exercise.eval=FALSE}
```
```{r datatable-solution}
wine1 <- wine[Cultivar == 1 & Proline > 1000]
wine2 <- wine[10:30]
```
```{r datatable-hint-1}
wine1 <- wine[Cultivar == 1, ...]
```
```{r datatable-hint-2}
wine1 <- wine[Cultivar == 1 & Proline > 1000]
```
```{r datatable-hint-3}
wine2 <- wine[10:?]
```
Это скриншот