Bedingte reaktive Logik glanzbasiertes Flexdashboard

Question

Ich versuche, basierend auf einigen Eingaben entweder einen Render-Typ (renderPlot) oder einen anderen (renderText) zu erstellen. Hier ist, was ich versucht:

--- 
title: "Citation Extraction" 
output: 
    flexdashboard::flex_dashboard: 
    vertical_layout: scroll 
    orientation: rows 
    social: menu 
    source_code: embed 
runtime: shiny 
--- 

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

Sidebar {.sidebar} 
===================================== 

```{r} 
textInput("txt", "What's up?:") 
``` 

Page 1 
===================================== 

### Chart A 

```{r} 
urtxt <- reactive({input$txt}) 

if (nchar(urtxt()) > 20){ 
    renderPlot({plot(1:10, 1:10)}) 
} else { 
    renderPrint({ 
     urtxt() 
    }) 
} 
``` 

Aber es heißt:

So habe ich versucht, eine reaktive um die bedingte Zugabe was in der Funktion reactive kehrt zurück.

reactive({ 
    if (nchar(urtxt()) > 20){ 
    renderPlot({plot(1:10, 1:10)}) 
} else { 
    renderPrint({ 
     urtxt() 
    }) 
} 
}) 

Wie kann ich bedingte reaktive Logik haben?

Answer 1

Um andere Art von Ausgang in Abhängigkeit von der Länge des inputed Zeichenkette erhalten Sie folgendes tun:

1) Erstellen Sie eine dynamische Ausgabe uiOutput,

2) In der reaktiven Umgebung renderUI, je nach die Eingabe, wählen Sie Art der Ausgabe.

3) übertragen die Ausgabe

--- 
title: "Citation Extraction" 
output: 
flexdashboard::flex_dashboard: 
vertical_layout: scroll 
orientation: rows 
social: menu 
source_code: embed 
runtime: shiny 
--- 

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


Sidebar {.sidebar} 
===================================== 

```{r, echo = F} 
textInput("txt", "What's up?:", value = "") 
``` 

Page 1 
===================================== 

### Chart A 

```{r, echo = F} 
uiOutput("dynamic") 

output$dynamic <- renderUI({ 
    if (nchar(input$txt) > 20) plotOutput("plot") 
    else textOutput("text") 
}) 

output$plot <- renderPlot({ plot(1:10, 1:10) }) 
output$text <- renderText({ input$txt }) 

```