Search
#shiny強推款🔥Shiny熱賣款 #CK海溝內衣
Calvin klein 海溝必備款 🇺🇲Only 🇹🇼沒有
每個女孩必備一件
衣櫃裡就差這件惹
穿上去視覺效果直接大一個CUP
內衣上薄下厚有鋼圈(墊子不可拆)
胸前滾邊設計
襯墊加厚完整托高胸型
側邊選用蕾絲材質包覆性強💪服貼度高
黑色細肩帶露出來也很好看
模特兒32C拿32B
如有Calvin klein, Victoria's Secret, Gilly Hicks內衣,可直接拿原尺寸
不易壓胸或不怕露點點出來的可拿小一個Cup,下圍不變
例如:32C拿32B
庫存尺寸:
32D
34A/34B/34C/34D
36A/36B/36C/36D
特價$1680含運
#CK內衣Tag朋友立刻折100歡迎分享
#shiny強推款🔥Shiny熱賣款 #CK海溝內衣
Calvin klein 海溝必備款 🇺🇲Only 🇹🇼沒有
每個女孩必備一件
衣櫃裡就差這件惹
穿上去視覺效果直接大一個CUP
內衣上薄下厚有鋼圈(墊子不可拆)
胸前滾邊設計
襯墊加厚完整托高胸型
側邊選用蕾絲材質包覆性強💪服貼度高
黑色細肩帶露出來也很好看
模特兒32C拿32B
如有Calvin klein, Victoria's Secret, Gilly Hicks內衣,可直接拿原尺寸
不易壓胸或不怕露點點出來的可拿小一個Cup,下圍不變
例如:32C拿32B
庫存尺寸:
32A/32B/32D
34A/34B/34C/34D
36A/36B/36C/36D
特價$1680含運
#CK內衣Tag朋友立刻折100歡迎分享
地方媽媽大推款，值得入手好物❗️ ❇️大量訂購可私訊https://page.line.me/352swqqj. #黴菌清除 #ShinyQueen國際商行 #黑黴斑瞬潔 ... <看更多>
完全不挑人穿～激推兩件套超值入手款 https://reurl.cc/QpjZ25 滿滿溫柔氣質的味道～ 喜歡慵懶風or小性感的女孩也都能放心入手白色基本色還有綠色 （小編超推綠色 ... ... <看更多>
shiny強推款 在 Re: [問題] Shiny 套件請益- 看板R_Language - 批踢踢實業坊 的美食出口停車場
※ 引述《acecc (cc)》之銘言：
: [問題類型]:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
: [軟體熟悉度]:
: R的基本使用沒問題，但使用Shiny套件是完全的新手...
: 先寫個基本款來試試看...
: [問題敘述]:
: 程式做的事情很單純，
: 1. upload 一個檔案
: 2. 程式對每個Column做簡單的線性預測
: 3. 將結果download下來
: 程式我有丟上Glimmer Server
: https://glimmer.rstudio.com/glen/Pred/
: 並附上一個簡易的測試檔案，可以用此檔案直接upload，並算出結果。
: https://www.asuswebstorage.com/navigate/s/14B96034DC784748976F45174C9F274BY
: 但我有三個技術上的問題想克服，請教各位~
: 1. 若同時間此程式有好幾個人同時使用，那麼很有可能會download到別人的output.
: 例如:A先跑完但還沒做download的動作，此時B也上傳了另一個檔案跑了另一個output出來
: 那麼這時候A 與 B去download檔案的時候，就都會download到B產生的output
: 請問我要怎麼能讓每個End user都能下載到自己產生的output?
: 這是server端的問題，還是我程式寫法的問題?
我的解決辦法是每次使用者開啟網頁就隨機生成一個暫存檔(tempRD1)，
然後把資料寫到暫存檔裡面(run datasetInput時順便寫入)，
當使用者要下載時再從暫存檔裡面抓(readRDS(tempRD1))。
大概可以經由以下code實踐 (未經測試 汗 = =")
shinyServer(function(input, output) {
...
tempRD1 <- paste(tempfile(), ".RData", sep="")
datasetInput <- reactive({
out <- switch(input$dataset, "FIT" = fit)
saveRDS(out, tempRD1)
out
})
output$downloadData <- downloadHandler(
filename = function() { paste(input$dataset, '.csv', sep='') },
content = function(file) {
out <- readRDS(tempRD1)
write.csv(out, file)
}
)
})
: 2. 請教一下有沒有辦法讓流程縮短為
: a. upload 一個檔案
: b. 程式對每個Column做簡單的線性預測且自動跳出結果問你要不要download
: 而不用讓End user再去點download?
: Shiny套件能做到這個效果嗎?
就我對Shiny 0.4.0的印象，沒有這個預設功能，
不過這樣的效果還是做得到(頗麻煩)，我想大概的流程如下：
1. 判斷程式甚麼時候跑完
2. 利用conditionalPanel(), 當程式跑完跳出一個yes/no box
(note: Shiny 目前沒有yes/no box, 你會用到javascript: confirm())
: 3. 有沒有辦法讓程式跑完自動將結果寄到指定的的E mail信箱而不用手動下載。
那你還是要先填email地址啊...
你是想要多一個欄位填email，然後按下發送鍵這樣?
你可能需要這兩個套件: {sendmailR} and {shinyIncubator}
然後利用sendmail() + actionBotion() 完成你要的效果
: [程式範例]:
: 因為有兩段程式碼，我就直接貼在這兒了!
: #######ui.R
: library(shiny)
: shinyUI(pageWithSidebar(
: headerPanel("Hello!"),
: sidebarPanel(
: fileInput('file1', 'Input Data',
: accept=c('text/csv', 'text/comma-separated-values,text/plain')),
: tags$hr(),
: selectInput("dataset", "Download:",
: choices = "FIT"),
: downloadButton('downloadData', 'Download')),
: mainPanel(
: tableOutput("contents")
: )
: ))
: #######server.R
: library(shiny)
: shinyServer(function(input, output) {
: output$contents <- renderTable({
: inFile <- input$file1
: if (is.null(inFile))
: return(NULL)
: y <- read.csv(inFile$data, header= TRUE)
: data <- apply(y, 2, cumsum)
: fit <<- apply(data, 2, function(z){
: z <- z[!is.na(z)]
: x <- 1:length(z)
: tempfit <- lm(z[-(1:6)] ~ x[-(1:6)])
: coef(tempfit)[1] + coef(tempfit)[2] * 1:70
: })
: fit
: })
: #browser()
: datasetInput <- reactive({
: switch(input$dataset,
: "FIT" = fit)
: })
: output$table <- renderTable({
: datasetInput()
: })
: output$downloadData <- downloadHandler(
: filename = function() { paste(input$dataset, '.csv', sep='') },
: content = function(file) {
: write.csv(datasetInput(), file)
: }
: )
: })
: 有任何不清楚的地方麻煩再告訴我
: 感謝各位!
My Shiny app:
https://glimmer.rstudio.com/tchsieh/inext/
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.135.249.109
... <看更多>