question_text() uses textAreaInput() if rows or cols are provided

[gadenbuie]

Fixes #455

This PR adds rows and cols as parameters of question_text(). When provided, the text input UI will use textAreaInput() instead of textInput().

I used rows and cols as the parameter names so we can inherit documentation from textAreaInput(), but I'd be happy to update the parameter names or documentation to specifically mention that they change the input UI.

Reprex

Here's an example to try to create an "essay" input as described in #455. The question will always be graded as incorrect, but by setting allow_retry = TRUE and changing the try_again_button text, the input feels less binary correct/incorrect.

---
title: "Tutorial"
output: learnr::tutorial
runtime: shiny_prerendered
---

```{r setup, include=FALSE}
library(learnr)
```

## Text Questions

```{r question-text}
question_text("What's the best number of them all?", answer("42", TRUE))
```

```{r question-text-area}
question_text(
  "Why?", 
  answer("", correct = TRUE), # Question will always be "incorrect"
  rows = 5, 
  correct = NULL,
  incorrect = NULL,
  allow_retry = TRUE,
  try_again_button = "Edit Answer"
)
```

PR task list:

• Update NEWS
• Add tests (if possible)
• Update documentation with devtools::document()

[schloerke]

cc @dtkaplan @davidkane9

Does this PR address #455?

I think we'll hold off on a dedicated learnr_text_area() function for now. If you find yourself using a consistent set of rows/cols... please open a new issue and we can open the discussion to add learnr_text_area() and default to learnr_text_area(rows = m, cols = n)

Thank you! and Thank you @gadenbuie!

[dtkaplan]

Yes, this does the job. Thanks!

…

On Mon, Jan 4, 2021 at 9:23 AM Barret Schloerke ***@***.***> wrote: cc @dtkaplan <https://github.com/dtkaplan> @davidkane9 <https://github.com/davidkane9> Does this PR address #455 <#455>? I think we'll hold off on a dedicated learnr_text_area() function for now. If you find yourself using a consistent set of rows/cols... please open a new issue and we can open the discussion to add learnr_text_area() and default to learnr_text_area(rows = m, cols = n) Thank you! and Thank you @gadenbuie <https://github.com/gadenbuie>! — You are receiving this because you were mentioned. Reply to this email directly, view it on GitHub <#460 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AAECBLNXQNGVN2MBLK3VN33SYHMQRANCNFSM4VOSVRMQ> .

[davidkane9]

Yes. Thanks!

…

On Mon, Jan 4, 2021 at 9:23 AM Barret Schloerke ***@***.***> wrote: cc @dtkaplan <https://github.com/dtkaplan> @davidkane9 <https://github.com/davidkane9> Does this PR address #455 <#455>? I think we'll hold off on a dedicated learnr_text_area() function for now. If you find yourself using a consistent set of rows/cols... please open a new issue and we can open the discussion to add learnr_text_area() and default to learnr_text_area(rows = m, cols = n) Thank you! and Thank you @gadenbuie <https://github.com/gadenbuie>! — You are receiving this because you were mentioned. Reply to this email directly, view it on GitHub <#460 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/ABCXREZXK6U7EX3XVPOC77LSYHMQRANCNFSM4VOSVRMQ> .