В блестящем Как создать таблицу DT, где я могу добавлять строки и удалять строки одновременно - PullRequest
Новая
       6

В блестящем Как создать таблицу DT, где я могу добавлять строки и удалять строки одновременно

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

Я пробовал это по-разному и выполнил одну задачу: добавить или удалить., Но я не смог получить полное решение в одной, возможно, где-то не хватает какой-то небольшой концепции ... Я добавляю код, пожалуйста, помогитезаполнить мое основное приложение. 

library(shiny)
library(DT)
x<- data.frame(v1 = NA,
         v2 = NA

),
ui = shinyUI(
 fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("v1","v1","a"),
      numericInput("V2","V2","1"),
      # Row selection
      numericInput(inputId = "row.selection", label = "Select row to be 
 deleted", min = 1, max = 100, value = "")
      # Add button
      actionButton(inputId = "add.button", label = "Add", icon = 
 icon("plus")), 
      # Delete button 
      actionButton(inputId = "delete.button", label = "Delete", icon = 
 icon("minus")),

    ),
    mainPanel(
      dataTableOutput('table')
    )
  )
 )
),

Код серверной стороны 

server = function(input, output, session) {
  values <- reactiveValues()
  values$df <- x

  newEntry <- observe({
    cat("newEntry\n")
    if(input$add.button > 0) {
      newRow <- data.frame(input$v1, input$v2)
      isolate(values$df <- rbind(values$df,newRow))
   }
  })

  deleteEntry <- observe({
   cat("deleteEntry\n")
   if(input$delete.button > 0) {
     if(is.na(isolate(input$row.selection))){
       values$df <- isolate(values$df[-nrow(values$df), ])
     } else {
       values$df <- isolate(values$df[-input$row.selection, ])
     }
   } 

  })

  output$table = renderDataTable({
    values$df 

  })

}

1 Ответ

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

Попытайтесь использовать наблюдать за событием, а не наблюдать с помощью кнопки действия а также у вас есть проблема с прописными и строчными буквами при вводе $ v2 (должен быть ввод $ V2) Попробуйте этот модифицированный код: 

library(shiny)
library(DT)
x<- data.frame(v1 = NA,
               v2 = NA

)
ui = shinyUI(
  fluidPage(
    sidebarLayout(
      sidebarPanel(
        textInput("v1","v1","a"),
        numericInput("V2","V2","1"),
        # Row selection
        numericInput(inputId = "row.selection", label = "Select row to be 
                     deleted", min = 1, max = 100, value = ""),
        # Add button
        actionButton(inputId = "add.button", label = "Add", icon = 
                       icon("plus")), 
        # Delete button 
        actionButton(inputId = "delete.button", label = "Delete", icon = 
                       icon("minus"))

        ),
      mainPanel(
        dataTableOutput('table')
      )
    )
  )
)
server = function(input, output, session) {
  values <- reactiveValues()
  values$df <- x

  observeEvent(input$add.button,{
    cat("addEntry\n")
    print(input$v1)
    print(input$V2)
    newRow <- data.frame(input$v1, input$V2)
    colnames(newRow)<-colnames(values$df)
    values$df <- rbind(values$df,newRow)
    print(nrow(values$df))
  })

  observeEvent(input$delete.button,{
    cat("deleteEntry\n")
    if(is.na(input$row.selection)){
      values$df <- values$df[-nrow(values$df), ]
    } else {
      values$df <- values$df[-input$row.selection, ]
    }
  })  

  output$table = renderDataTable({
    values$df 
  })

}
shinyApp(ui,server)

Просто запустите весь код выше, и он должен работать правильно.

...