R删除用户界面保留标签

我正在为textInput调用shiny removeUi（），但是，只有input部分被删除，而不是标签。请参见下面的代码和图像：

clearElements <- function (dat) {
    observe({
      for (el in dat) {

        id <- strsplit(el,substring(el, nchar(el)-8, nchar(el)))[[1]]
        print(id)
        removeElement(id)
      }
    })
  }

  removeElement <- function (el_id) {
      removeUI(
        selector = paste0("#", el_id),
        multiple = TRUE,
        immediate = TRUE,
        session
      )
  }

---

clearElements几个元素被包装在
div
s中。请尝试以下方法：

removeElement <- function (el_id) {
    removeUI(
       selector = paste0("div:has(> #", el_id, ")")
      )
    }

removelement几个元素被包装在
div
s中。请尝试以下方法：

removeElement <- function (el_id) {
    removeUI(
       selector = paste0("div:has(> #", el_id, ")")
      )
    }

removelement接受的答案不起作用

您需要删除整个.shining输入容器，如下所示

removeUI(
    selector = sprintf('.shiny-input-container:has(#%s)',el_id)
  )

公认的答案行不通

您需要删除整个.shining输入容器，如下所示

removeUI(
    selector = sprintf('.shiny-input-container:has(#%s)',el_id)
  )