Я работаю в записной книжке R, и я хотел бы добавить интерактивности, используя блестящий.
Итак, мне нужно, чтобы пользователь предоставил некоторый текст в поле ввода. Затем этот текст будет использоваться в разных блоках R в блокноте. Однако я не смог найти лучший способ сделать это. Вот пример того, что я пытаюсь сделать:
---
title: "R Notebook"
output: html_document
runtime: shiny
---
```{r}
data <- reactive({
as.character(input$my_mol)
})
```
```{r}
textInput("my_mol", "Please provide an ID", "MyID_1")
```
```{r}
renderPrint(data())
# is there any way to get the text output in a variable and using it in a different R chunk?
#something like:
#my_output <- renderPrint(data())
```
```{r}
# Then, I'd like to using it on this R chunk
#pba3 <- fromJSON(paste0(baseur_sim, url_encode(my_output), ".json?limit=50"), flatten=TRUE)
```
Спасибо! * * 1004