Question

以下是我放置微调器加载的示例应用程序。但是问题是，即使在按下操作按钮之前，仍可以看到微调器。实际上，只有在按下操作按钮时，它才会出现。我知道可以通过添加eventReactive来实现，但是有一种方法只能通过使用observeEvent

来实现。

library(shiny)
library(dplyr)
library(shinycssloaders)
library(DT)

ui <- fluidPage(

    actionButton("plot","plot"),
    withSpinner(dataTableOutput("Test"),color="black")
)



server <- function(input, output, session) {

    observeEvent(input$plot, {
    output$Test <- DT::renderDT(DT::datatable(head(iris),
                                              rownames = FALSE, options = list(dom = 't', 
                                                                               ordering=FALSE)))

    })
}
shinyApp(ui = ui, server = server)

Answer 1

一种解决方案是使用class DriverSignUpForm(UserCreationForm): password1 = forms.CharField( label=_("Password"), strip=False, widget=forms.PasswordInput, ) password2 = forms.CharField( label=_("Password confirmation"), widget=forms.PasswordInput, strip=False, ) class Meta(UserCreationForm.Meta): fields = ("username", "email")，以便仅在单击按钮时创建微调器和表的ui：

uiOutput

在按下动作按钮之前加载微调框

1 个答案: