R Shiny - Reset renderText - PullRequest
Новая
       4

R Shiny - Reset renderText

0 голосов
/ 08 января 2020

В следующем коде цель состоит в том, чтобы сбросить значение текстового вывода на основе выбранного значения. ПОСЛЕ нажатия кнопки 1: 

library(shiny)
library(shinythemes)
library(DT, warn.conflicts = FALSE) #shiny also uses: dataTableOutput & renderDataTable
library(shinyjs)
library(shinyBS) #for tooltips on an input or output.
library(htmltools)

ui <- fluidPage(theme = shinytheme("lumen"),

                useShinyjs(),

                titlePanel(""),

                selectInput(
                  inputId = "test1",
                  label = strong("pick something"),
                  choices = c("a - button shows", "b - button hidden", "c - button hidden"),
                  selected = "b",
                  selectize = TRUE,
                  width = "175px",
                  multiple = FALSE),

                hidden(actionButton("button1", "Click Me")),

                htmlOutput(outputId = "textoutput")
)

server <- function(input, output, session) {

  output$textoutput <- renderText({

    if (input$test1 == "a - button shows"){
      print("a")
      shinyjs::show("button1")
      paste("<i><span style='color:blue'>You chose a. You should click the button.</span></i>")
    }

    else if (input$test1 == "b - button hidden"){
      print("b")
      shinyjs::hide("button1")
      paste("<i><span style='color:green'>You chose b. No button.</span></i>")
    }

    else {
      shinyjs::hide("button1")
      print("c")
      paste("<i><span style='color:orange'>The button is hidden.</span></i>")
    }

  })

  observeEvent(input$button1,{
    print(input$test1)
    output$textoutput <- renderText({ paste("<i><span style='color:purple'>You clicked the button.</span></i>")})
    shinyjs::hide("button1")
  })

}

# Create Shiny object
shinyApp(ui = ui, server = server)

Запуск кода как есть и нажатие кнопки, текст изменится на You clicked the button.. У меня возникли проблемы, когда значение раскрывающегося списка меняется на «b» или «c» (после нажатия кнопки), текст не меняется. Я знаю, почему это не меняется, но не смог найти решение.

1 Ответ

0 голосов
/ 08 января 2020

Я думаю, вы хотели бы, чтобы один output$textoutput обновлялся на основе различных изменений входных данных.

Возможно, значение reactive может содержать сообщение, которое вы sh должны отобразить. Например: 

server <- function(input, output, session) {

  msg_txt <- reactiveVal("")

  observe({
    if (input$test1 == "a - button shows"){
      print("a")
      shinyjs::show("button1")
      msg_txt("<i><span style='color:blue'>You chose a. You should click the button.</span></i>")
    }

    else if (input$test1 == "b - button hidden"){
      print("b")
      shinyjs::hide("button1")
      msg_txt("<i><span style='color:green'>You chose b. No button.</span></i>")
    }

    else {
      shinyjs::hide("button1")
      print("c")
      msg_txt("<i><span style='color:orange'>The button is hidden.</span></i>")
    }

  })

  output$textoutput <- renderText({ msg_txt() })

  observeEvent(input$button1,{
    print(input$test1)
    msg_txt("<i><span style='color:purple'>You clicked the button.</span></i>")
    shinyjs::hide("button1")
  })

}

Это поведение, которое вы искали?

...