БА
Size: a a a
БА
Ю
DI
list
, not class tbl_BigQueryConnection/tbl_dbi/tbl_sql/tbl_lazy/tbl
. Я попыталась сделать selectedData() датафреймом или списком, но не помоглоrequire(tidyverse)
require(bigrquery)
library(reactable)
selectedData = reactive({
Res = case_when(
input$dataId == "XX" ~ XXData,
input$dataId == "YY" ~ YYData
)
Res = Res %>%
dplyr::filter(id == input$inputId) %>%
dplyr::arrange(desc(date_c)) %>%
collect()
Res = as.data.frame(Res)
})
renderDataTable({selectedData()})
DI
list
, not class tbl_BigQueryConnection/tbl_dbi/tbl_sql/tbl_lazy/tbl
. Я попыталась сделать selectedData() датафреймом или списком, но не помоглоrequire(tidyverse)
require(bigrquery)
library(reactable)
selectedData = reactive({
Res = case_when(
input$dataId == "XX" ~ XXData,
input$dataId == "YY" ~ YYData
)
Res = Res %>%
dplyr::filter(id == input$inputId) %>%
dplyr::arrange(desc(date_c)) %>%
collect()
Res = as.data.frame(Res)
})
renderDataTable({selectedData()})
AS
S
E
removeNumPunct <- function(x) gsub("[^[:alpha:][:space:]]*", "", x)
Но
возникают проблемы 1) с русскими буквами-они не удаляются (например, если находятся где-то в середине слова)E
IS
E
IS
ЕТ
IS
ЕТ
ЕТ
E
Ю
S
S