su: ignoring --preserve-environment, it's mutually exclusive with --login Attaching package: ‘shinydashboard’ The following object is masked from ‘package:graphics’: box Attaching package: ‘DT’ The following objects are masked from ‘package:shiny’: dataTableOutput, renderDataTable Attaching package: ‘dplyr’ The following objects are masked from ‘package:stats’: filter, lag The following objects are masked from ‘package:base’: intersect, setdiff, setequal, union Attaching package: ‘shinydashboardPlus’ The following objects are masked from ‘package:shinydashboard’: box, dashboardHeader, dashboardPage, dashboardSidebar, messageItem, notificationItem, taskItem The following object is masked from ‘package:shinyWidgets’: progressBar The following object is masked from ‘package:graphics’: box Attaching package: ‘bs4Dash’ The following objects are masked from ‘package:shinydashboardPlus’: accordion, accordionItem, appButton, attachmentBlock, blockQuote, box, boxComment, boxDropdown, boxDropdownItem, boxLabel, boxPad, boxProfile, boxProfileItem, boxSidebar, carousel, carouselItem, controlbarItem, controlbarMenu, dashboardBadge, dashboardControlbar, dashboardFooter, dashboardHeader, dashboardPage, dashboardSidebar, dashboardUser, dashboardUserItem, descriptionBlock, dropdownDivider, loadingState, messageItem, notificationItem, productList, productListItem, progressBar, renderUser, skinSelector, socialBox, starBlock, taskItem, timelineBlock, timelineEnd, timelineItem, timelineItemMedia, timelineLabel, timelineStart, updateAccordion, updateBox, updateBoxSidebar, updateControlbar, updateControlbarMenu, updateSidebar, updateUserMessages, userBlock, userBox, userDescription, userList, userListItem, userMessage, userMessages, userOutput, userPost, userPostMedia, userPostTagItem, userPostTagItems The following objects are masked from ‘package:shinyBS’: addPopover, addTooltip, closeAlert, createAlert, removePopover, removeTooltip The following objects are masked from ‘package:shinydashboard’: box, dashboardBody, dashboardHeader, dashboardPage, dashboardSidebar, dropdownMenu, dropdownMenuOutput, infoBox, infoBoxOutput, menuItem, menuItemOutput, menuSubItem, messageItem, notificationItem, renderInfoBox, renderMenu, renderValueBox, sidebarMenu, sidebarMenuOutput, sidebarUserPanel, tabBox, tabItem, tabItems, taskItem, updateTabItems, valueBox, valueBoxOutput The following object is masked from ‘package:shinyWidgets’: progressBar The following objects are masked from ‘package:shiny’: actionButton, column, insertTab, tabsetPanel The following object is masked from ‘package:graphics’: box Listening on http://127.0.0.1:36211 Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] <- 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 9562 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 9562 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 9562 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 134: 133: signalCondition 132: signal_abort 131: rlang::abort 130: cli::cli_abort 129: no_empty 128: str_detect 125: getArticleTable 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 3421 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 3421 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Warning: Error in db_query_fields.DBIConnection: Can't query fields. Caused by error: ! Failed to prepare query: ERROR: relation "CUIsearch_07032023_disorder_codi_cos_NA" does not exist LINE 2: FROM "CUIsearch_07032023_disorder_codi_cos_NA" AS "q01" ^ 69: 68: signalCondition 67: signal_abort 66: rlang::abort 65: cli_abort 64: value[[3L]] 63: tryCatchOne 62: tryCatchList 61: tryCatch 60: db_query_fields.DBIConnection 58: dbplyr_fallback 57: dbplyr_query_fields 55: tbl_sql 54: tbl.src_dbi 52: tbl.DBIConnection 51: tbl 50: dplyr::select 49: collect 48: %>% 45: observe [/srv/shiny-server/ONCE/app.R#274] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 134: 133: signalCondition 132: signal_abort 131: rlang::abort 130: cli::cli_abort 129: no_empty 128: str_detect 125: getArticleTable 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 1034 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 1034 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 134: 133: signalCondition 132: signal_abort 131: rlang::abort 130: cli::cli_abort 129: no_empty 128: str_detect 125: getArticleTable 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 134: 133: signalCondition 132: signal_abort 131: rlang::abort 130: cli::cli_abort 129: no_empty 128: str_detect 125: getArticleTable 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 109: 108: stop 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Warning: Error in str_detect: `pattern` can't be the empty string (`""`). 72: 71: signalCondition 70: signal_abort 69: rlang::abort 68: cli::cli_abort 67: no_empty 66: str_detect 63: getArticleTable 62: [/srv/shiny-server/ONCE/app.R#362] 46: articleTable_inter 45: observe [/srv/shiny-server/ONCE/app.R#394] 44: 1: runApp Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 3421 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 3421 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 9562 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 9562 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 9562 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 9562 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(Variable)` Warning in result$mgb_freq[is.na(result$mgb_freq)] = 1.2091114 * va_freq$word_freq[match(result$Variable, : number of items to replace is not a multiple of replacement length Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 4489 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 4489 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning in left_join(re, article_info, by = "source_title") : Detected an unexpected many-to-many relationship between `x` and `y`. ℹ Row 4489 of `x` matches multiple rows in `y`. ℹ Row 1 of `y` matches multiple rows in `x`. ℹ If a many-to-many relationship is expected, set `relationship = "many-to-many"` to silence this warning. Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Warning: Error in $<-.data.frame: replacement has 1 row, data has 0 127: stop 126: $<-.data.frame 124: genFindingTable 123: [/srv/shiny-server/ONCE/app.R#380] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Start!! Article table complete CUI table complete Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Joining with `by = join_by(title, clean_title, feature_id)` Joining with `by = join_by(rowid)` Joining with `by = join_by(cui, term, belong, cos_cui)` Warning: Setting row names on a tibble is deprecated. Terminated