单击“保存”按钮时更新R和DT中的值

因此，我正在尝试制作一个闪亮的应用程序，作为一个计算器。所以基本思想是建立在我发现的DT编辑函数的基础上的。正如您在下面看到的屏幕截图所示，一旦用户单击save按钮，我想更新TotalReach列的值，它只不过是impressions/frequency。我试着在输入$Updated_trich下做这件事。但当我这样做时，我会得到以下错误警告：函数列表[k]]中出错：尝试应用非函数

我该怎么做才能解决这个问题。下面是代码 服务器

---

该错误似乎源于在该管线中使用管道：

calc <-calc %>% (calc$TotalReach = calc$Impressions/calc$Frequency)

---

允许进行适当的保存

多谢各位。我确实解决了这个问题，但编辑选项似乎不起作用。它应该显示与添加行相同的选项，但它不显示。

#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
# 
#    http://shiny.rstudio.com/
#

library(shiny)
library(shinyjs)
library(shinysky)
library(DT)
library(data.table)
library(lubridate)
library(shinyalert)
useShinyalert()
# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("Calculator"),
  ### This is to adjust the width of pop up "showmodal()" for DT modify table 
  tags$head(tags$style(HTML('
                            .modal-lg {
                            width: 1200px;
                            }
                            '))),
 # helpText("Note: Remember to save any updates!"),
  br(),
  ### tags$head() is to customize the download button
 numericInput("inNumber", "Number input:",
              min = 1, max = 330000000, value = 20000000, step = 1000000),
  useShinyalert(), # Set up shinyalert
  uiOutput("MainBody_trich"),actionButton(inputId = "Updated_trich",label = "Save"),
 tags$head(tags$style(".butt{background-color:#230682;} .butt{color: #e6ebef;}")),br(),
 downloadButton("Trich_csv", "Download in CSV", class="butt"),
))

calc <-calc %>% (calc$TotalReach = calc$Impressions/calc$Frequency)

calc <-calc %>% 
      mutate(TotalReach = Impressions/Frequency)