Учебный пакет для обучения Shiny ... это возможно? - PullRequest
Новая
       5

Учебный пакет для обучения Shiny ... это возможно?

0 голосов
/ 04 февраля 2019

Мне нравится использовать пакеты R и R для учеников. Мне удалось включить некоторые блестящие элементы, очень приятно!

Однако я хотел бы включить упражнения, в которых учащиеся могут писать, проверять и отправлять ответы на блестящие вопросы.Однако функция кода выполнения в упражнении ничего не делает (я получаю блестящее окно с сообщением, что приложение Shiny не поддерживается в статических документах R Markdown), поэтому я предполагаю, что оно не будет работать, или я что-то пропустил?

это пример кода упражнения; 

---
title: "Programming basics"
output:
  learnr::tutorial:
    progressive: true
    allow_skip: true
runtime: shiny_prerendered
---

```{r ex_shiny_1, exercise=TRUE}
library(shiny)
ui <- fluidPage(
  titlePanel("My First App"),
  sidebarLayout(
    sidebarPanel("inputs will go here"),
    mainPanel("outputs will go here")
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)
```

Я знаю, что могу использовать тесты в рамках Learr, но я бы очень хотел, чтобы пользователи увидели, как работает их блестящий код, без необходимости переходить от учебника кRStudio IDE.

Мне удалось включить блестящие элементы в учебник, используя что-то похожее, и они работают очень хорошо; 

sliderInput("bins", "Number of bins:", 30, min = 1, max = 50)
plotOutput("distPlot")

output$distPlot = renderPlot({
  x = faithful[, 2]  # Old Faithful Geyser data
  bins = seq(min(x), max(x), length.out = input$bins + 1)
  hist(x, breaks = bins, col = 'darkgray', border = 'white')
})

Заранее спасибо!

...