AoS_Digital_Health_Platform
/
aos-glass-report-ke
forked from AoS_Digital_Health_Platform/aos-glass-report-np
3
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Update 'ke_glass.R' 

Added xxDHIS2PROTOxx tag to deal with local aos.lan queries directly to DHIS2 host.
master
Steven Uggowitzer 4 years ago
parent
8f32a99f01
commit
344a2605e6
1 changed files with 2 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      ke_glass.R

4
ke_glass.R
Unescape View File

@ -7,7 +7,7 @@ library(RCurl)
con <- dbConnect(PostgreSQL(), dbname = 'xxDBxx', host = 'xxHOSTxx', port = 5432, user = 'xxUSERxx', password = 'xxPASSxx')
glass <- getURL(paste0("https://xxDHIS2HOSTxx/api/29/analytics/events/aggregate/wsHfxYEgte5.csv?dimension=ou:isF1Ffne2Ik&dimension=pe:THIS_YEAR;LAST_5_YEARS&dimension=opkhFoeEz9m:IN:eco;sal&dimension=DYsNDR4nCWB&dimension=TRm4iaYikdK-oPyVHCMErH0&dimension=NoTuZ3jydbw:IN:ur;bl&dimension=JkrGmcLg6Zm.gaCDwmKm768&dimension=JkrGmcLg6Zm.C25kY3E21zv&stage=JkrGmcLg6Zm&displayProperty=NAME&outputType=EVENT&outputIdScheme=CODE"), userpwd="xxDHIS2USERxx:xxDHIS2PASSxx", httpauth = 1L)
glass <- getURL(paste0("xxDHIS2PROTOxx://xxDHIS2HOSTxx/api/29/analytics/events/aggregate/wsHfxYEgte5.csv?dimension=ou:isF1Ffne2Ik&dimension=pe:THIS_YEAR;LAST_5_YEARS&dimension=opkhFoeEz9m:IN:eco;sal&dimension=DYsNDR4nCWB&dimension=TRm4iaYikdK-oPyVHCMErH0&dimension=NoTuZ3jydbw:IN:ur;bl&dimension=JkrGmcLg6Zm.gaCDwmKm768&dimension=JkrGmcLg6Zm.C25kY3E21zv&stage=JkrGmcLg6Zm&displayProperty=NAME&outputType=EVENT&outputIdScheme=CODE"), userpwd="xxDHIS2USERxx:xxDHIS2PASSxx", httpauth = 1L)
glass <- read.table(text = glass, sep =",", header = TRUE, stringsAsFactors = FALSE)
glass
@ -74,7 +74,7 @@ glass_unique
# //////////////---------------- Sample file starting -------------/////////////////////
Sample_file <- getURL(paste0("https://xxDHIS2HOSTxx/api/29/analytics/events/aggregate/wsHfxYEgte5.csv?dimension=ou:isF1Ffne2Ik&dimension=pe:THIS_YEAR;LAST_5_YEARS&dimension=JkrGmcLg6Zm.DYsNDR4nCWB&dimension=JkrGmcLg6Zm.TRm4iaYikdK-oPyVHCMErH0&dimension=JkrGmcLg6Zm.NoTuZ3jydbw:IN:ur;bl&stage=JkrGmcLg6Zm&displayProperty=NAME&outputType=EVENT&outputIdScheme=CODE"), userpwd="xxDHIS2USERxx:xxDHIS2PASSxx", httpauth = 1L)
Sample_file <- getURL(paste0("xxDHIS2PROTOxx://xxDHIS2HOSTxx/api/29/analytics/events/aggregate/wsHfxYEgte5.csv?dimension=ou:isF1Ffne2Ik&dimension=pe:THIS_YEAR;LAST_5_YEARS&dimension=JkrGmcLg6Zm.DYsNDR4nCWB&dimension=JkrGmcLg6Zm.TRm4iaYikdK-oPyVHCMErH0&dimension=JkrGmcLg6Zm.NoTuZ3jydbw:IN:ur;bl&stage=JkrGmcLg6Zm&displayProperty=NAME&outputType=EVENT&outputIdScheme=CODE"), userpwd="xxDHIS2USERxx:xxDHIS2PASSxx", httpauth = 1L)
Sample_file <- read.table(text = Sample_file, sep =",", header = TRUE, stringsAsFactors = FALSE)
Sample_file

Write Preview
Loading…
Cancel
Save