Простой JavaScript внутри DT Shiny. Значение печати actionButton, встроенного в DT

Question

Простой JavaScript внутри DT Shiny. Значение печати actionButton, встроенного в DT

1

У меня есть следующий сценарий, который предназначен для печати строки кнопки или окна, которое было нажато/отмечено. Маленький код javascript для флажка (вдохновленный другим SO-ответом) отлично работает. Но так как я новичок в javascript, я не могу найти рабочий аналог для actionButton.

library(DT)
library(glue)

ui <- fluidPage(
uiOutput("modal"),
fluidRow(
  verbatimTextOutput("value1"),
verbatimTextOutput("value2"),
  column(12,
         DT::dataTableOutput('table'),  tags$script(HTML('$(document).on("click", "input", function () {
                   var checkboxes = document.getElementsByName("selected");
                   var checkboxesChecked = [];
                   for (var i=0; i<checkboxes.length; i++) {
                   if (checkboxes[i].checked) {
                   checkboxesChecked.push(checkboxes[i].value);
                  }
                  }
                 Shiny.onInputChange("checked_rows",checkboxesChecked);

                   var buttons = document.getElementsByName("modified");
                   var buttonsPressed = [];
                   for (var i=0; i<buttons.length; i++) {
                   if (buttons[i].click) {
                   buttonsPressed.push(buttons[i].value);
                  }
                  }
                 Shiny.onInputChange("pressed_rows",buttonsPressed);   
        })
    '))
  )))

server <- function(input, output, session) {
df <- reactiveValues( data = data.frame(rownum = 1:5, stringsAsFactors = FALSE))
output$value1 <- renderPrint({ input$checked_rows }) 
output$value2 <- renderPrint({input$pressed_rows})
output$table <- DT::renderDataTable({
  df$data[["Select"]] <- glue::glue('<input type="checkbox" name="selected" value="{1:nrow(df$data)}"><br>')
  df$data[["Modify"]] <- glue::glue('<input type="button" name="modified" value="{1:nrow(df$data)}"><br>')

  DT::datatable(df$data,rownames=F, escape = FALSE, select = "none")

}) 

}

shinyApp(ui, server)

Любая помощь очень ценится!

ThanksABundle 28 авг. 2018, в 12:02

Источник

Теги:

javascript

r

shiny

dt

1 ответ

Ещё вопросы

jyjek · Answer 1 · 2018-08-28T11-37-00.000Z

Надеюсь, он может вам помочь:

library(shiny)
library(DT)
library(tidyverse)
library(shinyjs)

ui <- fluidPage(useShinyjs(), # for use js
  DT::dataTableOutput("row"),
  tags$script("$(document).on('click', '#row button', function () {
              Shiny.onInputChange('lastClickId',this.id);
              Shiny.onInputChange('lastClick', Math.random())
              });") # use js
)

server <- function(input, output, session) {
  output$row<-renderDataTable({

      DT=mtcars%>%rownames_to_column()
      DT[["Action"]]<-
        paste0('<div class="btn-group" role="group" aria-label="Basic example">
                <button type="button" class="btn"id=action_',DT$rowname,'>Action</button>
              </div>')


    datatable(DT,escape=F,selection="none")})

  observeEvent(input$lastClick,
               {if ( grepl("action_",input$lastClickId)){

                 showModal(modalDialog(easyClose = T,
                                       span("OKAY") ,
                                       footer = tagList(
                                         modalButton("Cancel"),
                                         actionButton("ok_post", "OK",  class="btn btn-success")
                                       )
                 ))
               }
                 print(input$lastClickId)
                 })

}

shinyApp(ui, server)