使用shiny清除daterangeInput

Question

我使用app。

ui.R

shinyUI(
  fluidPage(
    actionButton("clear_ui", "clear_ui"),
    actionButton("clear_date", "clear_date"),
    uiOutput("date_ui"),
    textOutput("date_text")
  )
)

server.R

shinyServer(function(input, output) {

  observeEvent(input$clear_ui,{
    output$date_ui <- renderUI({NULL})
  })

  observeEvent(input$clear_date,{
    output$date <- NULL
  })

  output$date_ui <- renderUI({
    dateRangeInput("date", "a", start = "2001-01-01", end   = "2010-12-31")
  })

  output$date_text <- renderText({
    input$date
  })

})

global.R

library(shiny)
library(DBI)
library(pool)

pool <- dbPool(
  drv = RMySQL::MySQL(),
  dbname = "shinydemo",
  host = "shiny-demo.csa7qlmguqrf.us-east-1.rds.amazonaws.com",
  username = "guest",
  password = "guest"
)

使用clear_ui可以删除daterangeInput的ui。但是，输出"date“的内容将保持不变。是否可以使用"clear_date“删除"date”数据？

Answer 1

您需要在以下位置将output$date替换为output$date_text：

  observeEvent(input$clear_date,{
    output$date <- NULL
  })