r - 这两个反应式数据帧是动态的。但是输出正在合并
问题描述
输出(2 个数据帧)正在合并。由于数据框是动态的,我希望输出一个接一个地显示。(航班和战术是标签面板)
ui <- fluidPage(
fluidRow(
column(3, wellPanel(
textInput("account","Enter the Account Name",""),
tags$hr(),
actionButton("goButton", "Go")
)),
mainPanel(
tabsetPanel(
tabPanel("Flight",
textInput("flightname","Enter the flight Name","")
tags$hr(),
actionButton("go", "Go")),
tabPanel("Tactic",
textInput("tacticname","Enter the tactic Name",""),
tags$hr(),
actionButton("go1", "Go"))
),
column(3,dataTableOutput('mytable1')),
conditionalPanel(
condition = "input.go1 != 0",
column(3,dataTableOutput('mytable2')))
)
))
server <- function(input, output) {
rv <- reactiveValues(fli = data.frame("FlightName" = character(), "AddedValue" = character()))
observeEvent(input$go, {
# Bind new row to rv$fli
rv$fli <- rbind(
rv$fli,
data.frame("Account"=input$account"FlightName"=input$flightname)
)
})
rv1 <- reactive({rv$fli})
output$mytable1 <- DT::renderDataTable(
DT::datatable(
rv1(),
extensions = 'Buttons',
options = list(
paging = TRUE,
dom = 'tB',
buttons = c('copy', 'csv', 'excel','pdf')
),
class = "display"
))
rv <- reactiveValues(tact = data.frame("TacticName" = character()))
observeEvent(input$go1, {
rv$tact <- rbind(
rv$tact,
data.frame("Account"=input$account,"TacticName"=input$tacticname))
})
rvt <- reactive({rv$tact})
}}
使用类似的 DT::renderDataTable 来显示 rvt()。在 ui 部分,我使用的是 column(3,dataTableOutput('mytable1')) 和 column(3,dataTableOutput('mytable2'))。
解决方案
推荐阅读
- docker - Docker:无法使用 VictoriaMetrics“vmagent”抓取 SonarQube,连接被拒绝
- python - 将鼠标悬停在输入框或图像上时,如何使消息出现在鼠标旁边?
- reactjs - pages.map 不是 gatsby nodejs 中使用 axios 获取数据的函数
- python - Selenium 脚本手动工作,但在启动时不工作
- html - 使正方形网格中的正方形始终为正方形
- javascript - Android Chrome 上的全屏显示在 Notch 区域上显示白色条带
- react-native - 在本机反应中,在执行posenet.load() 时出现错误-> TypeError: undefined is not an object (evalating 'env().platform.fetch')
- reactjs - Material UI - 只有当我键入 @ 时才会显示选项的自动完成功能,就像 Skype 或任何其他聊天编辑器一样
- python - 由于重复轴无法重新索引
- nginx - 在 nginx 中创建单独的位置以启用特定文件的 req_limit_zone