search for: is_numeric

...;- function(x) FALSE x <- matrix() is_array(x) #> [1] FALSE x <- matrix() inherits(x, "array") #> [1] FALSE class(x) #> [1] "matrix" It would be nice to make sure this is consistent with the behaviour of integers, which have an implicit parent class of numeric: is_numeric <- function(x) UseMethod("is_numeric") is_numeric.numeric <- function(x) TRUE is_numeric.default <- function(x) FALSE x <- 1L is_numeric(x) #> [1] TRUE inherits(x, "numeric") #> [1] FALSE class(x) #> [1] "integer" Hadley -- http://hadley.nz

...==true) { listItems = $("vidList").childElements("li"); listItems.each ( function(item) { Event.observe($(item).childElements("a")[0], "click", assignB); } ) } var so = new SWFObject(thevideo, "vidplayer", "<?php if (is_numeric($width)) echo $width; else echo $dw; ?>", "<?php if (is_numeric($height)) echo $height; else echo $dh; ?>", "8", "#000000"); so.addParam("wmode", "transparent"); so.write("videoPlayer"); } function assignB(o) { listItems...

...have an implicit parent class of numeric: I agree but I don't know if Martin wants to go that far for R 4.0. Hopefully that's the longer term plan though (maybe for R 4.1?). Note that there are other situations that could follow e.g. data.frame/list and probably more... H. > > is_numeric <- function(x) UseMethod("is_numeric") > is_numeric.numeric <- function(x) TRUE > is_numeric.default <- function(x) FALSE > > x <- 1L > is_numeric(x) > #> [1] TRUE > inherits(x, "numeric") > #> [1] FALSE > class(x) > #> [1] &qu...

I am trying to override variables in a class that is defined in the default node profile. I want parent class to be included in every single node, but override its variables in others. I have tried it several different ways now, and every single time the variables either become unset (undefined) or are set to the value of the first if statement. Here is my current iteration of failure.

Thanks Martin and Peter, I agree that we can be careful and narrow and still see a nice improvement in behavior. While Herve's point is valid and I understand his frustration, I think staying within the matrix vs c(matrix, array) space is the right scope for this work in terms of fiddling with inheritance. As another point, I don't know off the top of my head of any other classes which

...") would be less problematic because most of the wrong uses of if(class(..) == "integer") would already have been eliminated ... Martin > Note that there are other situations that could follow e.g. > data.frame/list and probably more... > H. >> is_numeric <- function(x) UseMethod("is_numeric") >> is_numeric.numeric <- function(x) TRUE >> is_numeric.default <- function(x) FALSE >> >> x <- 1L >> is_numeric(x) >> #> [1] TRUE >> inherits(x, "numeric&quot...

...8,13 @@ add_if_not_exist() { || echo "$string" >> "$file" } +# $1 - the string to be trimmed +trim_whitespace () { + local text=${1} + + printf "$text" | awk '{gsub(/^[ ]*/,"",$0); gsub(/[ ]*$/,"",$0) ; print }' +} + is_numeric() { printf "$1" | grep -q -E '^[0-9]+$' } -- 1.6.5.2

The first line of the comment had a typo in it.

This was an older patch that had to be rebased against the current tip.

This includes a missed break and two spots where $ADDRESS was copied as $address instead.

This patch supercedes the previous and includes fixes based on feedback from apevec. Duplicate checks now check the whole address, so substrings won't cause false positives.

I missed one situation in the last patch. It wasn't properly handling the karg for NTP. This patch fixes that.

...erId = $strCallerNumber; #get the phone number from the posted form $strExten = $_POST['txtphonenumber']; $callNumber = $strExten; #specify the caller id for the call $strCallerId = "Web will call <$callNumber>"; $length = strlen($strExten); if ($length == 10 && is_numeric($strExten)) { $oSocket = fsockopen($strHost, 5038, $errnum, $errdesc) or die("Connection to host failed"); fputs($oSocket, "Action: login\r\n"); fputs($oSocket, "Events: off\r\n"); fputs($oSocket, "Username: $strUser\r\n"); fputs($oSocket, "Secret: $strS...

I''m working on deploying Puppet to our environment and after reinstalling some nodes, I run Puppet for the first time. It appears to be updating some Puppet specific files (see below), and then times out with the error: "Error: /File[/var/lib/puppet/lib/facter/ip6tables_version.rb]/ensure: change from absent to file failed: execution expired Error: Could not retrieve plugin:

I'm looking at what would be involved in converting from MeetMe to ConfBridge and there seems to be a lot of missing administrative things, but I hope I'm just missing it. We all know about the missing realtime linkage. That's a major nuisance, but can be worked around. More serious is that the CLI command to display users in a ConfBridge don't show the caller ID information, so

...------------------------------------------------------------------------ #get the phone number from the posted form $strExten = $_POST['txtphonenumber']; #specify the caller id for the call $strCallerId = $_POST['txtcid']; $length = strlen($strExten); if ($length == 11 && is_numeric($strExten)) { $oSocket = fsockopen($strHost, 5038, $errnum, $errdesc) or die("Connection to host failed"); fputs($oSocket, "Action: login\r\n"); fputs($oSocket, "Events: off\r\n"); fputs($oSocket, "Username: $strUser\r\n"); fputs($oSocket, "Secret: $strS...

While doing some embedded programming and trying to figure out how to generate a hand coded SEXP equivalent of the line "t.test(x,conf.level=(1-p))$conf.int[2]" I had an idea for an addition to the embedded API. There are a number of hidden or static parse functions (R_ParseBuffer, R_Parse1Buffer, etc.) which take an IoBuffer* and returns a parsed tree. If one or more of these