在 R Shiny 中，如何消除首次调用 App 时观察事件条件的闪烁?

Question

在下面的 MWE 代码中，用户通过单击输入 2 的"显示"单选按钮可以选择调用对象input2。默认设置是隐藏input2。但是，当第一次调用应用程序时，input2在被observeEvent隐藏之前会迅速闪过。

这种闪烁在非 MWE 版本的代码中更为明显。

在R shiny 中有一个相关帖子，如何在不使用 renderUI 的情况下首次调用应用程序时消除侧边栏中所有条件面板的闪烁？这为conditionalPanel解决了这个问题。但是这里没有conditionalPanel.

我不想用renderUI来解决这个问题！！由于renderUI有缺点，我不想重新介绍。

MWE代码：

library(shiny)
library(shinyjs)
f <- function(action,i){as.character(checkboxInput(paste0(action,i),label=NULL))}
actions       <- c("show", "reset")
tbl           <- t(outer(actions, c(1,2), FUN = Vectorize(f)))
colnames(tbl) <- c("Show", "Reset")
rownames(tbl) <- c("Input 2", "Input 3")
ui <- fluidPage(
useShinyjs(),
tags$head(
tags$style(HTML(
"td .checkbox {margin-top: 0; margin-bottom: 0;}
td .form-group {margin-bottom: 0;}"
))
),
br(),
sidebarLayout(
sidebarPanel(
numericInput("input1", "Input 1:", 10, min = 1, max = 100),
h5(strong("Add inputs:")),
tableOutput("checkboxes"),
numericInput("input2", "Input 2:", 10, min = 1, max = 100),
),
mainPanel()
)    
)
server <- function(input, output, session){

output[["checkboxes"]] <- 
renderTable({tbl}, 
rownames = TRUE, align = "c",
sanitize.text.function = function(x) x
)
observeEvent(input[["show1"]], {
if(input[["show1"]] %% 2 == 1){shinyjs::show(id = "input2")} else
{shinyjs::hide(id = "input2")}
})
}
shinyApp(ui, server)

Answer 1

在事件循环中需要一些时间，直到第一次调用observerEvent。 默认情况下，它将在最开头显示。 这导致闪光。 只需在server函数的最开头隐藏input2：

server <- function(input, output, session) {
# Avoid flashing
shinyjs::hide(id = "input2")

output[["checkboxes"]] <-
renderTable(
{
tbl
},
rownames = TRUE,
align = "c",
sanitize.text.function = function(x) x
)
observeEvent(input[["show1"]], {
if (input[["show1"]] %% 2 == 1) {
shinyjs::show(id = "input2")
} else {
shinyjs::hide(id = "input2")
}
})
}

Answer 2

您也可以使用hidden

hidden(numericInput("input2", "Input 2:", 10, min = 1, max = 100))

<小时 />

和toggle：

observeEvent(input[["show1"]], {
toggle("input2")
},ignoreNULL = FALSE)