R 如何在输出数据表中使用

我正在构建一个闪亮的应用程序，将所有输入变量添加到数据表中。 我还有另一个按钮用于启用第二个选项卡面板，并显示一个可编辑的datatable。 我想编辑第二个选项卡面板中的表并更新datatable。因此，当我继续添加更多值时，它可以保留已完成的更新

library("shiny")
library("dplyr")
library("DT")

ui <- fluidPage(
  tabsetPanel(
    id = "idTabset",
    tabPanel(
      value = "input_data",
      title = "Inpute Data",
      textInput(inputId   = 'item1', label = 'Item 1'),
      textInput(inputId   = 'item2', label = 'Item 2'),
      actionButton('save_data', 'Add'),
      actionButton('review_data', 'Save and Review')
    ),
    tabPanel(
      value = "input_tbl",
      title = "Raw Data",
      DT::dataTableOutput('output_tbl'),
      actionButton('submit_tbl', 'Upload')
    )
  )
)

server <- function(input, output, session) {
  hideTab(inputId = "idTabset", target = "input_tbl")
  
  user_tbl <- tibble(`Item 1` = as.character(),
                     `Item 2` = as.character())
  
  user_data <- reactive({
    tibble(`Item 1` = as.character(input$item1),
           `Item 2` = as.character(input$item2))
  })
  
  observeEvent(input$save_data, {
    user_tbl <<- user_tbl %>%
      bind_rows(user_data())
    
    output$output_tbl = DT::renderDataTable({
      DT::datatable(user_tbl, editable = TRUE)
      
    })
    
    sapply(c('item1','item2'),
           function(x) {updateTextInput(session, x, value = "")})
  })
  
  observeEvent(input$review_data, {
    showTab(inputId = "idTabset", target = "input_tbl")
  })
  
}

shinyApp(ui = ui, server = server)

---

谢谢。

也许您正在寻找

DT

的

table\u cell\u edit

功能。您需要一个

reactiveValues

对象来跟踪tab1和tab2中的更改。试试这个

library("shiny")
library("dplyr")
library("DT")

ui <- fluidPage(
  tabsetPanel(
    id = "idTabset",
    tabPanel(
      value = "input_data",
      title = "Inpute Data",
      textInput(inputId   = 'item1', label = 'Item 1'),
      textInput(inputId   = 'item2', label = 'Item 2'),
      actionButton('save_data', 'Add'),
      actionButton('review_data', 'Save and Review')
    ),
    tabPanel(
      value = "input_tbl",
      title = "Raw Data",
      DT::dataTableOutput('output_tbl'),
      actionButton('submit_tbl', 'Upload')
    )
  )
)

server <- function(input, output, session) {
  hideTab(inputId = "idTabset", target = "input_tbl")
  
  user_tbl <- tibble(`Item 1` = as.character(),
                     `Item 2` = as.character())
  
  rv <- reactiveValues(data=user_tbl)
  
  user_data <- reactive({
    tibble(`Item 1` = as.character(input$item1),
           `Item 2` = as.character(input$item2))
  })
  
  observeEvent(input$save_data, {
    rv$data <<- rv$data %>%
      bind_rows(user_data())
    output$output_tbl = DT::renderDataTable({
      DT::datatable(rv$data, editable = TRUE)
      
    })
    
    sapply(c('item1','item2'),
           function(x) {updateTextInput(session, x, value = "")})
  })
  
  observeEvent(input$output_tbl_cell_edit, {
    info = input$output_tbl_cell_edit
    str(info)
    i = info$row
    j = info$col
    v = info$value

    rv$data[i, j] <<- DT::coerceValue(v, rv$data[i, j])

  })
  
  observeEvent(input$review_data, {
    showTab(inputId = "idTabset", target = "input_tbl")
  })
  
}

shinyApp(ui = ui, server = server)

库（“闪亮”）
图书馆（“dplyr”）
图书馆（“DT”）
ui也许您正在寻找
DT
的
table\u cell\u edit
功能。您需要一个
reactiveValues
对象来跟踪tab1和tab2中的更改。试试这个

library("shiny")
library("dplyr")
library("DT")

ui <- fluidPage(
  tabsetPanel(
    id = "idTabset",
    tabPanel(
      value = "input_data",
      title = "Inpute Data",
      textInput(inputId   = 'item1', label = 'Item 1'),
      textInput(inputId   = 'item2', label = 'Item 2'),
      actionButton('save_data', 'Add'),
      actionButton('review_data', 'Save and Review')
    ),
    tabPanel(
      value = "input_tbl",
      title = "Raw Data",
      DT::dataTableOutput('output_tbl'),
      actionButton('submit_tbl', 'Upload')
    )
  )
)

server <- function(input, output, session) {
  hideTab(inputId = "idTabset", target = "input_tbl")
  
  user_tbl <- tibble(`Item 1` = as.character(),
                     `Item 2` = as.character())
  
  rv <- reactiveValues(data=user_tbl)
  
  user_data <- reactive({
    tibble(`Item 1` = as.character(input$item1),
           `Item 2` = as.character(input$item2))
  })
  
  observeEvent(input$save_data, {
    rv$data <<- rv$data %>%
      bind_rows(user_data())
    output$output_tbl = DT::renderDataTable({
      DT::datatable(rv$data, editable = TRUE)
      
    })
    
    sapply(c('item1','item2'),
           function(x) {updateTextInput(session, x, value = "")})
  })
  
  observeEvent(input$output_tbl_cell_edit, {
    info = input$output_tbl_cell_edit
    str(info)
    i = info$row
    j = info$col
    v = info$value

    rv$data[i, j] <<- DT::coerceValue(v, rv$data[i, j])

  })
  
  observeEvent(input$review_data, {
    showTab(inputId = "idTabset", target = "input_tbl")
  })
  
}

shinyApp(ui = ui, server = server)

库（“闪亮”）
图书馆（“dplyr”）
图书馆（“DT”）
UI请考虑张贴A，以便有人能帮助你。我删除了不必要的代码，希望它是MRE。请考虑发布A，以便有人能帮助你。我删除了不必要的代码，希望它是MRE。这是有效的。而不是使用有效的
rv。而不是使用
rv