Вызов функции в качестве аргумента в другой функции в R

Я разрабатываю API, для которого использую Plumber. Я создал две функции с каждой конечной точкой. Я хочу использовать функцию 1 в качестве аргумента в наследовании функции 2 ИЛИ, например, функция 1 должна быть моим родительским классом, а функция 2 будет моим дочерним классом.

Я хочу повторно использовать код функции 1 для выполнения вывода функции 2.

Я не знаю, как это сделать!

Пожалуйста помоги

Заранее спасибо

Функция 1

library(plumber)
library(gwasrapidd)

#* @get /Query    

simplequery <- function(query=""){

    studies <- get_studies(study_id = query) 

  }

Функция 2

#* @get /GetData
    
    Getdata <- function(of=""){
          
          if (of == "Studies"){
            
            study_table <- studies@studies
            
            .....
          }
        }

r api arguments function plumber
person Aman Vishwakarma    schedule 28.01.2021    source источник
comment
Я не понимаю в чем проблема. Из кода, который вы написали, мне очень неясно, что вы пытаетесь сделать.   -  person Bruno Tremblay    schedule 28.01.2021
comment
я хочу, чтобы функция 1 была моим родительским классом, а функция 2 - дочерним классом   -  person Aman Vishwakarma    schedule 29.01.2021
comment
функция 1 и функция 2 должны быть связаны   -  person Aman Vishwakarma    schedule 29.01.2021
comment
Все еще не понимаю.. У вас есть пример на другом языке?   -  person Bruno Tremblay    schedule 30.01.2021
comment
Функция @BrunoTremblay 1 получит запрос от пользователя, и любой результат, полученный от функции 1, будет сохранен в переменной (исследования, ассоциации, варианты, черты). Итак, дело в том, что я хочу передать эту переменную функции 1 функции 2 для другого оператора кода.   -  person Aman Vishwakarma    schedule 31.01.2021
comment
@BrunoTremblay, вы можете проверить этот вопрос stackoverflow.com/questions/11783435/, но это на С++   -  person Aman Vishwakarma    schedule 31.01.2021
comment
Прочитайте ответы там, это то же самое для R.   -  person Bruno Tremblay    schedule 31.01.2021
comment
@BrunoTremblay Я до сих пор не понимаю, как это сделать. Не могли бы вы помочь мне   -  person Aman Vishwakarma    schedule 01.02.2021
comment
Я сделал все, что мог, остальное зависит от вас. Извиняюсь.   -  person Bruno Tremblay    schedule 01.02.2021
comment
@BrunoTremblay Спасибо, сэр, за ваш ответ. Я использовал функцию для решения моего запроса   -  person Aman Vishwakarma    schedule 02.02.2021

Ответы (1)


arrow_upward
0
arrow_downward

Я использовал функцию with, чтобы наследовать свою функцию.

abc <- function{
    with(parent.frame(),{
       function_statement
    })
}

efg<- function{
    d <- abc()
    function_statement
}

что он делает, так это то, что функция efg вызывает функцию abc

person Aman Vishwakarma    schedule 02.02.2021