R 在showModal中使用textOutput

我正在尝试将文本输出添加到我的modalDialog中，但它不起作用。任何帮助都将不胜感激。我意识到这不是一个有效的例子，但是这个应用程序非常庞大，我没有时间创建一个小例子了。我对modalDialog也相当缺乏经验。 除了文本输出之外，一切都按计划进行-它根本不显示

library(tibble)
library(dplyr)
library(lubridate)
library(tidyr)
library(DT)
library(digest)
library(DBI)
library(shinyjs)
library(highcharter)
library(pool) #devtools::install_github("rstudio/pool")
library(shinyFeedback)
library(summaryrow)

showModal(
 modalDialog(
  fluidRow(
   column(
    width = 3,
    h1("Expense"),
    numericInput(
      inputId = ns("payment_expense_a"),
      label = "Expense Payment by A",
      value = 0
    ),
    numericInput(
      inputId = ns("payment_expense_b"),
      label = "Expense Payment by B",
      value = 0
    ),
    h4(
      textOutput("attorney_paid_total") #This is sum of A and B payments
    )
   )
   ...
  )
 )
)
...
output$attorney_paid_total <- renderText({    
  paste0("Total Attorney Paid: XXX") #This will be reactive
})
...

库（TIBLE）
图书馆（dplyr）
图书馆（lubridate）
图书馆（tidyr）
图书馆（DT）
图书馆（摘要）
图书馆（DBI）
图书馆（shinyjs）
图书馆（高级特许）
库（池）#devtools:：安装_github（“rstudio/pool”）
图书馆（shinyFeedback）
图书馆（汇总行）
showModal(
模态对话(
fluidRow(
纵队(
宽度=3，
h1（“费用”），
数字输入(
inputId=ns（“付款费用”），
label=“由A支付的费用”，
值=0
),
数字输入(
inputId=ns（“付款费用”），
label=“费用由B支付”，
值=0
),
h4(
textOutput（“律师付款总额”）#这是A和B付款的总和
)
)
...
)
)
)
...
输出$goldren_paid_total您应该使用
输出$expense_paid_total
而不是
输出$goldren_paid_total
作为
文本输出
id

您提供的代码中没有任何
textOutput
的
id=goldren\u paid\u total
。因此，我假设问题在于
textOutput
的id不正确，它应该是：

...
output$expense_paid_total <- renderText({    
  paste0("Total Attorney Paid: XXX") #This will be reactive
})
...

。。。
输出$expense_paid_total根据我的要求，我只需将其包装在ns（）中

h4（文本输出（ns（“律师费总额”））
请在顶部包括您使用的相关库。我不知道什么是
ns（）
函数is@KyleWeise
ns添加代码时，我只是打错了。我编辑了我的问题以反映我的打字错误。我也意识到我需要一个工作示例，但正如我在问题中所说的，我是一个modal的新手（我没有编写应用程序，只是编辑它），我没有时间创建一个。但是谢谢你指出我们的错误，