#open-welfare
2016-11-05
@edsolitude has joined the channel
@sfwang has joined the channel
@edwardtsai has joined the channel
@shuching has joined the channel
@pjw319 has joined the channel
@eric810905 has joined the channel
@changyajune has joined the channel
this is Ed
this is James
this is SF
I am Eric.
This is Edward
@ruannner has joined the channel
this is Victor
2016-11-06
shinyServer(
pageWithSidebar(
headerPanel("台灣縣市福利政策"),
# In SidebarPanel:
# Dropbox as selectInput
# Slider as sliderInput
sidebarPanel(
selectInput("Areas", "Please Select Area",
choices=c("台北市","新北市","桃園市","台中市","台南市","高雄市")),
sliderInput("Budget", "Please Select Budget: ",
min=100,max=5000,value=1000,step=100)
),
mainPanel("Main Panel")
)
)
pageWithSidebar(
headerPanel("台灣縣市福利政策"),
# In SidebarPanel:
# Dropbox as selectInput
# Slider as sliderInput
sidebarPanel(
selectInput("Areas", "Please Select Area",
choices=c("台北市","新北市","桃園市","台中市","台南市","高雄市")),
sliderInput("Budget", "Please Select Budget: ",
min=100,max=5000,value=1000,step=100)
),
mainPanel("Main Panel")
)
)
stat.gov.tw
Statistical Information Network of the Republic of China This website serves as a national statistical portal of the Republic of China. The website is responsible for collecting, compiling and disseminating the nation's statistical information and presenting it in the form of the latest economic and social indicators, updated reports, analysis and statistical publications.
API
內政部社會經濟統計：
library(shiny)
#import dataset
data <- read.csv("data.csv")
shinyServer(
function(input, output, session){
data$var<- switch(input$var,
"Nanny" = data$nanny,
"Child Care" = data$childCare,
"Subsidy" = data$subsidy)
output$text <- renderText({
amount <- as.numeric(data$var)
paste("Amount is", amount)
})
}
)
#import dataset
data <- read.csv("data.csv")
shinyServer(
function(input, output, session){
data$var<- switch(input$var,
"Nanny" = data$nanny,
"Child Care" = data$childCare,
"Subsidy" = data$subsidy)
output$text <- renderText({
amount <- as.numeric(data$var)
paste("Amount is", amount)
})
}
)
GitHub
@sfwang 太強了!!!!
出生率資料來源, 但好像只有月出生率
👍
台東的成長率怎麼那麼高？
人口成長%
表格有錯
我來改吧
改好了
哪一年要標
2016-11-07
@ernestojc has joined the channel
code和檔案要放到那個github上面呢？
2016-11-17
@ralflin has joined the channel
2016-11-24
@doulos has joined the channel