В настоящее время я тренируюсь по созданию блестящего приложения. Я хочу создать поле значения, значение основано на вводе текста и его обновлении после нажатия кнопки действия. Я использую этот сценарий: shinyApp (ui

0
Nursahid Assafaat 15 Янв 2021 в 18:14

1 ответ

Лучший ответ

Вы должны получить к ней доступ как к функции с помощью update_unicode(), также вы неправильно указали название кнопки, это input$actbtn_unicode

library(shiny)
library(shinydashboard)
shinyApp(
  ui <- dashboardPage(
    dashboardHeader(
      title = "Test action button"
    ),
    dashboardSidebar(),
    dashboardBody(
      fluidRow(
        box(
          textInput(
            "unicode",
            "Your Unique ID:",
            placeholder = "Input your unique ID here"
          ),
          actionButton(
            "actbtn_unicode",
            "Submit"
          ),
          width = 8
        ),
        valueBoxOutput(
          "vbox_unicode"
        )
      ),
    )
  ),
  server <- function(input, output){
    
    update_unicode <- eventReactive(input$actbtn_unicode,{
      input$unicode
    })
    
    output$vbox_unicode <- renderValueBox({
      valueBox(
        update_unicode(),
        "Your Unique ID",
        icon = icon("fingerprint")
      )
    })
  }
)

enter image description here

0
Pork Chop 15 Янв 2021 в 15:35