P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 15:41:56 +02:00
Code Releases Activity

(v1.4.0.9022) small bugfix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-11-16 20:02:20 +01:00
parent deefce9520
commit 93428415d0
13 changed files with 19 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
R/aa_helper_functions.R
View File

@ -79,8 +79,7 @@ addin_insert_like <- function() {
modifyRange <- import_fn("insertText", "rstudioapi")
document_range <- import_fn("document_range", "rstudioapi")
document_position <- import_fn("document_position", "rstudioapi")
# setSelectionRanges <- import_fn("setSelectionRanges", "rstudioapi")
context <- getSourceEditorContext()
current_row <- context$selection[[1]]$range$end[1]
current_col <- context$selection[[1]]$range$end[2]
@ -688,7 +687,7 @@ set_clean_class <- function(x, new_class) {
lvls <- levels(x)
attributes(x) <- NULL
levels(x) <- lvls
} else {
} else if (!is.list(x) && !is.function(x)) {
attributes(x) <- NULL
}
class(x) <- new_class

2
R/mo_property.R
View File

@ -598,7 +598,7 @@ mo_validate <- function(x, property, language, ...) {
}
if (property == "mo") {
return(to_class_mo(x))
return(set_clean_class(x, new_class = c("mo", "character")))
} else if (property == "snomed") {
return(as.double(eval(parse(text = x))))
} else {