astra-sites domain was triggered too early. This is usually an indicator for some code in the plugin or theme running too early. Translations should be loaded at the init action or later. Please see Debugging in WordPress for more information. (This message was added in version 6.7.0.) in /home/statplace/public_html/site/wp-includes/functions.php on line 6114jetpack domain was triggered too early. This is usually an indicator for some code in the plugin or theme running too early. Translations should be loaded at the init action or later. Please see Debugging in WordPress for more information. (This message was added in version 6.7.0.) in /home/statplace/public_html/site/wp-includes/functions.php on line 6114wpforms-lite domain was triggered too early. This is usually an indicator for some code in the plugin or theme running too early. Translations should be loaded at the init action or later. Please see Debugging in WordPress for more information. (This message was added in version 6.7.0.) in /home/statplace/public_html/site/wp-includes/functions.php on line 6114wordpress-seo domain was triggered too early. This is usually an indicator for some code in the plugin or theme running too early. Translations should be loaded at the init action or later. Please see Debugging in WordPress for more information. (This message was added in version 6.7.0.) in /home/statplace/public_html/site/wp-includes/functions.php on line 6114astra foi ativado muito cedo. Isso geralmente é um indicador de que algum código no plugin ou tema está sendo executado muito cedo. As traduções devem ser carregadas na ação init ou mais tarde. Leia como Depurar o WordPress para mais informações. (Esta mensagem foi adicionada na versão 6.7.0.) in /home/statplace/public_html/site/wp-includes/functions.php on line 6114Artigo escrito com a colabora\u00e7\u00e3o de Larisse Annie Saldanha<\/p>\n\n\n\n
Quando usamos tabelas para as mais diferentes finalidades, podemos criar desde tabelas elaborados no Excel<\/a> at\u00e9 data frames no R<\/a>. Mas como deixar essas tabelas mais interativas e f\u00e1ceis de usar quando estiverem em p\u00e1ginas HTML? \u00c9 para ajudar nessa tarefa que usamos o pacote data table. <\/p>\n\n\n\n O pacote DT fornece uma interface em JavaScript para a biblioteca DataTable<\/em>. Os objetos de dados do R (matrizes ou data frames) podem ser exibidos como tabelas em p\u00e1ginas HTML, e o DataTables<\/em> fornece filtragem, pagina\u00e7\u00e3o, classifica\u00e7\u00e3o e muitos outros recursos nas tabelas. Os argumentos s\u00e3o:<\/p>\n\n\n\n Pode-se editar uma tabela via argumento\u00a0 De modo geral, cria-se um Com essa extens\u00e3o, voc\u00ea ver\u00e1 um quadrado azul no canto direito que te permite preencher toda a coluna ou a linha.<\/p>\n\n\n\n Voc\u00ea j\u00e1 usa o Data Table para editar as suas tabelas no R? Tem alguma dica extra? Diz pra gente aqui nos coment\u00e1rios. E n\u00e3o esque\u00e7a de seguir a Oper nas redes sociais, estamos no Instagram<\/a>, Facebook<\/a> e LinkedIn<\/a>! <\/p>\n","protected":false},"excerpt":{"rendered":" Os objetos de dados do R podem ser exibidos como tabelas em HTM o Data Table fornece diferentes recursos para tornar essas tabelas mais interessantes.<\/p>\n","protected":false},"author":8,"featured_media":6809,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"","site-content-layout":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","spay_email":"","footnotes":""},"categories":[445],"tags":[235,252,247,253],"class_list":["post-6807","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-ferramentas-e-tecnologias","tag-rstats","tag-data-table","tag-pacote","tag-software"],"yoast_head":"\ndatatable(data, options = list(), class = \"display\",\ncallback = JS(\"return table;\"), rownames, colnames, container,\ncaption = NULL, filter = c(\"none\", \"bottom\", \"top\"), escape = TRUE,\nstyle = \"default\", width = NULL, height = NULL, elementId = NULL,\nfillContainer = getOption(\"DT.fillContainer\", NULL),\nautoHideNavigation = getOption(\"DT.autoHideNavigation\", NULL),\nselection = c(\"multiple\", \"single\", \"none\"), extensions = list(),\nplugins = NULL, editable = FALSE)<\/code><\/pre>\n\n\n\nEditando Tabelas no data table<\/h2>\n\n\n\n
editable<\/code>\u00a0do pacote. Depois de finalizar as edi\u00e7\u00f5es, pode-se obter os \u00edndices da coluna e linha e os novos valores das c\u00e9lulas onde foram editadas via\u00a0input$tableId_cell_info<\/code>.<\/p>\n\n\n\nobserveEvent()<\/code> da seguinte maneira:<\/p>\n\n\n\nobserveEvent(input$table_cell_edit, {\ninfo = input$table_cell_edit\nproxy4 = dataTableProxy(\"table\")\n\nstr(info)\ni = info$row\nj = info$col + 1 # column index offset by 1\nv = info$value\n\ndados[i, j] <<- DT::coerceValue(v, dados[i, j]) \nreplaceData(proxy4, dados , resetPaging = FALSE, rownames = FALSE) })<\/code><\/pre>\n\n\n\nAlgumas Extens\u00f5es \u00dateis do pacote data table<\/h2>\n\n\n\n
AutoFill<\/h3>\n\n\n\n
library(DT)\ndatatable(iris, extensions = c('AutoFill','KeyTable'), editable = TRUE, options = list(\n autoFill = TRUE, keys= TRUE))<\/code><\/pre>\n\n\n\nBot\u00f5es<\/h3>\n\n\n\n
datatable(\n iris, extensions = 'Buttons', options = list(\n dom = 'Bfrtip',\n buttons = c('copy', 'csv', 'excel', 'pdf', 'print')\n )\n)<\/code><\/pre>\n\n\n\nVisibilidade<\/h3>\n\n\n\n
datatable(\n iris, rownames = FALSE,\n extensions = 'Buttons', options = list(dom = 'Bfrtip', buttons = I('colvis'))\n)<\/code><\/pre>\n\n\n\nKeyTable<\/h3>\n\n\n\n
datatable(iris, extensions = 'KeyTable', options = list(keys = TRUE))<\/code><\/pre>\n\n\n\nPain\u00e9is de Busca<\/h3>\n\n\n\n
datatable(\n iris,\n options = list(dom = 'Pfrtip', columnDefs = list(list(\n searchPanes = list(show = FALSE), targets = 1:4\n ))),\n extensions = c('Select', 'SearchPanes'),\n selection = 'none'\n)<\/code><\/pre>\n\n\n\n