对数据表进行操作后,将数据存储在闪亮的应用程序中

时间:2019-12-17 10:21:35

标签: r shiny

我正在开发一个闪亮的应用程序供员工出勤。现在默认情况下,我有一个如下所示的数据库

ID    Name
1    Mohit
2    Lokesh
3    kdggdgn
4    fjlhl
5    kjhtjh

现在,我开发了一个闪亮的应用程序来收集在校学生的ID。代码如下

library(shiny)
outputDir <- "C:\\Users/dell/Desktop/"
saveData <- function(data) {
  data <- as.data.frame(t(data))
  if (exists("resp")) {
    resp<<- rbind(resp, data)
  } else {
    resp <<- data
  }
  fileName <- "test_data.csv"
  write.csv(
    x = resp, sep = ",",
    file = file.path(outputDir, fileName), 
    row.names = FALSE, quote = TRUE
  )
  }
fields <- "ID"
shinyApp(
  ui = fluidPage(
    titlePanel("System"),
    DT::dataTableOutput("resp", width = 300), tags$hr(),
    numericInput("ID", "ID", ""),
    actionButton("submit", "Submit")
  ),
  server = function(input, output, session) {
    formData <- reactive({
      data <- sapply(fields, function(x) input[[x]])
      data
    })
    observeEvent(input$submit, {
      saveData(formData())
    })})

现在使用dplyr,我可以根据输入的ID将两个数据表连接在一起。我正在寻找闪亮的解决方案,以便最终文件应保存如下

现在的学生

ID    Name
1    Mohit
2    Lokesh

0 个答案:

没有答案