Question

我正在尝试在RStudio中做一个简单的Shiny App。基本上用户需要输入一个数字，一旦用户按下＆＃34; Go＆＃34;我将显示该数字。有一个＆＃34;刷新＆＃34;按钮将所有用户输入值重置为空。

UI.R

library(shiny)

shinyUI(pageWithSidebar(

  headerPanel("header"),
  sidebarPanel(
    textInput(inputId = "text1", label="Input Text 1"),
    actionButton("goButton", "Go!"),
    actionButton("refresh", "Restart!")
    ),
  mainPanel(
    p("Output text1"),
    textOutput("text1"),
    p("Output text3"),
    textOutput("text3")

    )
))

server.R

library(shiny)

shinyServer(function(input, output, session) {


  output$text1 <- renderText({as.numeric(input$text1)})

  x <- eventReactive(input$goButton, {input$text1})

  output$text3 <- renderText(x())

  observeEvent(input$refresh, {
    updateTextInput(session, 'text1', value="")
    updateTextInput(session, "text3", value="")
  })

})

我设法将text1的值重置为空并进行渲染，但此更改不会转换为text3。据我所知，text3假设从text1中获取值，因此如果text1是＆＃34;＆＃34;，text3应该是＆＃34;＆＃34;太。并点击“刷新＆＃39;按钮会将text3文本渲染为空。

我不确定发生了什么事，有人可以帮忙吗？

闪亮的动作按钮

0 个答案: