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

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

0 голосов
/ 28 августа 2018

У меня есть следующий скрипт, который нацелен на печать строки кнопки или поля, на которые был нажат / отмечен флажок. Небольшой 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)

Любая помощь с благодарностью!

1 Ответ

0 голосов
/ 28 августа 2018

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

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)
...