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:36657 Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F 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. Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F 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*!~!#F 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*!~!#F 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 Start*!~!#F 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*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F 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. 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#395] 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#381] 107: allFinding_inter 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Start*!~!#F 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#395] 44: 1: runApp Start*!~!#F 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#395] 44: 1: runApp Start*!~!#F 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#395] 44: 1: runApp Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F 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*!~!#F 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*!~!#F Article table complete CUI table complete Start*!~!#F 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*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Warning: Error in convertIdx: Some column names in the 'escape' argument not found in data 113: stop 112: convertIdx 110: targetIdx 109: convert 108: FUN 107: lapply 106: colDefsTgtHandle 105: DT::datatable 104: exprFunc 103: widgetFunc 102: :: htmlwidgets shinyRenderWidget 101: func 88: renderFunc 87: renderFunc 83: renderFunc 82: output$table 1: runApp Start*!~!#F Article table complete CUI table complete Start*!~!#F 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*!~!#F Article table complete CUI table complete Start*!~!#F 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*!~!#F 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*!~!#F 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(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*!~!#F 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*!~!#F 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*!~!#F 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*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F 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(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*!~!#F 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*!~!#F Article table complete CUI table complete Start*!~!#F 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 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(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*!~!#F Article table complete CUI table complete Start*!~!#F 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#395] 44: 1: runApp Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F 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*!~!#F 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*!~!#F 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#395] 44: 1: runApp Start*!~!#F 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*!~!#F 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. Start*!~!#F 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*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F Article table complete CUI table complete Start*!~!#F 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 Terminated