Question

我的renderDataTable（）似乎没有对被动输入做出反应。我不确定缺少什么。在我为每个输入＆＃39;输入文本输入之前按下键，将检测到更改的文本。现在我明确点击了提交按钮，代码如下

server.R

shinyServer(function(input, output) {

   toggle("inputBox")
   toggle("text")
   dataInput <- reactive({input$text})
   output$table1 <- renderDataTable({(options = list(pageLength = 10,searchable = FALSE))
   a <- function1(dataInput())

  })
  output$table2 <- renderDataTable({
     b <- function2(dataInput()) 

  })


})

u1.R

fluidRow(
    column(4,
           code(id = "inputBox", "Please wait, loading ..."),
           hidden(textInput("text", label = h3("Enter words"), 
                     value = "xxxx xxxx")),br(),
           actionButton("action", label = " Please hit Enter or click submit"),
           br(),
           br(), 
           submitButton("Submit")
    )
),
 fluidRow(
      column(4,             
           tabPanel('Header1', dataTableOutput('table1'))
    ),
    column(2
    ),
    column(4,
           tabPanel('Header2', dataTableOutput('table2'))
    )  

)

Answer 1

取自submitButton()的文档：

包含提交按钮的表单在输入更改时不会自动更新其输出，而是等到用户明确单击提交按钮。

Shiny中的无功输入无效

1 个答案: