إنشاء آلة حاسبة بلغة R: دليل خطوة بخطوة للمبتدئين

إنشاء آلة حاسبة بلغة R: دليل خطوة بخطوة للمبتدئين

لغة R تُعتبر واحدة من اللغات البرمجية الأساسية في مجالات تحليل البيانات والإحصاء. بالإضافة إلى إمكانياتها في تحليل البيانات، يمكن استخدام R في إنشاء تطبيقات صغيرة مثل الآلات الحاسبة. في هذا المقال، سنقوم ببناء آلة حاسبة بسيطة باستخدام لغة R، وهو دليل خطوة بخطوة مخصص للمبتدئين.

المتطلبات لإنشاء آلة حاسبة بلغة R

لبناء الآلة الحاسبة، ستحتاج إلى:

• بيئة تطوير R: يمكنك استخدام RStudio أو أي بيئة تطوير تدعم لغة R.
• فهم أساسي للغة R وبعض وظائفها الأساسية.

الخطوة 1: إعداد البيئة

تأكد من أنك قمت بتثبيت R وRStudio على جهازك. يمكنك تحميل R من CRAN وRStudio من الموقع الرسمي.

الخطوة 2: كتابة وظائف العمليات الأساسية

لنبدأ بإنشاء وظائف لإجراء العمليات الحسابية الأساسية: الجمع، الطرح، الضرب، والقسمة.

add <- function(x, y) {
 return(x + y)
}

subtract <- function(x, y) {
 return(x - y)
}

multiply <- function(x, y) {
 return(x * y)
}

divide <- function(x, y) {
 if (y == 0) {
   return("لا يمكن القسمة على الصفر!")
 } else {
   return(x / y)
 }
}

الخطوة 3: إنشاء واجهة المستخدم البسيطة

لإنشاء واجهة مستخدم تفاعلية بسيطة، يمكننا استخدام مكتبة shiny في R. سنقوم بتطوير واجهة بسيطة تحتوي على حقول إدخال للرقمين وخيارات لتحديد العملية الحسابية.

library(shiny)

ui <- fluidPage(
 titlePanel("آلة حاسبة بسيطة"),
 
 sidebarLayout(
   sidebarPanel(
     numericInput("num1", "أدخل الرقم الأول:", value = 0),
     numericInput("num2", "أدخل الرقم الثاني:", value = 0),
     selectInput("operation", "اختر العملية:", 
                 choices = c("جمع" = "add", "طرح" = "subtract", 
                             "ضرب" = "multiply", "قسمة" = "divide")),
     actionButton("calcButton", "احسب")
   ),
   
   mainPanel(
     textOutput("result")
   )
 )
)

الخطوة 4: كتابة منطق الخادم

نحتاج الآن إلى كتابة منطق الخادم الذي يتعامل مع العمليات الحسابية بناءً على مدخلات المستخدم.

server <- function(input, output) {
 result <- reactive({
   num1 <- input$num1
   num2 <- input$num2
   operation <- input$operation
   
   if (operation == "add") {
     return(add(num1, num2))
   } else if (operation == "subtract") {
     return(subtract(num1, num2))
   } else if (operation == "multiply") {
     return(multiply(num1, num2))
   } else if (operation == "divide") {
     return(divide(num1, num2))
   }
 })
 
 output$result <- renderText({
   input$calcButton
   isolate({
     paste("النتيجة: ", result())
   })
 })
}

الخطوة 5: تشغيل التطبيق

لإنهاء الآلة الحاسبة وتشغيلها، نستخدم وظيفة shinyApp لتشغيل واجهة المستخدم وخادم التطبيق.

shinyApp(ui = ui, server = server)

في هذا المقال، قمنا ببناء آلة حاسبة بسيطة باستخدام لغة R ومكتبة shiny. هذا المثال يقدم لك فكرة أساسية عن كيفية تطوير تطبيقات تفاعلية بسيطة بلغة R. يمكنك توسيع هذه الآلة الحاسبة بإضافة المزيد من العمليات أو تحسين واجهة المستخدم وفقًا لاحتياجاتك.