prajwalkpatil / vedicdatetime Goto Github PK

> masa(gregorian_to_jd(18,07,2023),  c(16.99, 81.79, +5.5))
[1] 5 1
> get_ritu_name(masa(gregorian_to_jd(18,07,2023),  c(16.99, 81.79, +5.5)))
[1] "Varsha"  "Vasanta"

> masa(gregorian_to_jd(18,08,2023),  c(16.99, 81.79, +5.5))
[1] 5 0
> get_ritu_name(masa(gregorian_to_jd(18,08,2023),  c(16.99, 81.79, +5.5)))
[1] "Varsha"

get_yoga_name <- function(jd,place){
  yoga_ = yoga(jd,place)
  size = length(yoga_)
  size = size / 4
  j <- 1
  yoga_name <- ""
  for(i in 1:size){
    #* 'NA' caused by following line of code during 2nd iteration
    yoga_name <- paste(yoga_name,yogas[yoga_[j]]," till",sep = "")
    yoga_name <- paste(yoga_name,paste(yoga_[j+1], yoga_[j+2], yoga_[j+3], sep = ":"))
    if(size > 1 && i == 1){
      yoga_name <- paste(yoga_name,"& ")
    }
    j <- 5
  }
  return (yoga_name)
}

R version 4.3.0 (2023-04-21) -- "Already Tomorrow"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: powerpc-apple-darwin10.8.0 (32-bit)

> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/tests.html
> # * https://testthat.r-lib.org/reference/test_package.html#special-files
> 
> library(testthat)
> library(VedicDateTime)
> 
> test_check("VedicDateTime")
[ FAIL 3 | WARN 0 | SKIP 4 | PASS 16 ]

══ Skipped tests ═══════════════════════════════════════════════════════════════
• Old swephR version (4)

══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test_nakshatra.R:8:3'): Check positive testcase ───────────────────
nakshatra(vd$jd, vd$place) (`actual`) not equal to c(25, 24, 24, 1) (`expected`).

  `actual`: 25 24 24 2
`expected`: 25 24 24 1
── Failure ('test_tithi.R:8:3'): Check positive testcase ───────────────────────
tithi(vd$jd, vd$place) (`actual`) not equal to c(20, 20, 55, 35) (`expected`).

  `actual`: 20 20 55 36
`expected`: 20 20 55 35
── Failure ('test_yoga.R:8:3'): Check positive testcase ────────────────────────
yoga(vd$jd, vd$place) (`actual`) not equal to c(5, 27, 26, 12) (`expected`).

  `actual`: 5 27 26 13
`expected`: 5 27 26 12

[ FAIL 3 | WARN 0 | SKIP 4 | PASS 16 ]
Error: Test failures
Execution halted