Generate functionality sendSweetAlert buttons in Shiny

问题

Friends, I created two buttons (YES and NO) in the alert made by sendSweetAlert in Shiny. How do I generate a functionality in the Yes button so that when I press YES, a list with the df database industries appears? Every help is welcome. The executable code is below.

library(shiny)
library(rdist)
library(geosphere)
library(tidyverse)
library(shinyWidgets)
library(shinythemes)

function.cl<-function(df){

  #database df
  df<-structure(list(Industries = c(1,2,3,4,5,6,7), 
                     Latitude = c(-23.8, -23.8, -23.9, -23.9, -23.9,-23.8,-23.8), 
                     Longitude = c(-49.8, -49.8, -49.5, -49.8, -49.8,-49.8,-49.8), 
                     Waste = c(526, 350, 526, 469, 285, 433, 456)), class = "data.frame", row.names = c(NA, -7L))


  coordinates<-subset(df,select=c("Latitude","Longitude")) 
  d<-distm(coordinates[,2:1]) 
  diag(d)<-1000000 
  min_distancia<-as.matrix(apply(d,MARGIN=2,FUN=min))
  limite<-mean(min_distancia)+sd(min_distancia) 

  search_vec <- function(mat, vec, dim = 1, tol = 1e-7, fun = all)
    which(apply(mat, dim, function(x) fun((x - vec) > tol)))
  ind_exclude<-search_vec(min_distancia,limite,fun=any)
  if(is_empty(ind_exclude)==FALSE){
    for (i in 1:dim(as.array(ind_exclude))){
      df<-subset(df,Industries!=ind_exclude[i])}}

  return(list(
    "IND" =  ind_exclude

  ))

}

ui <- bootstrapPage(
  navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
             "Cl", 
             tabPanel("Solution",
                      sidebarLayout(
                        sidebarPanel(

                        ),
                        mainPanel(
                          tabsetPanel())))))  

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

  Modelcl<-reactive({
    function.cl(df)
  })

  output$ind <- renderTable({
    IND <- ((Modelcl()[[1]]))
  })

  observe({
    if(is_empty(Modelcl()[[1]])==FALSE){
      sendSweetAlert(session = session,
                     title = "Hey",
                     btn_labels = c("Yes", "No"),
                     text = tags$div(h5("The industries that need to exclude are:"), 
                                     paste(Modelcl()[[1]], collapse = ", ")),
                     type = "info"
      )
    }
  })



}

shinyApp(ui = ui, server = server)

Thank you very much friends!

回答1:

You may want to look into conditional panels.

In the ui you setup a panel like this:

conditionalPanel(
  condition = "output.ShowCombatDamage",
  textOutput("CombatDamage")
)

On the server side you specify the condition when to show the panel and it's content.

# When to show the panel - in this case when the variable FightVal$Damage is not NA
output$ShowCombatDamage <- reactive({
  return( !is.na(FightVal$Damage) )
})
outputOptions(output, 'ShowCombatDamage', suspendWhenHidden = FALSE)

# Render the ouput as usual
output$CombatDamage <- renderPrint({
  cat(i18n$t("Hit points"), ": ", FightVal$Damage, sep = "")
})

You could do something similar: as long as df database industries is NA do not show the panel. Also add a listener for the YES button to create the df database industries. You can check for YES using confirmSweetAlert instead of using sendSweetAlert.

Documentation here:

https://shiny.rstudio.com/reference/shiny/latest/conditionalPanel.html
https://dreamrs.github.io/shinyWidgets/reference/confirmSweetAlert.html

来源：https://stackoverflow.com/questions/61981473/generate-functionality-sendsweetalert-buttons-in-shiny

标签

Shiny