Facfactorial功能

Question

我很新的閃亮，但我想實現遞歸階乘功能轉換爲R

這裏是我想實現的代碼：

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) 

它甚至有可能在Shiny中放置這樣的東西？

謝謝

Answer 1

這樣的？

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)