Question

我正在Rstudio的Shiny包中编写一个表单。但我想使用我的数据框信息创建一个自动填充表单。我会举一个例子。

假设我有一个包含三列的data.frame。第一个包含我的学生的名字，第二个包含他的年龄，第三个包含他过去考试的最后一个年级。我创建了一个只有三个选择输入字段的表单。第一个用于选择名称，第二个用于选择年龄，最后一个用于选择最后一个等级。我希望当我在第一个字段中选择学生的名字时，其他字段会自动填写信息。

谢谢！

Answer 1

我想这就是你要找的东西：

我使用的数据集如下。我从csv文件中加载了相同的数据。

autoFillDF <- structure(list(Name = c("ABC", "XYZ", "PQR"), Age = c(30L, 24L, 
27L), Grade = c("A", "B", "D")), .Names = c("Name", "Age", "Grade"
), class = "data.frame", row.names = c(NA, -3L))

ui.R代码

shinyUI(fluidPage(
  titlePanel("Auto Fill"),
    sidebarPanel(
      selectizeInput("p1", choices = autoFillDF$Name, selected = NULL, label = 'Name'),
      selectizeInput("p2", choices = NULL, label = 'Age'),
      selectizeInput("p3", choices = NULL, label = 'Grade')

    ),
    mainPanel(
      DT::dataTableOutput('table')
    )
  )
)

server.R code

autoFillDF <- read.csv('..../test.csv', stringsAsFactors = FALSE)

shinyServer(function(input, output, session) {

  updateApp <- reactive({
    data <- autoFillDF
    data <- data[data$Name %in% input$p1,]
    updateSelectizeInput(session, 'p2', choices = data$Age, selected = data$Age, server = TRUE)
    updateSelectizeInput(session, 'p3', choices = data$Grade, selected = data$Grade, server = TRUE)

    data
  })

  output$table <- DT::renderDataTable(
    DT::datatable(updateApp()) 
  )

})

如何使用数据框信息自动填充闪亮R形式的字段？

1 个答案: