Welcome Webforms Technology to R: دوره جدیدی آغاز می شود

library(httpuv)

# Load the WebForms.R script
source("{WebForms.R path}")

# Define the server logic
app <- list(
  call = function(req) {
    tryCatch({
      if (req$REQUEST_METHOD == "POST") {
        form_data <- rawToChar(req$rook.input$read())
        form_data <- strsplit(form_data, "&")[[1]]
        form_data <- setNames(
          lapply(form_data, function(x) URLdecode(strsplit(x, "=")[[1]][2])),
          sapply(form_data, function(x) strsplit(x, "=")[[1]][1])
        )

        if (!is.null(form_data$Button)) {
          bg_color1 <- form_data$txt_BackgroundColor1
          interval1 <- form_data$txt_Interval1
          bg_color2 <- form_data$txt_BackgroundColor2
          interval2 <- form_data$txt_Interval2

          form <- WebForms()

          # Set form properties using WebForms methods
          form$SetBackgroundColor(", bg_color1)
          form$AssignInterval(interval1)
          form$SetBackgroundColor(", bg_color2)
          form$AssignInterval(interval2)


          form$SetDisabled("(Button)", TRUE)

          # Return a response to the client
          return(list(
            status = 200L,
            headers = list('Content-Type' = 'text/plain'),
            body = form$Response()
          ))
        }
      }

      # If the request is not a POST or the button was not clicked, return the HTML form
      return(list(
        status = 200L,
        headers = list('Content-Type' = 'text/html'),
        body = '


  
  

		

			

										

							
							 هم‌رسانی
						
						
				
					 فیس بوک
				
				
					 توییتر (X)
				
				
					 لینکدین
				
				
					 ‫تامبلر
				
				
					 ‫پین‌ترست
				
				
					 ‫رددیت
				
				
					 ‫VKontakte
				
				
					 ‫Odnoklassniki
				
				
					 پاکت
				
				
					 رایانامه
				
				
					 چاپ