Понимание структуры и зависимостей моего приложения в R блестящий

Question

Надеюсь, вы все в порядке и в безопасности. У меня есть очень полезная и информативная концепция, которой я могу поделиться с вами, а также мне необходимы некоторые материалы. Я почти прочитал много статей R studio, но ничего не нашел

Причина, по которой я пытаюсь решить эту проблему, состоит в том, что у нас есть приложение с 10 вкладками и множеством реактивов (например, нажатие кнопки приводит к отображению Tab1). таблица / вывод в Tab10 и т. д. Пользователь хочет понять зависимости)

Из приведенного ниже приложения (ui.R) можно перечислить все метки, Id и его тип, например

Ожидаемый результат 1: Это относится к пользовательскому интерфейсу

# as a dataframe
Input Type                       label            ID

numericInput                      N:              n
actionButton                      Go!          goButton
verbatimTextOutput                              nText       # we have no Label
verbatimTextOutput                               Fun         # we have no Label

. При выполнении вышеизложенного пользователь узнает об интерфейсе пользователя

Ожидаемый результат 2: Это относится к серверу

OutputType/Object                Function                        argument

output$nText                     renderText                         nText()
output$Fun                       renderText                         asd(3,4)
ntext                            eventReactive                    input$goButton , input$n

Делая все вышеперечисленное, пользователь ясно узнает, что вывод $ nText - это вывод, имеющий функцию renderText, которая, в свою очередь, зависит от nText (). Опять же, nText зависит как от goButton, так и от n, который, в свою очередь, связан с выводом $ nText. Таким образом, пользователь может сказать: «Хорошо, вывод $ nText зависит от 2 входов.

Ниже приведено простое приложение

ui .R

source("Fun.R")
pageWithSidebar(
  headerPanel("actionButton test"),
  sidebarPanel(
    numericInput("n", "N:", min = 0, max = 100, value = 50),
    br(),
    actionButton("goButton", "Go!"),
    p("Click the button to update the value displayed in the main panel.")
  ),
  mainPanel(
    verbatimTextOutput("nText"),
    verbatimTextOutput("Fun")
  )
)

server.R

function(input, output) {

  # builds a reactive expression that only invalidates 
  # when the value of input$goButton becomes out of date 
  # (i.e., when the button is pressed)
  ntext <- eventReactive(input$goButton, {
    input$n
  })

  output$nText <- renderText({
    ntext()
  })

output$Fun <- renderText({
    asd(3,4)
  })
}

Fun.R

asd <- function (a,b){
c <- a+b
return(c)
}