edsolitude
@edsolitude has joined the channel
open-welfare
Month: 2016-11
2016-11-05
sfwang
@sfwang has joined the channel
edwardtsai
@edwardtsai has joined the channel
shuching
@shuching has joined the channel
pjw319
@pjw319 has joined the channel
eric810905
@eric810905 has joined the channel
changyajune
@changyajune has joined the channel
edsolitude
this is Ed
pjw319
this is James
sfwang
this is SF
eric810905
I am Eric.
edwardtsai
This is Edward
ruannner
@ruannner has joined the channel
ruannner
this is Victor
2016-11-06
ruannner
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")
)
)
edwardtsai
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.
edsolitude
edsolitude
edsolitude
API
pjw319
內政部社會經濟統計：
ruannner
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)
})
}
)
ruannner
GitHub
twgeojson - geojson data for Taiwan
ruannner
crime_analysis - Crime analysis in R
edsolitude
@sfwang 太強了!!!!
sfwang
出生率資料來源, 但好像只有月出生率
eric810905
👍
eric810905
台東的成長率怎麼那麼高？
eric810905
人口成長%
sfwang
表格有錯
sfwang
我來改吧
sfwang
改好了
edsolitude
哪一年要標
2016-11-07
ernestojc
@ernestojc has joined the channel
eric810905
code和檔案要放到那個github上面呢？
2016-11-17
ralflin
@ralflin has joined the channel
2016-11-24
doulos
@doulos has joined the channel