Блог

я пытаюсь заставить мою кнопку действия (идентификатор = предварительный просмотр) работать, и когда она нажимает на модальное отображение, но когда я много раз пытаюсь, это не работает, просто показываю всплывающее модальное отображение в первых данных, поэтому я отправляю сюда свой код, чтобы найти решение или другую подсказку, как это исправить (примечание : я использую свою таблицу данных, тогда вы можете изменить мои данные с помощью «mtcars» / «iris») я надеюсь, что найду решение, спасибо, прежде чем

 ui <- dashboardPage(
  dashboardHeader(title = "BPR Kancana"),
  dashboardSidebar(disable = TRUE),
  dashboardBody(
    fluidRow(  bs4Sortable(
      width = 2,
      tags$span(class = "info-box bg-secondary", paste("Prospek")),
      #p(class = "text-center", ),
      lapply(2:nrow(df_pros), FUN = function(j) {
        bs4Card(
          useShinyalert(), 
          title = paste0(df_pros$tipe_prospek[j]), 
          Action <-  actionButton("preview","Add Prospek",icon = icon("user-plus"),status = "success"),
          br(),df_pros$nama_customer[j],
          width = 12
        )
      })
      
    ),
    )
  )
)
server <- function(input, output) { 
  observeEvent(input$preview, {
        showModal(
          modalDialog(title = "Customer ID #BPR00001", easyClose = TRUE, size = "l",
                      fluidPage(
                        fluidRow(
                          column(width = 6,
                                 
                                 ## Display Summary
                                 bs4Card(width = 12, collapsible = FALSE, title = "Profile Summary",
                                         boxProfile(
                                           image = "https://adminlte.io/themes/AdminLTE/dist/img/user4-128x128.jpg",
                                           title =  "df_pros$nama_customer",
                                           subtitle = "df_pros$np_hp_customer",
                                           bordered = TRUE,
                                           boxProfileItem(
                                             title = "Customer ID  ",
                                             description = p("BPR - ","df_pros$prospek_id", 
                                                             style = "color: black; margin: 0; padding: 0;")),
                                           boxProfileItem(
                                             title = "No Handphone  ",
                                             description = p("df_pros$no_hp_customer",
                                                             style = "color: black; margin: 0; padding: 0;")),
                                           boxProfileItem(
                                             title = "CMO  ",
                                             description = p("df_pros$nama_cmo",
                                                             style = "color: black; margin: 0; padding: 0;"))
                                         )
                                 ),
                                 ## Display timeline
                                 bs4Card(width = 12, collapsible = FALSE, title = "History Followup",
                                         style = "max-height:400px; overflow-y: scroll;",
                                         timelineBlock(
                                
                                 )
                          )
                        )
                        
                      ),
                      footer = tagList(
                        modalButton("Cancel")
                      )
          )
        ) ## End modal
  })
    # End observe followup button
}
shinyApp(ui, server)