Nothing
#' @export
#' @rdname get_mapunit_from_NASIS
get_projectmapunit_from_NASIS <- function(SS = TRUE, stringsAsFactors = NULL, dsn = NULL) {
if (!missing(stringsAsFactors) && is.logical(stringsAsFactors)) {
.Deprecated(msg = sprintf("stringsAsFactors argument is deprecated.\nSetting package option with `NASISDomainsAsFactor(%s)`", stringsAsFactors))
NASISDomainsAsFactor(stringsAsFactors)
}
q <- paste("SELECT p.projectiid, p.uprojectid, p.projectname, pmu.seqnum pmu_seqnum, a2.areasymbol, lmu.musym, lmu.lmapunitiid AS mukey, mu.nationalmusym, mutype, lmu.mustatus, muname, muacres
FROM
project_View_1 p INNER JOIN
projectmapunit_View_1 pmu ON pmu.projectiidref = p.projectiid LEFT OUTER JOIN
mapunit_View_1 mu ON mu.muiid = pmu.muiidref LEFT OUTER JOIN
lmapunit_View_1 lmu ON lmu.muiidref = mu.muiid LEFT OUTER JOIN
legend_View_1 l ON l.liid = lmu.liidref
INNER JOIN
area a ON a.areaiid = p.mlrassoareaiidref
LEFT OUTER JOIN
area a2 ON a2.areaiid = l.areaiidref
WHERE l.legendsuituse != 1 OR l.legendsuituse IS NULL
ORDER BY p.projectname, a.areasymbol, lmu.musym;"
)
# toggle selected set vs. local DB
if (SS == FALSE) {
q <- gsub(pattern = '_View_1', replacement = '', x = q, fixed = TRUE)
}
channel <- dbConnectNASIS(dsn)
if (inherits(channel, 'try-error'))
return(data.frame())
# exec query
d.project <- dbQueryNASIS(channel, q)
# test is selected set is empty
if (nrow(d.project) == 0) message("your selected set is missing the project table, please load it and try again")
# uncode metadata domains
d.project <- uncode(d.project, dsn = dsn)
# done
return(d.project)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.