我能看到的唯一方法是使用代理来防止负值。例如，如果用户输入负值，我将编辑后的值设置为0。也可以使用相同的观察者打开一个模态对话框来通知用户。

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("dtable")
)

server <- function(input, output) {
  
  dat <- iris
  
  output[["dtable"]] <- renderDT({
    datatable(
      dat,
      editable = TRUE,
      options = list(
        columnDefs = list(
          list(targets = 1, className = "dt-right")
        )
      )
    )
  })
  
  proxy <- dataTableProxy("dtable")
  
  observeEvent(input[["dtable_cell_edit"]], {
    info <- input[["dtable_cell_edit"]]
    if(info[["value"]] < 0) {
      info[["value"]] <- 0
      # here one could open a modal or a notification
    }
    dat <<- editData(dat, info, proxy = proxy)
  })
  
}

shinyApp(ui, server)