I used this function to get all the fields name of Campaign table, but it returned this error
The salesforcer package can return details about object metadata in Salesforce. Here is an example:
library(tidyverse)
library(salesforcer)
sf_auth(username, password, security_token)
# retrieve a list of metadata about the Contact object
contact_object <- sf_describe_object('Contact')
#> $activateable
#> [1] "false"
#>
#> $childRelationships
#> [1] "..."
#>
#> $fields
#> [1] "..."
# retrieve a tbl_df of all fields on the Contact object
contact_fields <- sf_describe_object_fields('Contact')
#> # A tibble: 64 x 39
#> aggregatable aiPredictionField autoNumber ...
#> <chr> <chr> <chr>
#> 1 true false false
#> 2 false false false
#> 3 true false false
#> #...
Related
I am working with several classification algorithms from different libraries (for example):
library(ranger) #RandomForest
library(gbm) #Gradient Boosting
I need to use formals function to get all the arguments from all of them.
The following attempts works perfectly:
formals(gbm)
formals(gbm::gbm)
formals("gbm")
functionName="gbm"
formals(functionName)
What I need is to parametrize the name of the package as well as the name of the function, but it fails. Something like this:
> packageName="gbm"
> functionName="gbm"
> formals(packageName::functionName)
Error in loadNamespace(x) : there is no package called ‘packageName’
Is there anyway to do it?
Thanks
The good thing is that :: accepts strings:
`::`("gbm", "gbm")
The above code is working.
However, when we use an object name in which the string is stored, :: takes this as literal expression and looks for a package called packageName.
packageName <- functionName <- "gbm"
`::`(packageName, functionName)
#> Error in loadNamespace(x): there is no package called 'packageName'
With base R we can use eval(bquote()) and evaluate the strings early with .().
By evaluating the strings early with .() we make it clear that we are really looking for the string value (that is the value of packageName) and not the object name itself.
formals(eval(bquote(`::`(.(packageName), .(functionName)))))
#> $formula
#> formula(data)
#>
#> $distribution
#> [1] "bernoulli"
#>
#> $data
#> list()
#>
#> $weights
#>
#>
#> $var.monotone
#> NULL
#>
#> $n.trees
#> [1] 100
#>
#> $interaction.depth
#> [1] 1
#>
#> $n.minobsinnode
#> [1] 10
#>
#> $shrinkage
#> [1] 0.1
#>
#> $bag.fraction
#> [1] 0.5
#>
#> $train.fraction
#> [1] 1
#>
#> $cv.folds
#> [1] 0
#>
#> $keep.data
#> [1] TRUE
#>
#> $verbose
#> [1] FALSE
#>
#> $class.stratify.cv
#> NULL
#>
#> $n.cores
#> NULL
With {rlang} we can use inject() and !! sym():
library(rlang)
formals(inject(`::`(!! sym(packageName), !! sym(functionName))))
Of course in base R we always have the option to eval(parse()):
packageName="gbm"
functionName="gbm"
formals(eval(str2lang(paste0(packageName, "::", functionName))))
Created on 2023-02-19 with reprex v2.0.2
Package (under development): ACRER
computer: iMAC (OS X 10.15.7)
RStudio version: 1.4.1717
R version: 4.1.0
The package "ACRER" has a main script "Wageningen_SQLite_2020.R" and 4 functions (Run_Queries.R,Wcombinations.R,Wexpected_visit_duration.R and Wcrosstab.R with 4 sub functions:NGroup0.R, NGroup1.R,NGroup2.R, NGroup3.R and NGroup4.R).
I get this error:
devtools::install(pkg = "/Volumes/Aias/ACRER", reload = TRUE,
build = TRUE, quiet = FALSE, build_vignettes = FALSE, force = TRUE)
Error in grepRaw("00new", r, fixed = TRUE, all = FALSE, value = FALSE) :
long vectors not supported yet: /Volumes/Builds/R4/R-4.1.0/src/main/grep.c:1450
(see reprex code bellow)
I would appreciate if somebody can give me some suggestions about this problem
devtools::install(pkg = "/Volumes/Aias/ACRER", reload = TRUE,
build = TRUE, quiet = FALSE, build_vignettes = FALSE, force = TRUE)
#> Skipping 1 packages not available: intpoint
#> Skipping 1 packages ahead of CRAN: data.table
#> checking for file ‘/Volumes/Aias/ACRER/DESCRIPTION’ ... ✓ checking for file ‘/Volumes/Aias/ACRER/DESCRIPTION’
#> ─ preparing ‘ACRER’: (40.4s)
#> ✓ checking DESCRIPTION meta-information
#> ─ checking for LF line-endings in source and make files and shell scripts
#> ─ checking for empty or unneeded directories
#> Removed empty directory ‘ACRER/tests/testthat’
#> ─ building ‘ACRER_0.9.1.tar.gz’
#>
#> Running /Library/Frameworks/R.framework/Resources/bin/R CMD INSTALL \
#> /var/folders/6h/lzdkxf9j07bd1q5t82lphhjc0000gn/T//RtmpkmZA7M/ACRER_0.9.1.tar.gz \
#> --install-tests
#> * installing to library ‘/Library/Frameworks/R.framework/Versions/4.1/Resources/library’
#> * installing *source* package ‘ACRER’ ...
#> ** using staged installation
#> ** R
#> ** data
#> *** moving datasets to lazyload DB
#> ** tests
#> ** byte-compile and prepare package for lazy loading
#> Wcrosstab(Rmatrix = RmatrixA, Cmatrix = CmatrixA, C1 = C1A)
#> `summarise()` has grouped output by 'activity_pattern'. You can override using the `.groups` argument.
#> Wcrosstab(Rmatrix = RmatrixB, Cmatrix = CmatrixB, C1 = C1B)
#> `summarise()` has grouped output by 'groupsRecr_act_ts'. You can override using the `.groups` argument.
#> Warning in xtfrm.data.frame(x) : cannot xtfrm data frames
#> Wcrosstab(Rmatrix = RmatrixC, Cmatrix = CmatrixC, C1 = C1C)
#> Warning in rm(list = c("Run_Queries", "Wcombinations", "Wcrosstab", "Wexpected_visit_duration", :
#> object 'Wcombinations' not found
#> Warning in rm(list = c("Run_Queries", "Wcombinations", "Wcrosstab", "Wexpected_visit_duration", :
#> object 'Wcrosstab' not found
#> Warning in rm(list = c("Run_Queries", "Wcombinations", "Wcrosstab", "Wexpected_visit_duration", :
#> object 'Wexpected_visit_duration' not found
#> choicenr choicetxt
#> [1,] "1" "Pivot table for the number of persons"
#> [2,] "2" "Pivot tables for the expected visiting duration"
#> [3,] "3" "Save tables in csv format files"
#> [4,] "4" "Exit"
#> RecrID recreation_areas
#> 1 1 Beeldengalerij Het Depot
#> 2 2 Arboretum Belmonte
#> 3 3 Wageningen Berg en Bergpad
#> 4 4 Arboretum de Dreijen
#> 5 5 Uitwaarden Wageningen
#> 6 6 Renkums Beekdal
#> 7 7 Utrechtse Heuvelrug_Grebbeberg
#> 8 8 De Blauwe Kamer
#> 9 9 Ouwehands Dierenpark Rhenen
#> 10 10 Kasteel Doorwerth
#> 11 11 Edese bos
#> 12 12 AIRBORNE MUSEUM HARTENSTEIN
#> 13 13 Peppelenburg Westerrode
#> 14 14 Landgoed Kernhem
#> 15 15 Wekeromse Zand
#> 16 16 De Betuwe
#> 17 17 Roekel
#> 18 18 Hoog en Laag Amerongse Bos
#> 19 19 Noord Ginkel
#> 20 20 Amerongse Bovenpolder
#> 21 21 Lunters Buurtbosch
#> 22 22 WARNSBORN
#> 23 23 PARK ZYPENDAAL
#> 24 24 Zuid Ginkel
#> 25 25 HET NATIONALE PARK DE HOGE VELUWE
#> 26 26 BURGERS ZOO
#> 27 27 PARK SONSBEEK
#> 28 28 HET NEDERLANDS OPENLUCHTMUSEUM
#> 29 29 PARK ANGERENSTEIN
#> 30 30 PARK EN KASTEEL ROSENDAEL
#> 31 31 Nationaal Park_Utrechtse Heuvelrug
#> 32 32 GROESBEEKSE BOS
#> 33 33 VELUWETRANSFERIUM POSBANK
#> transport_type_ID transport_type_definition maximum_of_total_time
#> 1 1 on foot 60
#> 2 2 bicycle 50
#> 3 3 car 40
#> wait_time_per_full_travel minimum_distance_used maximum_distance_used
#> 1 0 0 0
#> 2 0 0 25
#> 3 0 0 100
#> speed_of_transport_type fixed_costs_per_transport_type
#> 1 0 0
#> 2 20 0
#> 3 60 0
#> per_km_costs_per_transport_type per_person_costs_per_transport_type
#> 1 0.00 0
#> 2 0.00 0
#> 3 0.65 0
#> per_km_en_per_person_costs_per_transport_type
#> 1 0
#> 2 0
#> 3 0
#> ** help
#> *** installing help indices
#> ** building package indices
#> ** installing vignettes
#> ** testing if installed package can be loaded from temporary location
#> ** testing if installed package can be loaded from final location
#> ** testing if installed package keeps a record of temporary installation path
#> Error in grepRaw("00new", r, fixed = TRUE, all = FALSE, value = FALSE) :
#> long vectors not supported yet: /Volumes/Builds/R4/R-4.1.0/src/main/grep.c:1450
#> * removing ‘/Library/Frameworks/R.framework/Versions/4.1/Resources/library/ACRER’
#> Error in (function (command = NULL, args = character(), error_on_status = TRUE, : System command 'R' failed, exit status: 1, stdout & stderr were printed
I would like to submit the following form (the form appears after you click on link "Kliknite na ..."):
http://www1.biznet.hr/HgkWeb/do/extlogon
I have to enter one parameter, named "OIB" and submit the form by clicking "Trazi".
Here is my code:
library(httr)
library(rvest)
sess <- html_session("http://www1.biznet.hr/HgkWeb/do/extlogon")
search_page <- sess %>%
follow_link(1)
form <- html_form(search_page)[[6]]
fill_form <- set_values(form, 'clanica.cla_oib' = '94989605030')
firma_i <- submit_form(search_page, fill_form, submit = 'submit')
Last line produces an error:
Error: Unknown submission name 'submit'. Possible values:
clanica.asTextDatumGasenjaTo, clanica.asTextUdr_id
I don't understand why rvest recognize this two parameters as submit buttons when they don't contain submit name or type. And why rvest doesn't recognize submit button "Trazi" as submit parameter? In, short, how to change filled form to execute the form?
The problem is that some of the input miss the type attr, and rvest does not check this appropriately.
To illustrate the problem:
library(httr)
library(rvest)
#> Loading required package: xml2
sess <- html_session("http://www1.biznet.hr/HgkWeb/do/extlogon")
search_page <- sess %>%
follow_link(1)
#> Navigating to /HgkWeb/do/extlogon;jsessionid=88295900F3F932C85A25BB18F326BE28
form <- html_form(search_page)[[6]]
fill_form <- set_values(form, 'clanica.cla_oib' = '94989605030')
Some of the fields do not have the type attribute:
sapply(fill_form$fields, function(x) '['(x, 'type'))
#> $clanica.limitSearchToActiveCompany.type
#> [1] "radio"
#>
#> $clanica.limitSearchToActiveCompany.type
#> [1] "radio"
#>
#> $joinBy.useInnerJoin.type
#> [1] "checkbox"
#>
#> $nazivTvrtke.type
#> [1] "text"
#>
#> $nazivZapocinjeSaPredanomVrijednoscu.type
#> [1] "checkbox"
#>
#> $clanica.cla_jmbp.type
#> [1] "text"
#>
#> $clanica.cla_mbs.type
#> [1] "text"
#>
#> $clanica.cla_oib.type
#> [1] "text"
#>
#> $asTextKomoraId.NA
#> NULL
#>
#> $clanica.asTextOpc_id.NA
#> NULL
#>
#> $clanica.cla_opcina.type
#> [1] "hidden"
#>
#> $clanica.asTextNas_id.NA
#> NULL
#>
#> $clanica.cla_naselje.type
#> [1] "hidden"
#>
#> $clanica.pos_id.NA
#> NULL
#>
#> $clanica.postaNaziv.type
#> [1] "hidden"
#>
#> $clanica.cla_ulica.type
#> [1] "text"
#>
#> $clanica.asTextDatumUpisaFrom.type
#> [1] "text"
#>
#> $clanica.asTextDatumUpisaTo.type
#> [1] "text"
#>
#> $clanica.asTextDatumGasenjaFrom.type
#> [1] "text"
#>
#> $clanica.asTextDatumGasenjaTo.type
#> [1] "text"
#>
#> $clanica.asTextUdr_id.NA
#> NULL
#>
#> $clanica.asTextVel_id.NA
#> NULL
#>
#> $nkd2007.type
#> [1] "text"
#>
#> $nkd2007PretrazivanjePoGlavnojDjelatnosti.type
#> [1] "radio"
#>
#> $nkd2007PretrazivanjePoGlavnojDjelatnosti.type
#> [1] "radio"
#>
#> $submit.type
#> [1] "submit"
#>
#> $org.apache.struts.taglib.html.CANCEL.type
#> [1] "submit"
#>
#> $orderBy.order1.NA
#> NULL
#>
#> $orderBy.order2.NA
#> NULL
#>
#> $limit.type
#> [1] "text"
#>
#> $searchForRowCount.type
#> [1] "checkbox"
#>
#> $joinBy.gfiGodina.NA
#> NULL
#>
#> $joinBy.gfiBrojZaposlenihFrom.type
#> [1] "text"
#>
#> $joinBy.gfiBrojZaposlenihTo.type
#> [1] "text"
#>
#> $joinBy.gfiUkupniPrihodFrom.type
#> [1] "text"
#>
#> $joinBy.gfiUkupniPrihodTo.type
#> [1] "text"
This messes up the internal function submit_request and specifically the Filter() in it.
It's referenced here, and a fix is proposed in this PR, but it hasn't been merged since Jul 2016, so don't hold your breath.
The fix in the PR basically check if a type attr is present:
# form.R, row 280
is_submit <- function(x) 'type' %in% names(x) &&
tolower(x$type) %in% c("submit", "image", "button")
For a quick fix you can change the data you have, overriding the NULL attr, with a random type:
fill_form$fields <- lapply(fill_form$fields, function(x) {
null_type = is.null(x$type)
if (null_type) x$type = 'text'
x
})
firma_i <- submit_form(search_page, fill_form, submit = 'submit')
firma_i
#> <session> http://www1.biznet.hr/HgkWeb/do/fullSearchPost
#> Status: 200
#> Type: text/html;charset=UTF-8
#> Size: 4366
Created on 2018-08-27 by the reprex package (v0.2.0).
I want to compare the performance of nonparametric intensity function estimator "rho2hat" with "ppm".
My question how can I perform a test to see estimation works better? I couldn't use quadrat.test?
As mentioned in the comment by #adrian-baddeley your suggested strategy
will just measure the difference between two results. The way you can
calculate the expected number of points in different regions from an
estimated intensity is as follows:
library(spatstat)
#> Loading required package: nlme
#> Loading required package: rpart
#>
#> spatstat 1.51-0.035 (nickname: 'Spatfefe')
#> For an introduction to spatstat, type 'beginner'
elev <- bei.extra$elev
grad <- bei.extra$grad
non <- rho2hat(bei, elev, grad)
pred <- predict(non)
grid <- quadrats(pred, nx = 4, ny = 2)
by(pred, grid, integral)
#> 1:
#> [1] 522.0247
#>
#> 2:
#> [1] 503.6255
#>
#> 3:
#> [1] 344.8552
#>
#> 4:
#> [1] 522.834
#>
#> 5:
#> [1] 454.5958
#>
#> 6:
#> [1] 470.2484
#>
#> 7:
#> [1] 556.1989
#>
#> 8:
#> [1] 415.8889
I'm looking for a way to query all S4 methods implemented by a particular package (given through its namespace environment). I think I could enumerate all objects that start with .__T__, but I'd rather prefer using a documented and/or less hackish way.
> ls(asNamespace("RSQLite"), all.names = TRUE, pattern = "^[.]__T__")
[1] ".__T__dbBegin:DBI" ".__T__dbBeginTransaction:RSQLite"
[3] ".__T__dbBind:DBI" ".__T__dbClearResult:DBI"
[5] ".__T__dbColumnInfo:DBI" ".__T__dbCommit:DBI"
[7] ".__T__dbConnect:DBI" ".__T__dbDataType:DBI"
[9] ".__T__dbDisconnect:DBI" ".__T__dbExistsTable:DBI"
[11] ".__T__dbFetch:DBI" ".__T__dbGetException:DBI"
[13] ".__T__dbGetInfo:DBI" ".__T__dbGetPreparedQuery:RSQLite"
[15] ".__T__dbGetQuery:DBI" ".__T__dbGetRowCount:DBI"
[17] ".__T__dbGetRowsAffected:DBI" ".__T__dbGetStatement:DBI"
[19] ".__T__dbHasCompleted:DBI" ".__T__dbIsValid:DBI"
[21] ".__T__dbListFields:DBI" ".__T__dbListResults:DBI"
[23] ".__T__dbListTables:DBI" ".__T__dbReadTable:DBI"
[25] ".__T__dbRemoveTable:DBI" ".__T__dbRollback:DBI"
[27] ".__T__dbSendPreparedQuery:RSQLite" ".__T__dbSendQuery:DBI"
[29] ".__T__dbUnloadDriver:DBI" ".__T__dbWriteTable:DBI"
[31] ".__T__fetch:DBI" ".__T__isSQLKeyword:DBI"
[33] ".__T__make.db.names:DBI" ".__T__show:methods"
[35] ".__T__sqlData:DBI" ".__T__SQLKeywords:DBI"
I think showMethods is the only thing available in methods, but it does not actually return the functions as an object, just prints them to the screen.
The following will return a list of the methods defined in an environment. Adapted from covr::replacements_S4(), which is used to modify all methods in a package to track coverage.
S4_methods <- function(env) {
generics <- methods::getGenerics(env)
res <- Map(generics#.Data, generics#package, USE.NAMES = FALSE,
f = function(name, package) {
what <- methods::methodsPackageMetaName("T", paste(name, package, sep = ":"))
table <- get(what, envir = env)
mget(ls(table, all.names = TRUE), envir = table)
})
res[lengths(res) > 0]
}
m <- S4_methods(asNamespace("DBI"))
length(m)
#> [1] 21
m[1:3]
#> [[1]]
#> [[1]]$DBIObject
#> function(dbObj, obj, ...) {
#> dbiDataType(obj)
#> }
#> <environment: namespace:DBI>
#> attr(,"target")
#> An object of class "signature"
#> dbObj
#> "DBIObject"
#> attr(,"defined")
#> An object of class "signature"
#> dbObj
#> "DBIObject"
#> attr(,"generic")
#> [1] "dbDataType"
#> attr(,"generic")attr(,"package")
#> [1] "DBI"
#> attr(,"class")
#> [1] "MethodDefinition"
#> attr(,"class")attr(,"package")
#> [1] "methods"
#>
#>
#> [[2]]
#> [[2]]$character
#> function(drvName, ...) {
#> findDriver(drvName)(...)
#> }
#> <environment: namespace:DBI>
#> attr(,"target")
#> An object of class "signature"
#> drvName
#> "character"
#> attr(,"defined")
#> An object of class "signature"
#> drvName
#> "character"
#> attr(,"generic")
#> [1] "dbDriver"
#> attr(,"generic")attr(,"package")
#> [1] "DBI"
#> attr(,"class")
#> [1] "MethodDefinition"
#> attr(,"class")attr(,"package")
#> [1] "methods"
#>
#>
#> [[3]]
#> [[3]]$`DBIConnection#character`
#> function(conn, statement, ...) {
#> rs <- dbSendStatement(conn, statement, ...)
#> on.exit(dbClearResult(rs))
#> dbGetRowsAffected(rs)
#> }
#> <environment: namespace:DBI>
#> attr(,"target")
#> An object of class "signature"
#> conn statement
#> "DBIConnection" "character"
#> attr(,"defined")
#> An object of class "signature"
#> conn statement
#> "DBIConnection" "character"
#> attr(,"generic")
#> [1] "dbExecute"
#> attr(,"generic")attr(,"package")
#> [1] "DBI"
#> attr(,"class")
#> [1] "MethodDefinition"
#> attr(,"class")attr(,"package")
#> [1] "methods"
I think you want the showMethods function, as in:
showMethods(where=asNamespace("RSQLite"))
The output is:
Function: dbBegin (package DBI)
conn="SQLiteConnection"
Function: dbBeginTransaction (package RSQLite)
conn="ANY"
Function: dbClearResult (package DBI)
res="SQLiteConnection"
res="SQLiteResult"
Function: dbColumnInfo (package DBI)
res="SQLiteResult"
and this goes on for many more rows. ?showMethods will has some additional arguments for tailoring the results.