Facfactorial Funktion

Question

Ich bin ganz neu zu Glänzend, aber ich versuche, eine rekursive Fakultäts-Funktion in die R

hier zu implementieren, ist der Code, den ich zu implementieren versuchen:

recursive.factorial <- function(x) { 
    # if the value of x is 0 or 1, then 1 is returned 
    if (x == 0 || x == 1) { 
    return (1) 
    } 
    else { 
    return (x * recursive.factorial(x - 1)) # recursive function to calculate the factorial 
    } 
} 
recursive.factorial(5) 

Ist es sogar möglich, etwas wie das in Shiny zu setzen?

Danke

Answer 1

Gefällt mir das?

library(shiny) 

recursive.factorial <- function(x) { 
    # if the value of x is 0 or 1, then 1 is returned 
    if (x == 0 || x == 1) { 
return (1) 
} 
    else { 
return (x * recursive.factorial(x - 1)) # recursive function to calculate the factorial 
} 
} 

ui <- fluidPage(
    sidebarLayout(
    sidebarPanel(
    numericInput("obs", "Observations:", 10, min = 1, max = 100) 
), 
mainPanel(textOutput("value")) 
) 
) 

server <- function(input, output) { 
    output$value <- renderText({ 
    print(recursive.factorial(input$obs)) 

    }) 
} 

shinyApp(ui = ui, server = server)