<a class="user-mention notranslate" data-hovercard-type="user" data-hovercard-url="/us

Try this: <div class="snippet-clipboard-content notranslate position-relative over

nice. thanks. <div class="snippet-clipboard-content notranslate position-relative

DataSUS date formatting issue about lodown HOT 4 CLOSED

ajdamico commented on August 15, 2024

DataSUS date formatting issue

from lodown.

Comments (4)

ajdamico commented on August 15, 2024

what's the smallest catalog that will create mdb_src? what rows (as few as possible) can i subset this_cat <- get_catalog( "datasus" , output_dir = tempdir() ) to in order to reproduce this? thanks

from lodown.

guilhermejacob commented on August 15, 2024

Try this:

library(lodown)
library(DBI)
library(MonetDBLite)

catalog <- get_catalog( "datasus" , output_dir = tempdir() )

catalog <- subset( catalog , year %in% 1999:2000 )
catalog <- subset( catalog , type == "mortality" )
catalog <- subset( catalog , special == "infantil" )

lodown( "datasus" , catalog = catalog )

path_to_db = paste0( tempdir() , "/MonetDB")
db <- dbConnect( MonetDBLite() , path_to_db )
dbListTables(db)
dbGetQuery( db , "SELECT RIGHT( cast( dtobito as text ) , 4 ) as ano , COUNT(*) from infantil_cid10 GROUP BY ano order by ano" )

from lodown.

ajdamico commented on August 15, 2024

nice. thanks.

library(DBI)

db <- dbConnect( MonetDBLite::MonetDBLite() )

x <- data.frame( col = c( 10000000 , 1000 ) )

dbWriteTable( db , 'x' , x )

# CAST( ... AS TEXT ) includes exponentials
dbGetQuery( db , "SELECT CAST( col AS TEXT ) FROM x" )

dbGetQuery( db , "SELECT RIGHT( CAST( col AS TEXT ) , 4 ) FROM x" )

# easy workaround
dbGetQuery( db , "SELECT RIGHT( CAST( CAST( col AS BIGINT ) AS TEXT ) , 4 ) FROM x" )

from lodown.

ajdamico commented on August 15, 2024

sure, i think it's safer to use dbListFields( db , tablename ) instead of digging into sys tables though?

from lodown.

Recommend Projects