[R] how to calculate a numeric's digits count?

[PO SU]

Ok,  what i want is  find how many numbers after  . in a numeric ,and i don't know if there is already exists a function to do it( i wrote one by myself which will be showed later).
e.g.
1.234 has 3 numbers after . 
1 has 0 number
1.5342 has 4 numbers 
And i solved the above format using:
find<-function(x)
{
    str<-as.character(x)
    if(is.na(strsplit(str,"\\.")[[1]][2])) return(0)
    else return(nchar(strsplit(str,"\\.")[[1]][2]))  
}

But when i  find(1.340)  i get 2 not 3. find(1.3400) will also get 2 not 4.
So,my question is how to implement the above needing? TKS.




--

PO SU
mail: desolator88 at 163.com 
Majored in Statistics from SJTU




At 2014-10-24 12:04:18, "Jeff Newmiller" <jdnewmil at dcn.davis.CA.us> wrote:
>I am baffled. I think those were English words but they didn't make any sense to me. Not was there a reproducible example to turn to. Can you try again?
>---------------------------------------------------------------------------
>Jeff Newmiller                        The     .....       .....  Go Live...
>DCN:<jdnewmil at dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live Go...
>                                      Live:   OO#.. Dead: OO#..  Playing
>Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
>/Software/Embedded Controllers)               .OO#.       .OO#.  rocks...1k
>--------------------------------------------------------------------------- 
>Sent from my phone. Please excuse my brevity.
>
>On October 23, 2014 8:35:06 PM PDT, PO SU <rhelpmaillist at 163.com> wrote:
>>
>>Dear usRers,
>>  Now i want to cal ,e.g. 
>> cal(1.234)  will get 3
>> cal(1) will get 0
>> cal(1.3045) will get 4
>> But the difficult part is cal(1.3450) will get 4 not 3.
>>So, is there anyone happen to know the solution to this problem, or it
>>can't be solved in R, because 1.340 will always be transformed autolly
>>to 1.34?
>>
>>
>>
>>
>>
>>
>>--
>>
>>PO SU
>>mail: desolator88 at 163.com 
>>Majored in Statistics from SJTU
>>______________________________________________
>>R-help at r-project.org mailing list
>>https://stat.ethz.ch/mailman/listinfo/r-help
>>PLEASE do read the posting guide
>>http://www.R-project.org/posting-guide.html
>>and provide commented, minimal, self-contained, reproducible code.
>