Написать редактируемый блестящий Datatable в .csv файл - PullRequest
Новая
       26

Написать редактируемый блестящий Datatable в .csv файл

0 голосов
/ 28 октября 2019

Я пишу блестящее приложение, которое загружает список имен и дат и отображает их в виде данных.

Я хочу использовать функциональность editable таблиц данных, чтобы позволить пользователю обновить один издаты, нажмите кнопку сохранения и перезапишите исходные данные обновленными данными.

Это то, что у меня есть до сих пор; 

library(shiny)
library(shinydashboard)
library(tidyverse)
library(DT)


users <- reactiveFileReader(
  intervalMillis = 100000,  
  NULL,
  filePath = 'appData/userTest.csv',
  readFunc = read.csv,
  stringsAsFactors = FALSE
)

header <- dashboardHeader(title = "demo")
sidebar <- dashboardSidebar(uiOutput('sidebar'))
body <- dashboardBody(uiOutput("body"))

f1 <- fluidRow(
  box(
    dataTableOutput('userTable'),
    width = 6
  )
)

ui <- dashboardPage(title = 'admin function test', header, sidebar, body, skin='blue')

server <- function(input, output, session){

  output$body <- renderUI({
    tabItems(
      tabItem(
        tabName = 'admin', class = 'active', h2(f1)
      )
    )
  })

  output$sidebar <- renderUI({
    sidebarMenu(id = 'sidebarmenu',
                menuItem("admin", tabName = "admin", icon = icon("adjust")),
                actionButton("do", 'save', icon = icon('redo'))
    )
  })

  observeEvent(
    input$do,{
      write.csv(users(),'appData/userTest.csv', row.names = FALSE)
    })

  output$userTable <- renderDataTable({
    DT::datatable(users(),
                  editable = TRUE)
  })
}

shinyApp(ui = ui, server = server)

Мои данные выглядят так; 

   userName      start        end
1      John 06/08/2019       <NA>
2      Mary 01/01/2019       <NA>
3      Mike 23/10/2019 01/10/2019
4     Steve 25/07/2019       <NA>
5      Kate 01/01/2019 29/04/2019

Хотя при этом сохраняются данные users(), сохраняются только исходные наборы данных, а не данные из отредактированной таблицы;Мне нужно, чтобы пользователь мог ввести дату, нажать кнопку «Сохранить», а затем reactiveFileReader, чтобы загрузить набор данных с примененными изменениями.

Возможно, я неправильно понимаю нечто фундаментальное из того, как работают редактируемые таблицы. ..

Можно ли это сделать?

1 Ответ

0 голосов
/ 28 октября 2019

Итак, я понял, что добавление следующего: 

edited <- reactive({editData(users(), input$userTable_cell_edit, proxy = NULL, rownames = FALSE, resetPaging = FALSE)})

observeEvent(
    input$do,{
      write.csv(edited(),'appData/userTest.csv', row.names = FALSE)
    })

позволяет мне редактировать одну ячейку и обновлять CSV. Однако это не позволяет мне редактировать более одной ячейки за раз. Будет опубликован новый вопрос

редактировать: опубликован новый вопрос Редактирование нескольких ячеек в таблице данных в блестящем

...