[Blogger筆記] 如何在blogger網頁用Google Code Prettify嵌入程式碼？

在寫R學習筆記寫到一半，發現不知道如何在文章中嵌入程式碼，但又不希望直接用段落文字來寫程式碼或使用截圖，容易失真也無法讓閱讀的人複製使用，於是爬了網上各種文，發現一個相對簡易的做法：使用Google Code Prettify。 blogger本身是沒有支援內嵌程式碼的，所以需要到後台設置環境，接下來每次要用的時候只需要在文章中用一段語法涵蓋程式碼就可以了！

Step 1: 進入版面配置，點選新增小工具的HTML/Java Script

Step 2: 貼上以下語法並儲存

<style>
.post .codeblock {
display: block; /* fixes a strange ie margin bug */
font-family: Courier New;
font-size: 10pt;
overflow:auto;
background: #f0f0f0 url(data:image/gif;base64,iVBORw0KGgoAAAANSUhEUgAAAAsAAASwCAYAAAAt7rCDAAAABHNCSVQICAgIfAhkiAAAAQJJREFUeJzt0kEKhDAMBdA4zFmbM+W0upqFOhXrDILwsimFR5pfMrXW5jhZr7PwRlxVX8//jNHrGhExjXzdu9c5IiIz+7iqVmB7Hwp4OMa2nhhwN/PRGEMBh3Zjt6KfpzPztxW9MSAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzB8HS+J9kUTvzEDMwAAAABJRU5ErkJggg==) left top repeat-y;
border: 1px solid #ccc;
padding: 10px 10px 10px 21px;
max-height:1000px;
line-height: 1.2em;
}
</style>

Step 3: 在文章中HTML撰寫的地方，貼上以下語法涵蓋欲嵌入的程式碼
開頭貼

<pre class="codeblock ">

結尾貼

</pre>

所以會看起來像這樣

<pre class="codeblock ">
 #欲新增的程式碼
</pre>

再試試看帶入一個R的程式碼

makeVector <- function(x = numeric()) {
        m <- NULL
        set <- function(y) {
          x <<- y
          m <<- NULL
        }
        get <- function() x
        setmean <- function(mean) m <<- mean
        getmean <- function() m
        list(set = set, get = get, 
             setmean = setmean,
             getmean = getmean)
}

cachemean <- function(x, ...) {
        m <- x$getmean()
        if (!is.null(m)) {
                  message("getting cached data")
                  return(m)
        }
        data <- x$get()
        m <- mean(data, ...)
        x$setmean(m)
        m
}

makeCacheMatrix <- function(x = matrix()) {
  i <- NULL
  set <- function(y) {
    x <<- y
    i <<- NULL
  }
  get <- function() x
  setinverse <- function(inverse) i <<- inverse
  getinverse <- function() i
  list(set = set, get = get,
       setinverse = setinverse,
       getinverse = getinverse)
}

cacheSolve <- function(x, ...) {
  i <- x$getinverse()
  if(!is.null(i)) {
    message("getting cached data")
    return(i)
  }
  data <- x$get()
  i <- solve(data, ...)
  x$setinverse(i)
  i
}

資料來源：[教學] 如何在網頁blogger中插入程式碼
PJCHENder那些沒告訴你的小細節