删除逐字输出

Question

在教授学生闪亮编程时遇到了这个奇怪的问题。

我想要的是编写删除 verbatimtextOuput 元素的代码，而不是打印一个空值

这是他写的代码，但它删除了所有按钮，基本上是整个 UI。这可以做到吗？我知道更复杂的选项，例如条件面板等，但只是想弄清楚为什么 removeUI 没有达到我的预期。

谢谢！

应用程序：

library(shiny)

ui<-fluidPage(  h5("Hello there"),      #First text on the window
               br(),                            #empty line
               actionButton(inputId = "ClickonMe", label = "Make data"),  # button 1
               actionButton(inputId = "ClickonMe2", label = "Print data"), # button 2
               actionButton(inputId = "ClickonMe3", label = "Transform data"),

               verbatimTextOutput("Response_text")  #reactive text output    )

server <- function(input,output) {
     values <- reactiveValues()
     observeEvent(input$ClickonMe,
               values$name <- TRUE   )
     observeEvent(input$ClickonMe3,
               if (values$name == TRUE) { values$name <- FALSE}
               else { values$name <- TRUE}   )
     observeEvent(input$ClickonMe2,
               if (values$name == TRUE) { output$Response_text <- renderPrint( isolate({values$name}) ) }
               else  if (values$name == FALSE)  {  removeUI(
                 selector = "div:has(> #Response_text)"
               )
               }

  )    }

shinyApp(ui, server)

编辑版本：

更改了猪排回答一点，以便此版本删除并重新制作 ui 中的逐字元素。 我现在试图完全理解的是，为什么片 req(....) 会产生如此大的影响。 print(values$name) 证明变量存在，并且观察者可以看到它，但是如果您 # req( ) 行，应用程序会在第一次删除它后突然停止重新创建逐字文本输出。 希望我能了解为什么会这样。谢谢！

library(shiny)

ui <- fluidPage(  
  h5("Hello there"),                                          # First text on the window
  br(),                                                       # empty line
  actionButton(inputId = "ClickonMe", label = "Make data"),   # button 1
  actionButton(inputId = "ClickonMe2", label = "Print data"), # button 2
  actionButton(inputId = "ClickonMe3", label = "Transform data"),
  mainPanel(verbatimTextOutput("Response_text"))
)

server <- function(input,output,session) {
  values <- reactiveValues()
  values$name <- T

  observeEvent(input$ClickonMe,{
    values$name <- T 
  })

  observeEvent(input$ClickonMe3,{
    if (values$name){ values$name <- F}
    else{ values$name <- T }
  })

  observeEvent(input$ClickonMe2,{

    print(values$name)
  output$Response_text <- renderPrint({ isolate({ 

    req(values$name)
    if(!values$name){
      removeUI(
        selector = "div:has(> #Response_text)"
      )
    }else {
    as.character(values$name)}
  })
      })

})
}

Answer 1

1) 首先请在编写代码时查看Google's R Style Guide 并尝试坚持下去，我认为您和您的学生都会从中受益。

2) 在使用 observeEvent 和 renderPrint 等函数时也要使用花括号

3) 熟悉req函数，非常方便

如何移除 UI 的示例代码：

library(shiny)

ui <- fluidPage(  
  h5("Hello there"),                                          # First text on the window
  br(),                                                       # empty line
  actionButton(inputId = "ClickonMe", label = "Make data"),   # button 1
  actionButton(inputId = "ClickonMe2", label = "Print data"), # button 2
  actionButton(inputId = "ClickonMe3", label = "Transform data"),
  mainPanel(verbatimTextOutput("Response_text"))
)

server <- function(input,output,session) {
  values <- reactiveValues()
  values$name <- NULL

  observeEvent(input$ClickonMe,{
    values$name <- T 
  })

  observeEvent(input$ClickonMe3,{
    if (values$name){ 
      values$name <- F}
    else{
      values$name <- T
    }
  })

  observeEvent(input$ClickonMe2,{
    if (values$name){ 
      values$name <- F
      }
    else{
      values$name <- T
    }
  })

  output$Response_text <- renderPrint({
    req(values$name)
    if(!values$name){
      removeUI(
        selector = "div:has(> #Response_text)"
      )
    }
    as.character(values$name)})
}

shinyApp(ui, server)