R使数据表在初始化后可编辑

我需要初始化数据表。目前，我有两个功能可以做非常相似的事情：

make_data_table_settings<- function(input_df){

         result_dt <- datatable(input_df,rownames= TRUE,
                      options = list(dom = 'Bfrtip',
                                     scrollX = TRUE,
                                     lengthMenu = c(10, 20, 50),
                                     pageLength = 10))

          return (result_dt)
 }

---

make_data_table_settings我希望我没有误解你的问题

您只需编写一个函数并使用
开关
即可激活正确的选项

编辑：
好的，谢谢您的反馈，@user1357015；您可以为您的函数添加一个附加选项（例如editableOpt），如果设置为false，则应提供与第一个函数等效的选项；如果设置了相关参数，则会得到第二个参数。让我知道这是否有帮助

make_data_table_Testfx <- function (
  input_df,
  editableOpt = list(
    target = 'row', disable = list(columns = c(0:5)))){
  
  result_dt <- datatable(
    input_df,rownames= TRUE,
    options = list(
      dom = 'Bfrtip', scrollX = TRUE,
      lengthMenu = c(10, 20, 50),
      pageLength = 10), editable = editableOpt)
  
  return (result_dt)
}

make_data_table_Testfx那么我仍然需要两个几乎相同的代码块。其中一个比另一个稍长。感谢您的反馈，请参阅编辑后的答案。让我知道它是否有效是的，我认为它有效，谢谢。
result <- make_data_table_settings(my_input_df)
result2 <- make_editable(make_data_table_settings(my_input_df))

make_data_table_Testfx <- function (
  input_df,
  editableOpt = list(
    target = 'row', disable = list(columns = c(0:5)))){
  
  result_dt <- datatable(
    input_df,rownames= TRUE,
    options = list(
      dom = 'Bfrtip', scrollX = TRUE,
      lengthMenu = c(10, 20, 50),
      pageLength = 10), editable = editableOpt)
  
  return (result_dt)
}