与用户定义功能的反应

Question

我正在尝试将代码转换为交互式的闪亮应用程序。我使用了许多用户定义的函数（取决于彼此的输入和输出）。  我无法使用用户定义的功能正确放置反应性。有人可以建议要遵循的规则吗？请提供特定于用户定义功能的反应性的规则...我也在努力在服务器中用户定义功能内使用<<-运算符分配全局作用域。

server <- function(input, output) {
  a <- function(x,p,q)  {
    x <<- reactive({p/q})
    s <- x+1
    return(s)
  }

  b <- function(y,p,q) {
    y <<- reactive({p*q+x})
    return(y+1)
  }

  main.R() { 
    z <- 10
    dm1 <-  a(z,1,2)
    dm1 <<- dm1+1
    dm2 <<- b(z,3,4)
    return(list(dm1,dm2))
  }
  F <- main.R()
}

我得到的错误是调试时未找到x