NSF TX Till 2023

setwd("C:/Users/mvx13/OneDrive - Texas State University/Proposals/Proposal_Supp_Folder/2024_Proposals/NSF/Examples")

library(readxl)
library(DT)
library(dplyr)
library(data.table)
aw <- read_excel("TX.xlsx", sheet="Award")
dim(aw)

uni <- aw %>% group_by(Organization) %>% summarize(Count=n(), Award=sum(AwardedAmountToDate))
datatable(uni, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('csv', 'excel')
  )
)

pers <- aw %>% group_by(PrincipalInvestigator, Organization) %>% summarize(Count=n(), Award=sum(AwardedAmountToDate))
datatable(pers, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('csv', 'excel')
  )
)

pru <- aw %>% group_by(`Program(s)`, Organization) %>% summarize(Count=n(), Award=sum(AwardedAmountToDate))
datatable(pru, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('csv', 'excel')
  )
)

prp <- aw %>% group_by(`Program(s)`, PrincipalInvestigator) %>% summarize(Count=n(), Award=sum(AwardedAmountToDate))
datatable(prp, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('csv', 'excel')
  )
)