R，使用反应式数据帧-NAs

我正在尝试根据一些用户定义的规则填充data.frame/matrix。我设法在R中创建了一个函数，但我一直在尝试将其复制为一个闪亮的应用程序[这是我第一次使用闪亮，从这个开始我就是个白痴]

这是常规r脚本代码的关键所在- 用户输入为：大小（1~3）、更改（1~2）和迭代（10~1000）

---

school\u choice\u function而不是在
服务器内部编写函数的全部代码
school\u choice\u function
为什么不在服务器外部定义函数，然后从服务器内部调用它呢。大概是这样的：

 server<- function(input,output) {

      Changes<- reactive({input$Changes})
      Size<- reactive({input$Size})
      Iterations<- reactive({input$Iterations})

      df<- reactive({

        df <- school_choice_function(Changes(), Size(), Iterations())
        return(data.frame(df, stringsAsFactors = FALSE))

      })

      output$dframe <- renderTable({ df() })
    }

server与其在
server
内部编写函数
school\u choice\u函数的整个代码，不如在服务器外部定义函数，然后从服务器内部调用它。大概是这样的：

 server<- function(input,output) {

      Changes<- reactive({input$Changes})
      Size<- reactive({input$Size})
      Iterations<- reactive({input$Iterations})

      df<- reactive({

        df <- school_choice_function(Changes(), Size(), Iterations())
        return(data.frame(df, stringsAsFactors = FALSE))

      })

      output$dframe <- renderTable({ df() })
    }

server你能添加一个
s_list
的示例吗，这样你的应用程序就可以完全复制？@cma她第一个代码块被更新以提供完整的功能，我将花一天的时间来改进这一点-看看我是否可以在没有循环的情况下做同样的事情。你现在可以忽略这一点，我正在重新编写整个程序，以使其更简单、更快。你能添加一个
s_list
的示例，使你的应用程序完全可复制吗？@cma她更新了第一个代码块以提供完整的功能，我将花一天的时间来改进这一点-看看我是否可以在没有循环的情况下做同样的事情。你现在可以忽略这一点，我正在重写整件事，让它更简单、更快。行得通，行得通！！！！夫人，你是个学者！有什么建议给那些刚开始学习闪亮的人吗？这是处理事情的最好方式吗？在外部定义函数并在内部调用它们？然后我可以做很多很酷的事情！更好的方法是在一个单独的文件中编写函数，并使用
source（“filename.R”）
在您的服务器中寻找它的来源。它可以正常工作！！！！夫人，你是个学者！有什么建议给那些刚开始学习闪亮的人吗？这是处理事情的最好方式吗？在外部定义函数并在内部调用它们？然后我可以做很多很酷的事情！更好的方法实际上是在一个单独的文件中编写函数，并使用
source（“filename.R”）
在您的服务器中寻找它的来源。
 server<- function(input,output) {

      Changes<- reactive({input$Changes})
      Size<- reactive({input$Size})
      Iterations<- reactive({input$Iterations})

      df<- reactive({

        df <- school_choice_function(Changes(), Size(), Iterations())
        return(data.frame(df, stringsAsFactors = FALSE))

      })

      output$dframe <- renderTable({ df() })
    }