Очистить диапазон датыВход с блестящей

Question

я использую приложение.

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"
)

By используя «clear_ui», пользовательский интерфейс daterangeInput может быть удален. Однако содержимое вывода «дата» останется. Можно ли удалить данные «date» с помощью «clear_date»?

Answer 1

Вам необходимо заменить output$date на output$date_text in:

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